ich versuche mir ein Programm zu schreiben das mir mein Verzeichnis auf dem Server durchsucht und alle Dateien die älter als 1 Jahr sind in eine zip Datei ins Verzeichnis packt. (Im Beispiel in das PRU Verzeichnis also alle Dateien in eine Pru.zip)
Das Programm was ich bisher habe packt auch Dateien aber nicht ganz so wie ichs gerne hätte.
(Das Zippen Modul habe ich aus dem Forum und versucht für meine Belange anzupassen.)
Sub Datlisting()
Dim ausw As Boolean
Dim smod As Single
Dim lngAkt As Long
Dim rngBereich As Range
Dim rngZelle As Range
Dim Datpath As String
Dim Datpath1 As String
verzeichnis = InputBox(("Bitte Pfad eingeben!"), "Verzeichnisse in Tabelle1", "K:\PRU")
Sheets("tabelle1").Select
With Application.FileSearch
.NewSearch
.LookIn = verzeichnis
.SearchSubFolders = False
.Filename = "*.*"
.Execute
For lngAkt = 1 To .FoundFiles.Count
Datpath = Mid(.FoundFiles.Item(lngAkt), Len(verzeichnis) + 1)
Datpath1 = verzeichnis & Datpath
Cells(lngAkt + 1, 1) = Mid(.FoundFiles.Item(lngAkt), Len(verzeichnis) + 1)
Cells(lngAkt + 1, 2) = FileDateTime(Datpath1)
Call Zippen(Datpath, Datpath1)
Next lngAkt
End With
End Sub
Sub Zippen(Datpath, Datpath1)
zipName = Left(Datpath, Len(Datpath) - 4) & ".zip"
Shell "c:\programme\winzip\winzip32.exe -min -a " & zipName & " "
End Sub
Zum einen fehlt die Zeitabfrage(Das Erstelldatum schreibe ich zum Test fortlaufend zum Dateipfad/name in eine Datei) Das was da weggeschrieben wird ist aber schwierig(bzw für mich gar nicht) zu verarbeiten
Ich hoffe die Frage ist halbwegs verständlich gestellt!?
Kann jemand helfen?
Vielen Dank im Vorraus für eure Mühe!
Gruß
Lothar