Kopieren von .csv Datei

anze

Level-1
Beiträge
47
Reaktionspunkte
0
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo,

ich habe folgendes Problem:

bin dabei in TIA V13 Proffessional eine .csv Datei von einem Pfad zu einem Zielpfad zu kopieren.
Hierbei habe ich das VBScript geschrieben:

Code:
Dim filesystem
Dim Jahr
Dim Monat
Dim Tag
Dim Stunde
Dim Minute_


On Error Resume Next
Set filesystem = CreateObject("FileCtl.Filesystem")


Jahr= Year 
Monat = Month
Tag = Day
Stunde = Hour
Minute_ = Minute



filesystem.FileCopy "C:\Users\Desktop\Archiv\test.csv", "C:\Users\Desktop\Archiv2\test &Jahr&"_"&Monat&"_"&Tag&"_"&Stunde&"_"&Minute_&".csv"


Set filesystem=Nothing

Leider funktioniert das nicht. Warum?

Danke schonmal
 
Ich muss jetzt wieder auf Flex verweisen.
Dort würde der Befehl CopyFile heissen und nicht FileCopy. Kann es sein, dass du dich da verschrieben hast ...?
Dann würde man aber außerdem noch ein Flag mit übergeben (True oder False), das besagt, dass eine möglicherweise schon vorhandene Datei gleichen Namens überschrieben werden soll (True) oder nicht (False).

Gruß
Larry
 
so ich habs mal ausprobiert statt FileCopy ---> CopyFile zu nutzen aber leider Ohne Erfolg. Hast du noch ne andere Idee?
Ich probiere auch gleich nochmal CopyLog aus
 
Du hast bereits vor einem Monat Hinweise bekommen, daß sich bei PC-Runtime und WinCE-Panel die VBS-Befehle unterscheiden. Hast Du Dir die im Beitrag #13 verlinkte VBScript-Hilfedatei runtergeladen und angesehen?

Schau Dir mal diesen Thread an, da findest Du Beispielcode zum Dateien kopieren und im Beitrag #9 Hinweise zu einem weiteren VBScript Sprachverzeichnis zum runterladen.

Ist bei WinCC TIA Professional keine VBScript-Hilfe dabei?

Harald
 
Ja hab ich mir runtergeladen, aber konnte irgendwie nicht angezeigt werden siehe Bild

Unbenannt.PNG
Den Beispielcode hab ich gesehen. Aber das ist doch der gleiche Befehl wie ich ihn hab.
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Es heist tatsächlich .CopyFile in Windows, und .FileCopy in Windows CE.

@anze. In den FAQ unter "Windows" gibt es Beispielcode die du verwenden kannst.
Hinweis, File System Objekt ist unterschiedlich, abhängig ob in Windows oder Windows CE.
 
Den Beispielcode hab ich gesehen. Aber das ist doch der gleiche Befehl wie ich ihn hab.
Für mich sieht das irgendwie nicht gleich aus ;)
Du hast
Code:
Set filesystem = CreateObject([COLOR="#FF0000"]"FileCtl.Filesystem"[/COLOR])
[...]
filesystem.[COLOR="#FF0000"]FileCopy[/COLOR] "C:\Users\Desktop\Archiv\test.csv", "C:\Users\Desktop\Archiv2\[COLOR="#FF0000"]test &[/COLOR]Jahr&"_"&Monat&"_"&Tag&"_"&Stunde&"_"&Minute_&".csv"


Der Beispielcode zeigt:
Wenn Du mehrere Dateien nach Muster (z.B. "2015*.csv") oder alle Dateien ("*.*") eines Ordners in einen anderen Ordner kopieren willst, dann ist die CopyFile-Methode besser geeignet.
Code:
fso.[COLOR="#0000FF"][/COLOR][COLOR="#0000FF"]CopyFile[/COLOR] Quelle, Ziel[, Überschreiben]


Daraus solltest Du etwa sowas machen:
Code:
Dim fso, t, s

t = Now ' Systemzeit
s = DatePart("yyyy", t) & Right("0" & DatePart("m", t), 2) & Right("0" & DatePart("d", t), 2) & "_" _
  & Right("0" & DatePart("h", t), 2) & Right("0" & DatePart("n", t), 2)

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\Users\Desktop\Archiv\test.csv", "C:\Users\Desktop\Archiv2\test_" & s &".csv"

Harald
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Also, ist das Windows (PC) oder Windows CE (Panel) ?
Das ist bis jetzt nicht beantwortet.

@Harald.
"set fso = createobject("Scripting.Filesystemobjekt") ist für Windows CE.
"fso.copyfile" ist für PC Windows.
 
Code:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile QuellDatei , ZielDatei

Der obige Code sollte funktionieren.
Wenn es bei dir nicht funktioniert - welche Meldung gibt es denn ?
Existiert die Quelldatei, das Ziel-Verzeichnis ?

Gruß
Larry
 
das skript sieht so aus (nur nochmal zur sicherheit)

Code:
Dim fs

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "C:\Users\Desktop\Archiv\test.csv", "C:\Users\Desktop\Archiv2\test.csv"
 
Zurück
Oben