Hallo Dieter,
ich verstehe nicht, wenn du eine Datei in einem (Windows-)komprimierten Ordner speicherst, hast du dann nicht, was du wolltest?
Gruß Matthias
AW: Ordner compress/decompress
28.10.2005 23:47:16
Dieter
Hallo,
ich möchte Ordner meiner Wahl mittels VBA komprimieren/dekomprimieren.
Du bist ja hier im Forum echt hyperaktiv, aber trotz hoher Antwortfrequenz sehr
effektiv.
Grüße Dieter
AW: Ordner compress/decompress
28.10.2005 23:54:10
Matthias
Hallo Dieter,
schau mal, hier ist was für Dateien: http://www.activevb.de/tipps/vb6tipps/tipp0149.html
VB kann man meist (fast) 1:1 nach VBA übertragen. Du bist ja hier im Forum echt hyperaktiv, aber trotz hoher Antwortfrequenz sehr
effektiv.
Ja ich weiß, ich hab' solche Phasen, aber meist geben die sich wieder und dann ist wieder wochenlang Ruhe ;-)
Grüße,
Matthias
Anzeige
AW: Ordner compress/decompress
29.10.2005 00:04:23
Dieter
Hallo,
danke, das kenne ich, ist aber nicht das, was ich meine. Es muss da noch eine
einfachere Variante für Ordner geben. Ich meine, ich hätte da schon mal eine Lösung hier im Forum gesehen, finde es aber nicht in der Recherche.
Grüße Dieter
Hallo,
ich möchte nicht zippen, sondern mittels Windows komprimieren, so wie es im Explorer
über Eigenschaften, erweitert möglich ist. Ich weiß, dass das geht, hab das hier im Forum auch schon gelesen, nur leider nicht gleich kopiert, ich Depp.
Grüße Dieter
Hallo
ich bin ja kein Profi wie du,... aber damit sollte es gehen OptionExplicit
'Voraussetzungen: 'Betriebssystem W2K oder höher 'Laufwerk muss bereits mit NTFS formatiert sein 'Der aktive Benutzer muss Schreib- und Leserechte 'auf den entsprechenden Rootfolder 'oder zu komprimierenden Folder bzw. Dateien haben
Sub Compress_Folder_And_Files() 'by Ramses Dim toComp AsString Dim DoIt AsVariant toComp = "F:\Test\"'Auf Backslash am Ende achten DoIt = Shell("compact /c /i /s:" & toComp & "*.*") EndSub
Sub Compress_Specific_Files() 'by Ramses 'Komprimiert nur spezifische Dateien in einem bestimmten Ordner Dim toComp AsString Dim toCompFile AsString Dim DoIt AsVariant toComp = "F:\Test\"'Auf Backslash am Ende achten toCompFile = "*.txt" DoIt = Shell("compact /c /s:" & toComp & toCompFile) EndSub
Sub UnCompress_Folder_Or_Files() 'by Ramses Dim toComp AsString Dim DoIt AsVariant toComp = "F:\Test\"'Auf Backslash am Ende achten DoIt = Shell("compact /u " & toComp & "*.*") EndSub