meta data for this page
  •  

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu der Vergleichsansicht

skriptbefehle:ff_zip [2011/12/16 20:27] (aktuell)
Zeile 1: Zeile 1:
 +====== FF_Zip ======
 +\\  Der Befehl //[[http://www.fixfoto.info/onlinehilfe/HH_FF_Zip.html|FF_Zip]]// erzeugt ein ZIP-Archiv, während mit //[[http://www.fixfoto.info/onlinehilfe/HH_FF_UnZip.html|FF_UnZip]]// ein Archiv wieder entpackt werden kann.\\ \\  Mit //FF_Zip// ist es allerdings nicht möglich, den Stammordner mit in das Archiv zu übernehmen. Wird dies benötigt, kann die folgende Routine //FF_ZipWithFolder// verwendet werden:\\ 
 +  Sub FF_ZipWithFolder (sourcefolder, target)
 +      ' erzeugt ZIP-Archiv unter Einschluss der obersten Ordnereben
 +      ' im TEMP-Verzeichnis wird dazu ein temp. Struktur aufgebaut
 +      ' praetor 16.12.2011
 +      Dim fso
 +      Dim oFolder
 +      Dim sTempPath
  
 +      Set fso = CreateObject("Scripting.FileSystemObject")
 +      sTempPath = fso.GetSpecialFolder(2)                    ' TEMP-Verzeichnis ermitteln
 +      If fso.FolderExists (sTempPath & "\FFKonfiTemp\") Then ' Arbeitsordner sicherheitshalber ggf. löschen
 +          fso.DeleteFolder (sTempPath & "\FFKonfiTemp"), True
 +      End If
 +      fso.CreateFolder (sTempPath & "\FFKonfiTemp\"        ' Arbeitsordner im TEMP-Verzeichnis erstellen
 +      Set oFolder = fso.GetFolder(sourcefolder)
 +      oFolder.Copy (sTempPath & "\FFKonfiTemp\"            ' zu packenden Orner in Arbeitsordner kopieren
 +      FF_Zip sTempPath & "\FFKonfiTemp", target              ' Archiv am Zielort erstellen
 +      fso.DeleteFolder (sTempPath & "\FFKonfiTemp"), True    ' Arbeitsordner wieder löschen
 +      Set oFolder = Nothing
 +      Set fso = Nothing
 +   End Sub