Skript Archive kopieren

[TMaroni]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Jungs

Unten ist ein Skript aufgeführt, den ich selber geschrieben habe und wollte wissen, ob es funktioniert.
Im Skript schreiben bin ich deutlich einen Anfänger und deshalb brauche ich Eure Hilfe.
Funktion:
Das Skript wird im Aufgabenplaner aufgerufen, und die Archive werden auf dem USB-Stick kopiert, wenn
der Schalter Export Archive auf True und der USB-Stick im Panel eingesteckt ist.

'Export von Archive:
Dim Pfad, Ordner, fs, Index
Set fs = CreateObject("FileCtl.Filesystem")
Pfad = "Storage Card USB"
Ordner = "Test1"
If SmartTags("Schalter_Export_Archive")= True Then
For Index = 1 To 15000
If fs.Dir("" & Pfad) = "" And Index >= 15000 Then
ShowSystemAlarm "Storage Card USB nicht vorhanden!"
Exit Sub
ElseIf fs.Dir("" & Pfad) = Pfad Then
If fs.Dir("" & Pfad & "" & Ordner, 16) = "" Then
fs.mkdir "" & Pfad & "" & Ordner
CloseAllLogs
ArchiveLogFile hmiDataLog, "Archiv1", "" & Pfad & "" & Ordner, hmiCopy
ArchiveLogFile hmiDataLog, "Archiv2", "" & Pfad & "" & Ordner, hmiCopy
OpenAllLogs
Exit For
Else
CloseAllLogs
ArchiveLogFile hmiDataLog, "Archiv1, "" & Pfad & "" & Ordner, hmiCopy
ArchiveLogFile hmiDataLog, "Archiv2", "" & Pfad & "" & Ordner, hmiCopy
OpenAllLogs
Exit For
End If
End If
Next
End If

' Fehlerbehandlung
If Err.Number <> 0 Then
' Kopierauftrag mit Fehlern beendet/abgebrochen
ShowSystemAlarm "Fehler/fault: " & Err.Description
Err.Clear
Exit Sub
End If
' Verwendeten Speicher wieder freigeben
Set fs = Nothing

Danke!

Gruss
TMaroni

 

[TMaroni]

Kann mir niemand einige Tipps geben zu meinem Skript?

gruss
Tmaroni