Rar-Dateien mittels VBA entpacken

[Case]

Hallo, :19:

habe nur darauf hingewiesen, dass es um eine Rar-Datei geht, nicht um eine gezippte Datei. Da versagt die interne Möglichkeit von Windows. Da SNB in den Niederlanden beheimatet ist, dachte ich, ich sage es ihm durch die Blume. :21:

[snb]

Danke für die Blumen.....  (obwohl ich kein Pabst bin).;)

Kannst du mal ein Rar hochladen welche ich testen kann ?

[Rabe]

Hi Günter,

übersetzt du uns deinen Beitrag bitte?

das verstehe doch sogar ich!  :21:

Und mit dem Google-Übersetzer ist es sowieso kein Problem mehr:
https://translate.google.de/#auto/de/het...0van%20jou

[Case]

Hallo, :19:

das habe ich auch mit dem Google-Übersetzer gemacht.

@ SNB - hier mal eine RAR-Datei. Mit 7Zip wie schon geschrieben kein Problem. :21:

[snb]

Ich verwende immer Izarc.

Code:

Sub M_snb()
     Shell "F:\__IZARCcc\izarce -pG:\OF\nieuw_snb\ J:\download\word_search_copy.rar"
End Sub

Die Dateien werden ausgepackt in G:\OF\nieuw_snb\

[WillWissen]

Hi Ralf,

das verstehe doch sogar ich!  [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
2/21.gif[/img]

schön für dich - du hast 'ne PN

[santana]

Hallo,


und euch allen vielen Dank!

Die Extraction in das gewünsche Verzeichnis kann man folgendermassen erhalten:

Sub Extraction_ins_gewünschte_Verzeichnis()
Dim str1$, str2$, str3$, str4$
str1 = "C:\Program Files\WinRar\"
str2 = "C:\Z\Test.rar"
str3 = "C:\Z\"
str4 = Shell(Chr(34) & str1 & "UnRar.exe" & Chr(34) & " e " & Chr(34) & str2 & Chr(34) & " " & Chr(34) & str3 & Chr(34), vbNormalFocus)
End Sub


Für weitere Alternativen bin ich dankbar.

[snb]

Code:

Sub M_snb()
   Shell Replace("~C:\Program Files\WinRar\UnRar.exe~ e C:\Z\Test.rar C:\Z\", "~", Chr(34)), 0
End Sub

[santana]

@snb. Danke.

Deine Lösung ist nicht nur kürzer und damit besser in bestehende Projekte integrierbar, sondern die Performance ist auch wesentlich besser!

[schauan]

Hallo Günter,

kann doch nicht so schwer sein