Ordner compress/decompress

Forumthread: Ordner compress/decompress

28.10.2005 23:30:17

Dieter

Hallo Leute,
das VBA-OBbjektmodell gibt keine Komprimierung(Windows, nicht zip) von
Ordnern her. Gibt es dennoch eine Möglichkeit?
Grüße Dieter

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner compress/decompress

28.10.2005 23:42:45

Matthias
AW: Ordner compress/decompress

28.10.2005 23:47:16

Dieter
AW: Ordner compress/decompress

28.10.2005 23:54:10

Matthias
AW: Ordner compress/decompress

29.10.2005 00:04:23

Dieter
Noch offen! owT

29.10.2005 00:08:11

Dieter
AW: Noch offen! owT

29.10.2005 01:09:45

Erich
AW: Noch offen! owT

29.10.2005 01:26:46

Dieter

AW: Ordner compress/decompress

28.10.2005 23:42:45

Matthias

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

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

Noch offen! owT

29.10.2005 00:08:11

Dieter

AW: Noch offen! owT

29.10.2005 01:09:45

Erich

Hallo Dieter,
vielleicht habe ich den Beitrag zum Zippen gefunden:
hier: https://www.herber.de/forum/archiv/684to688/t684178.htm
verweist auf: http://www.online-excel.de/fom/fo_read.php?f=2&bzh=288&h=288
verweist auf: http://www.rondebruin.nl/windowsxpzip.htm
Ist für WinXP - also wohl richtig für deine Umgebung.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Noch offen! owT

29.10.2005 01:26:46

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
Option Explicit

'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 As String
    Dim DoIt As Variant
    toComp = "F:\Test\" 'Auf Backslash am Ende achten
    DoIt = Shell("compact /c /i /s:" & toComp & "*.*")
End Sub

Sub Compress_Specific_Files()
    'by Ramses
    'Komprimiert nur spezifische Dateien in einem bestimmten Ordner
    Dim toComp As String
    Dim toCompFile As String
    Dim DoIt As Variant
    toComp = "F:\Test\" 'Auf Backslash am Ende achten
    toCompFile = "*.txt"
    DoIt = Shell("compact /c /s:" & toComp & toCompFile)
End Sub

Sub UnCompress_Folder_Or_Files()
    'by Ramses
    Dim toComp As String
    Dim DoIt As Variant
    toComp = "F:\Test\" 'Auf Backslash am Ende achten
    DoIt = Shell("compact /u " & toComp & "*.*")
End Sub

Gruss Rainer

Da hab ich nicht aufgepasst und zuviel gelöscht.

Beliebteste Forumthreads (12 Monate)

Forumthread: Ordner compress/decompress

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread