Kopieren von .csv Datei

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #1

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

 

JesperMP

Level-3

Power-User

Beiträge

8.412

Reaktionspunkte

1.947

• 14 Dezember 2015

• #2

Dein Pfad (C:\User\Desktop\Archiv) scheint zu passen zu ein Windows PC.
Aber dein Code passt zu Windows CE.

Hast du diesen FAQ gelesen ?:
Protool/WinCCflex Daten lesen / schreiben mit VB-Script

 

OP

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #3

Oh ok. Und wie kann ich das hinbekommen das der Code passend wird?

 

Larry Laffer

Super-Moderator , User des Jahres 2008-2009

Teammitglied

Power-User

Beiträge

14.554

Reaktionspunkte

3.348

• 14 Dezember 2015

• #4

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

 

JesperMP

Level-3

Power-User

Beiträge

8.412

Reaktionspunkte

1.947

• 14 Dezember 2015

• #5

anze schrieb:

Oh ok. Und wie kann ich das hinbekommen das der Code passend wird?

Zum Vergrößern anklicken....

Ich glaube es gibt fix und fertige Programbesispiele in der FAQ.

 

Larry Laffer

Super-Moderator , User des Jahres 2008-2009

Teammitglied

Power-User

Beiträge

14.554

Reaktionspunkte

3.348

• 14 Dezember 2015

• #6

anze schrieb:

Oh ok. Und wie kann ich das hinbekommen das der Code passend wird?

Zum Vergrößern anklicken....

Hast du meinen Beitrag gelesen ...?

 

JesperMP

Level-3

Power-User

Beiträge

8.412

Reaktionspunkte

1.947

• 14 Dezember 2015

• #7

Larry, meinst du vielleicht "CopyLog" ?

 

OP

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #8

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

 

OP

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #9

CopyLog ist nur für Advanced und nicht für Professional

 

PN/DP

User des Jahres 2011-2013; 2015-2017; 2020-2022

FAQ-Team

Power-User

Beiträge

22.091

Reaktionspunkte

6.872

• 14 Dezember 2015

• #10

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

 

OP

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #11

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


Den Beispielcode hab ich gesehen. Aber das ist doch der gleiche Befehl wie ich ihn hab.

 

JesperMP

Level-3

Power-User

Beiträge

8.412

Reaktionspunkte

1.947

• 14 Dezember 2015

• #12

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.

 

OP

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #13

ok. Wo finde ich die FAQ unter Windows? oder meinst du im TIA Portal die Hilfe?

 

PN/DP

User des Jahres 2011-2013; 2015-2017; 2020-2022

FAQ-Team

Power-User

Beiträge

22.091

Reaktionspunkte

6.872

• 14 Dezember 2015

• #14

anze schrieb:

Den Beispielcode hab ich gesehen. Aber das ist doch der gleiche Befehl wie ich ihn hab.

Zum Vergrößern anklicken....

Für mich sieht das irgendwie nicht gleich aus
Du hast

anze schrieb:

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"

Zum Vergrößern anklicken....

Der Beispielcode zeigt:

PN/DP schrieb:

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]

Zum Vergrößern anklicken....

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

 

JesperMP

Level-3

Power-User

Beiträge

8.412

Reaktionspunkte

1.947

• 14 Dezember 2015

• #15

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.

 

OP

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #16

Hab das von Harald ausprobiert und es geht leider nicht. Ich nutze Windows (PC).

 

Larry Laffer

Super-Moderator , User des Jahres 2008-2009

Teammitglied

Power-User

Beiträge

14.554

Reaktionspunkte

3.348

• 14 Dezember 2015

• #17

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

 

OP

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #18

Das funktioniert auch nicht. Es kommen keine Fehlermeldungen.
Die Quelldatei und das Zielverzeichnis existieren auch.
Woran kann das noch liegen?

 

OP

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #19

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"

 

OP

A

anze

Level-1

Beiträge

47

Reaktionspunkte

0

• 14 Dezember 2015

• #20

Ich bin am verzweifeln. ich hoffe es kann mir noch jemand helfen