Unzippen funtkioniert nicht
30.08.2008 10:48:00
SteffenS
mit dem Code:
Sub test()
Dim objXL As Object
Dim oApp As Object
'Unzip Dateien
path_system = ThisWorkbook.Path & "\1"
DefPath = ThisWorkbook.Path & "\2\12345.zip\"
'Abfrage nach dem Art des entzippens
'Windows XP
Set oApp = CreateObject("Shell.Application")
oApp.NameSpace(path_system).CopyHere oApp.NameSpace(DefPath).items
Set oApp = Nothing
End Sub
Entzippe ich unter Windows XP und Excel 2003 Dateien. Das funktioniert auch einwandfrei.
Unter 2007 und Windows Vista funktioniert dies leider nicht.
Es erscheint immer der Fehler:
Die Methode 'CopyHere' für das Objekt 'Folder3' ist fehlgeschlagen.
Wie bekomm ich die Funktion auch unter Excel 2007 und Vista hin?
Danke im Voraus.
MFG
Steffen Schmerler