Habt Ihr in der Firma noch einen SPS-Programmierer, der sich mal mit Deinem Problem beschäftigen kann? Bei dem was Du machen willst, reicht es nicht, wenn man in einem Forum diffus fragt und nur eine fertige Codezeile abtippen kann, sondern Du musst mitdenken und gezielt testen, wenn es nicht auf Anhieb funktioniert. Wir können nicht sehen, was bei Dir "nicht funktioniert". Damit wir gezielt helfen können, musst Du uns Dein Problem verständlich aufbereiten und aufgetretene (Fehler-)Meldungen mitteilen. Und auch mal Deinen ganzen Skript-Code zeigen, und nicht nur die eine Zeile, die irgendwie nicht funktioniert. Und lies auch mal richtig meine Hinweise und meine Links zum VBS-FAQ.
Wenn Du nicht durch logische Analyse drauf kommst, was warum nicht funktioniert, dann musst Du Test/Debug-Ausgaben in Deinen VBS-Code einbauen (z.B. mit
ShowSystemAlarm), um zu sehen, was genau falsch läuft. Dazu brauchst Du eine Meldeanzeige für den Meldepuffer für Systemmeldungen, wie ich bereits in Beitrag #18 schrieb:
Und der Standard-Tipp: mache Dir in ein Bild eine Meldeanzeige zur Anzeige des Meldepuffers für Meldungen der Meldeklasse "System", damit Du die Runtimefehler-Meldungen sehen kannst. Da steht dann im Klartext drin, was dem VBS nicht gefällt.
Ich versuche jetzt nochmal zu erahnen, wie Dein Code wohl aussieht oder aussehen müsste, und baue Testausgaben mit ein an wichtigen Stellen, wo was schief gehen könnte.
Code:
Sub VBFunktion_2 ()
Dim FSO, t, filename, sourcefile, destfile
Set FSO = CreateObject("FileCtl.FileSystem")
'Dateiformat von "PDF Drucker ist "String_YYYYY_MM_DDHH_MM_SS.pdf"
t = Now ' Systemzeit
filename = "String_" & Year(t) & "_" & Right("0" & Month(t), 2) & "_" & Right("0" & Day(t), 2) _
& Right("0" & Hour(t), 2) & "_" & Right("0" & Minute(t), 2) & "_" & Right("0" & Second(t), 2) & ".pdf"
sourcefile = "\FLASH\" & filename
destfile = "\Storage Card SD\" & filename
ShowSystemAlarm "VBFunktion_2: versuche FileCopy '" & sourcefile & "', '" & destfile & "'" '###Testausgabe: werden die Dateinamen korrekt gebildet?
If FSO.Dir(sourcefile) = "" Then 'If Not FileExist(sourcefile) Then
ShowSystemAlarm "VBFunktion_2: Quelldatei '" & sourcefile & "' nicht gefunden."
Exit sub
Else
If FSO.Dir(destfile) <> "" Then fso.Kill destfile 'Zieldatei darf noch nicht existieren! ggf. vorher löschen
FSO.FileCopy sourcefile, destfile
End If
ShowSystemAlarm "VBFunktion_2: FileCopy fertig" '###Testausgabe: Skript ist bis zum Ende gekommen?
End Sub
Wenn das Skript erfolgreich die Datei kopiert hat, dann wurden 2 Systemmeldungen generiert ("versuche FileCopy..." + "... fertig")
(die Testausgaben können im fertigen Projekt entfernt oder auskommentiert werden)
Wenn es ein Problem gab, dann prüfe, ob die in der ersten Systemmeldung angegebenen Dateinamen korrekt sind und dem gewünschten Dateiname entsprechen. Wenn Systemmeldung "... Quelldatei ... nicht gefunden", dann überprüfen, ob der angegebene Dateiname korrekt ist. Vielleicht
existiert die angegebene Datei einfach
noch nicht, weil die Druckausgabe
noch nicht fertig ist? Oder die Zeitangabe im Dateiname stimmt nicht? Prüfe mit dem Windows Explorer des Comfort Panels, ob überhaupt eine Datei in "\FLASH\" erzeugt wurde und wie die heißt. Vielleicht erzeugt die Druckausgabe einen anderen Dateiname als gedacht?
Harald
www.sps-forum.de
