Hallo
Ich brauche Eure Hilfe.
Ich habe seit langer Zeit eine Batch die mir einiges zippt. ( Worddateien, jede Datei in eine separate zip muss so sein!! )
Die batch in eckiger Klammer
[..... FOR /F "TOKENS=*" %%I IN ('DIR /S /B "F:\*.doc"') DO ( C:\Programme\7-Zip\7za.exe a %%I.zip %%I -sdel ) ......]
Das fukntioniert auch soweit auch gut, nur das ich die Bat immer auf die jeweilige Platte kopieren muss.
Ich würde das gerne mit einem kleinen VB5 Programm lösen.
Einfach über Laufwerksauswahl und einem Button ggf noch auswählen ob die Ursprünglichen Daten gelöscht werden sollen.
Und Ohne das Konsolenfenster.
Ich hab schon etwas mit einer zip-Rotine gefunden, werde daraus aber nicht schlau.
Mein Weiteres Problem ist: Ich habe hier nur einen Windows 7 / 64Bit PC mit VisualBasic 5 und kann an diesem NICHTS ändern.
Die neuen .Net Versionen laufen nicht ( Absturz schon beim Starten )
Vielleicht ist hier jemand so nett und hilft mir dabei.
Liebe Grüße Amelie
.
.
Der Codeschnipsel:
---
Das habe ich mir schon zusammen geschrieben.
Ich brauche Eure Hilfe.
Ich habe seit langer Zeit eine Batch die mir einiges zippt. ( Worddateien, jede Datei in eine separate zip muss so sein!! )
Die batch in eckiger Klammer
[..... FOR /F "TOKENS=*" %%I IN ('DIR /S /B "F:\*.doc"') DO ( C:\Programme\7-Zip\7za.exe a %%I.zip %%I -sdel ) ......]
Das fukntioniert auch soweit auch gut, nur das ich die Bat immer auf die jeweilige Platte kopieren muss.
Ich würde das gerne mit einem kleinen VB5 Programm lösen.
Einfach über Laufwerksauswahl und einem Button ggf noch auswählen ob die Ursprünglichen Daten gelöscht werden sollen.
Und Ohne das Konsolenfenster.
Ich hab schon etwas mit einer zip-Rotine gefunden, werde daraus aber nicht schlau.
Mein Weiteres Problem ist: Ich habe hier nur einen Windows 7 / 64Bit PC mit VisualBasic 5 und kann an diesem NICHTS ändern.
Die neuen .Net Versionen laufen nicht ( Absturz schon beim Starten )
Vielleicht ist hier jemand so nett und hilft mir dabei.
Liebe Grüße Amelie
.
.
Der Codeschnipsel:
Quellcode
- Private Const Quelldokument As String = "C:\TEMP\Test.txt"
- Private Const ZIP As String = "C:\TEMP\Test.zip"
- Private ZIPHeader As String
- Public Sub Zip_komprimieren(ByVal Quelldatei, ByVal Zipdatei)
- Dim SHELL As Object
- Set SHELL = CreateObject("Shell.Application")
- CreateEmptyZip Zipdatei
- SHELL.Namespace(Zipdatei).CopyHere Quelldatei
- Set SHELL = Nothing
- End Sub
- Private Sub CreateEmptyZip(ByVal Zipdatei As String)
- ZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, Chr$(0))
- Open Zipdatei For Output As #1
- Print #1, ZIPHeader;
- Close #1
- End Sub
- Private Sub butZIP_Click()
- Zip_komprimieren Quelldokument, ZIP
- MsgBox "fertig"
- End Sub
---
Das habe ich mir schon zusammen geschrieben.
Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen.
Dieser Beitrag wurde bereits 7 mal editiert, zuletzt von „Amelie“ ()