Hallo zusammen,
Ich habe via Google ein VBScript geschrieben, welches .txt Dateien in einen Zip-Ordner kopiert.
Die .txt erhalte ich über eine Schnittstelle in die bestimmten Ordner.
Es werden Zip-Ordner nach Monat + Jahr erstellt ausgehend vom Erstelldatum der .txt Dateien.
Also wird entweder ein neuer Zip-Ordner erstellt oder in einen bestehenden Zip-Ordner Dateien hinzugefügt.
Manchmal passiert es, dass man eine Datei vergessen hat, via Schnittstelle zu übertragen und diese im Nachhinein macht.
Dies kann dazu führen, dass die später eingereichte Datei und eine Datei in einem bereits vorhandenen Zip-Ordner den gleichen Namen haben.
Dadurch erhalte ich die Standard Windows Meldung, ob ich die Datei Kopieren soll oder überschreiben etc.
Nun würde ich diese Meldung gerne ignorieren, dass ich sage: "Falls der Name bereits existiert; Überspringen".
Leider habe ich dies nicht hinbekommen und würde gerne um eure Hilfe oder euren Rat fragen.
Hier mein Code:
Natürlich habe ich gesehen, dass auf msdn.microsoft.com/en-us/library/ms630707.aspx geschrieben steht, dass bei .zip einige Optionen ignoriert werde.
Jedoch hat bei mir keines funktioniert.
Gruss
Ovoxo
Ich habe via Google ein VBScript geschrieben, welches .txt Dateien in einen Zip-Ordner kopiert.
Die .txt erhalte ich über eine Schnittstelle in die bestimmten Ordner.
Es werden Zip-Ordner nach Monat + Jahr erstellt ausgehend vom Erstelldatum der .txt Dateien.
Also wird entweder ein neuer Zip-Ordner erstellt oder in einen bestehenden Zip-Ordner Dateien hinzugefügt.
Manchmal passiert es, dass man eine Datei vergessen hat, via Schnittstelle zu übertragen und diese im Nachhinein macht.
Dies kann dazu führen, dass die später eingereichte Datei und eine Datei in einem bereits vorhandenen Zip-Ordner den gleichen Namen haben.
Dadurch erhalte ich die Standard Windows Meldung, ob ich die Datei Kopieren soll oder überschreiben etc.
Nun würde ich diese Meldung gerne ignorieren, dass ich sage: "Falls der Name bereits existiert; Überspringen".
Leider habe ich dies nicht hinbekommen und würde gerne um eure Hilfe oder euren Rat fragen.
Hier mein Code:
Quellcode
- With oFSO
- zipFile = .GetAbsolutePathName(zipFile)
- sFolder = .GetAbsolutePathName(sFolder)
- If(oFSO.FileExists(zipFile) = False) Then
- With .CreateTextFile(zipFile, True)
- .Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, chr(0))
- End With
- End If
- End With
- With oSAP
- .NameSpace(zipFile).CopyHere .NameSpace(sFolder).Items
- Do Until .NameSpace(zipFile).Items.Count = _
- .NameSpace(sFolder).Items.Count
- WScript.Sleep 1000
- Loop
- End With
Natürlich habe ich gesehen, dass auf msdn.microsoft.com/en-us/library/ms630707.aspx geschrieben steht, dass bei .zip einige Optionen ignoriert werde.
Jedoch hat bei mir keines funktioniert.
Gruss
Ovoxo
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Ovoxo“ ()