Hallo liebe SPS-Forumler,
ich möchte bei einem TP1200 Comfort viele .csv Dateien von der SD Karte auf einen USB Stick kopieren.
Hierfür nutze ich ein VB Script:
Function CopyLogsToUSB(ByVal Trigger, ByVal SrcPath, ByVal DestPath)
'Variablendeklaration
Dim obj
Dim fs
Dim Zeit, Zeit1, Zeit2
Dim strDatei
'Dim SrcPath
'Dim DestPath
Dim DestPathTemp
Dim DestFolder
'Catch errors -- Fehler abfangen
Err.Clear
On Error Resume Next
'Pfade übernehmen
'rcPath = "\Storage Card USB\Logs\"
'DestPath = "\Storage Card USB2\"
'Neuen Ordner auf USB Stick mit Zeitstempel anlegen
'Aktuellen Zeitpunkt auslesen für Zeitstempel
Zeit = CStr(Now)
'Doppelpunkt aus Zeit durch Unterstrich ersetzen
Zeit = Replace(Zeit,":","_")
'Punkt aus Datum durch Unterstrich ersetzen
Zeit = Replace(Zeit,".","_")
'Ordner "Logs_xx_xx_xx" in Zielpfad anlegen
DestFolder = "Logs" & "_" & Zeit
Set fs = CreateObject("filectl.filesystem")
fs.mkdir(DestPath & DestFolder)
DestPathTemp = DestPath & DestFolder & "\"
ShowSystemAlarm "Zielpfad=" & DestPathTemp
'Dateien von Quellpfad in Zielpfad kopieren
strDatei = fs.dir(SrcPath & "*.csv")
If strDatei <> "" Then
While strDatei <> ""
fs.filecopy SrcPath & strDatei, DestPathTemp & strDatei
strDatei = fs.dir()
Wend
End If
'Fehlerprüfung
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Function
End If
'Aufräumen
Set fs = Nothing
'Rückgabe Wert
CopyLogsToUSB = Trigger
End Function
Ich habe mir die Kopierfunktion aus einem Beitrag bei Siemens abgeschaut.
Leider werden nicht immer alle Dateien aus dem Quellordner in den Zeilordner kopiert.
Mal sind es 120 mal 213 Dateien usw. Die Anzahl ist also immer unterschiedlich.
Hat jemand ne Ahnung wo mein fehler liegen könnte?
Danke schon mal
Gruß TecNic
ich möchte bei einem TP1200 Comfort viele .csv Dateien von der SD Karte auf einen USB Stick kopieren.
Hierfür nutze ich ein VB Script:
Function CopyLogsToUSB(ByVal Trigger, ByVal SrcPath, ByVal DestPath)
'Variablendeklaration
Dim obj
Dim fs
Dim Zeit, Zeit1, Zeit2
Dim strDatei
'Dim SrcPath
'Dim DestPath
Dim DestPathTemp
Dim DestFolder
'Catch errors -- Fehler abfangen
Err.Clear
On Error Resume Next
'Pfade übernehmen
'rcPath = "\Storage Card USB\Logs\"
'DestPath = "\Storage Card USB2\"
'Neuen Ordner auf USB Stick mit Zeitstempel anlegen
'Aktuellen Zeitpunkt auslesen für Zeitstempel
Zeit = CStr(Now)
'Doppelpunkt aus Zeit durch Unterstrich ersetzen
Zeit = Replace(Zeit,":","_")
'Punkt aus Datum durch Unterstrich ersetzen
Zeit = Replace(Zeit,".","_")
'Ordner "Logs_xx_xx_xx" in Zielpfad anlegen
DestFolder = "Logs" & "_" & Zeit
Set fs = CreateObject("filectl.filesystem")
fs.mkdir(DestPath & DestFolder)
DestPathTemp = DestPath & DestFolder & "\"
ShowSystemAlarm "Zielpfad=" & DestPathTemp
'Dateien von Quellpfad in Zielpfad kopieren
strDatei = fs.dir(SrcPath & "*.csv")
If strDatei <> "" Then
While strDatei <> ""
fs.filecopy SrcPath & strDatei, DestPathTemp & strDatei
strDatei = fs.dir()
Wend
End If
'Fehlerprüfung
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Function
End If
'Aufräumen
Set fs = Nothing
'Rückgabe Wert
CopyLogsToUSB = Trigger
End Function
Ich habe mir die Kopierfunktion aus einem Beitrag bei Siemens abgeschaut.
Leider werden nicht immer alle Dateien aus dem Quellordner in den Zeilordner kopiert.
Mal sind es 120 mal 213 Dateien usw. Die Anzahl ist also immer unterschiedlich.
Hat jemand ne Ahnung wo mein fehler liegen könnte?
Danke schon mal
Gruß TecNic
Zuletzt bearbeitet:
