Rar-Dateien mittels VBA entpacken

[Käpt'n Blaubär]

Hallo,

Entpackt wird immer nach:
C:\Users\Adminstrator\Documents\

Was kann man da machen?

ich habe jetzt nur ein Handy, drum als Schuß in's Blaue,
die Speicherordner können eigentlich unter Optionen geändert werden

[schauan]

Hallöchen,

dann packe mal das Zielverzeichnis dazu

Shell "cmd /c""C:\Users\Administrator\Downloads\Z\unrar.exe e C:\Users\Administrator\Downloads\Z\Test.rar C:\Users\Administrator\Downloads\Z\"""

[santana]

Schön wärs!
Habe ich schon versucht nicht!

Hatte auch mal folgendes Spielchen gemacht. Eine entsprechende bat/cmd Datei geschrieben, die Test.rar entpacken sollten.

Klappte super, die Extraktion geschah beim manuellen klicken auf die bat  wie gewünscht im gleichen Ordner wie Test.rar.

Da dachte ich habs. Also schnell noch den entsprechenden Befehl in VBa reingeschrieben der die Bat dann per Programmaufruf startet.

Pustekuchen. Die Datei wurde wieder nach C:\Users\Administrator\Documents\ entpackt.


Das Dingen nervt und ist für mich eine richtige Nuß. Anderseits hochinteressant. Denn man sieht worauf es ankommt.

Du brauchst gar kein Winrar auf dem Rechner zu haben, die Benutzung der unrar.exe reicht. Alles andere von so einem

Programm: Folklore.

[00202]

Hallo, :19:

willst Du in 7Zip ein Zielverzeichnis für die zu entpackende Datei angeben, muss der Parameter "-O" angegeben werden (keine Null). :21:

Code:

Option Explicit
Sub Main()
    Shell "C:\Program Files\7-Zip\7z.exe X C:\Temp\Word_Search_Copy.rar -Y -OC:\Temp\Zip\Neu\", vbNormalFocus
End Sub

• "C:\Program Files\7-Zip\7z.exe" - der Pfad zu meiner 7z.exe
  
• "C:\Temp\Word_Search_Copy.rar" - die zu entpackende Rar-Datei
  
• "C:\Temp\Zip\Neu\" - das Zielverzeichnis
  

Die Parameter in 7Zip sind manchmal etwas gewöhnungsbedürftig. "-O" wird angegeben, wenn ein bestimmtes Zielverzeichnis genommen werden soll. Es darf KEIN Leerzeichen zwischen dem Parameter und dem Pfad sein!

Hier noch ein paar Infos.

[santana]

Hallo Case,
danke für deinen Beitrag, leider funktioniert es bei mir so nicht.

(Vielen Dank auch für den Link!!, werde ich bei Gelegenheit durcharbeiten)


Aber ich habe das Problem gelöst.

Das Problem liegt bei der cmd.exe. Startet man diese  ist
die Voreinstellung für das Verzeichnis (bei mir zumindest) immer
C:\Users\Administrator\Documents

Und genau hier liegt das Problem und auch der Fehler.
Das Verzeichnis muss hier angepasst  werden.

Habe folgendes gemacht
Eine Bat geschrieben und folgende Befehle reingepackt:
cd C:\Z
7z.exe e  Test.rar

also Verzeichnis anpassen im ersten Schritt und im
zweiten entpacken.

Mit dem Aufruf:
Sub Main()
Shell "C:\Z\Lösung.bat"
End Sub

läuft das Ganze über die Bat wie gewünscht.

Und jetzt kommt ihr wieder ins Spiel liebe VBA Gemeinde.
Ich will keine Lösung über Bat.
Wie schaffe ich es die cmd.exe so zu steuern,
das diese das richtige Verzeichnis hat?
Also letztendlich wieder alles über nur einen Shell - Befehl läuft?

[00202]

Hallo, :19:

ich habe meine Codezeile natürlich getestet - klappt wunderbar. :21:

Was passiert denn bei dir, wenn du die entsprechenden Anpassungen vorgenommen hast?

Ich entpacke schon lange Rar-Dateien mit 7Zip. Lauf 7Zip Hilfe gibt es nur ein Problem - ein altes 7Zip Programm mit einer Rar-Datei, welche mit der neuesten WinRar-Version gepackt wurde.

[santana]

Hallo Case,

ich glaub dir natürlich, dass es bei dir geht. Kann sein, dass unterschiedliche Computereinstellungen

dafür verantwortlich sind. Und wahrscheinlich noch viele andere Möglichkeiten.

Mir fiel pllötzlich auf, dass wenn ich die cmd.exe auslöse, dort immer ein voreingestellltes Verzeichnis steht.

Genau das wo die Dateien immer entpackt wurden. Das habe ich dann über den Zwischenschritt

einer Bat ausgeglichen. Jetzt versuche ich erstmal an den Befehl zu kommen, dass cmd.exe

das Verzeichnis angibt, in dem die Test.rar gibt. Danach gibt's noch unendliche viele

Möglichkeiten dies alles zu verfeinern.

[snb]

Unzip in VBA:

Code:

Sub M_snb()
   M_snb_zipex "J:\Python\database\database.zip", "G:\xyz"
End Sub

Sub M_snb_zipex(file, Destination)
    If Dir(file) = "" Then Exit Sub
    With CreateObject("shell.application")
       If Dir(Destination, 16) = "" Then .Namespace(Split(Destination, ":")(0) & ":").NewFolder Mid(Split(Destination, ":")(1), 2)
       .Namespace(Destination).CopyHere .Namespace(file).Items
    End With
End Sub

[00202]

Goede morgen snb, :19:

het gaat niet om een Zip-bestand, het gaat om RAR. Dat werkt niet. Maar hier is een link naar een landgenoot van jou:

Ron de Bruin :05:

[WillWissen]

Hallo Case,

übersetzt du uns deinen Beitrag bitte?