Ordnerinhalt zippen (in Zip packen)> Zip holen> Ordner del.
19.02.2024 09:49:30
Martin
Ich bin fast ein Idiot in Excel und, wenn was in Code falsch ist, komme ich nicht weiter.
Ich kann manuell:
1. Ordner öffnen >> Strg+A >> R-Maustaste >> Zum Archiv hinzufügen... >> "zip" >> OK.
2. Zip "ausschneiden" >> eine Ebene nach oben "einfügen" >> Ordner "löschen".
Es funktioniert, aber ich habe 20 Ordner im Hauptordner und mache es ein Mal pro Woche. Es dauert.
Ist das möglich zu automatisieren? Alles was ich finde und ausprobiere funktioniert nicht. Z.B.:
Private Sub CommandButton1_Click()
''Dim ZipDatei, Zippen As String
''Const ZipPfad As String = "C:\Program Files\WinRAR\WinRAR.exe" '"D:\Programme\winzip\winzip32.exe"
''Const Pfad As String = "D:\Test"
''ZipDatei = "Test.zip"
''Zippen = " -a " & Pfad & ZipDatei & " " & Pfad & "*.*"
'#########################
'alle in einem Verzeichnis befindlichen Dateien einzeln Zippen!
Dim sDatei As String
Dim sPfad, zipName As String
sPfad = "D:\Test\" 'hier den Pfadnamen eingeben, bzw ändern!
ChDrive sPfad
ChDir sPfad
sDatei = Dir("*.xlsx") ' txt, dat, xls, xlsm... alle
Do While sDatei > ""
zipName = Left(sDatei, Len(sDatei) - 4) & ".zip" ' oder 5?
Shell "C:\Program Files\WinRAR\WinRAR.exe -a" & sPfad & zipName & " " & sDatei
'Shell "-a " & "C:\Program Files\WinRAR\WinRAR.exe" & sPfad & zipName & " " & sDatei
sDatei = Dir
Loop
'
MsgBox "Fertig!"
Stop
End Sub
Vielen Dank für Eure Hilfe!