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:
Danke für die Blumen..... (obwohl ich kein Pabst bin).;)
Kannst du mal ein Rar hochladen welche ich testen kann ?
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:
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\
Hi Ralf,
Zitat: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
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.
Code:
Sub M_snb()
Shell Replace("~C:\Program Files\WinRar\UnRar.exe~ e C:\Z\Test.rar C:\Z\", "~", Chr(34)), 0
End Sub
@snb. Danke.
Deine Lösung ist nicht nur kürzer und damit besser in bestehende Projekte integrierbar, sondern die Performance ist auch wesentlich besser!
Hallo Günter,
kann doch nicht so schwer sein