ProTool VBS Datei kopieren

[RyanB]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Leute,

ich möchte gerne in ProTool/Pro mit Visual Basic Script eine Datei kopieren und sie dann mit dem aktuellen Datum und der Zeit umbenennen.

Neuer Dateiname z.B.: 051005_1043.xls

Ich habe zunächst erstmal versucht eine Datei zu kopieren und da traten schon die ersten Probleme auf. Ich bekomme beim Befehl "FileCopy" immer einen Fehler.

Mein Quellcode sieht so aus:

Dim QuellName
Dim ZielName


QuellName = "C:\Temp" & "\Test.txt"
ZielName = "C:\Temp" & "\Kopie von Test.txt"

filecopy QuellName, ZielName


Was mache ich falsch?

Danke im Voraus !

Bryan

 

[volker]

http://www.sps-forum.de/phpBB2/viewtopic.php?t=5005

und schau dir mal das vb-script sprachverzeichnis an

der befehl heisst.
Objekt.CopyFile Quelle, Ziel[, überschreiben]

 

[RyanB]

Zuviel Werbung?
-> Hier kostenlos registrieren

Besten Dank für die schnelle Antwort.

Ich habe den Quellcode jetzt so geändert:

Dim QuellName
Dim ZielName
Dim fs

QuellName = "C:\Temp" & "\Test.txt"
ZielName = "C:\Temp2" & "\Test.txt"

Set fs = CreateObject("filectl.filesystem")
fs.filecopy QuellName, ZielName

Die Übersetzung klappt jetzt auch. Allerdings bekomme ich folgende Fehlermeldung wenn ich das Skript verwenden möchte:

20010 Fehler ActiveX-Komponenten kann kein Objekt erstellen 'filectl.filsystem' in Skript <...>

Ich denke mal es leigt am Objekt Typ ?

 

[volker]

'filectl.filsystem' ist für wince systeme
Set fs = CreateObject("Scripting.FileSystemObject") für windows-systeme.

wie gasagt, schau dir mal die vb-script dokumentation an. die ist zusammen mit deinem protool installiert worden.

den link auf das pdf-dokument über die unterschiede win-wince war in dem anderen threat.

und den befehl filecopy gibt es nicht. das heisst copyfile. hab ich oben aber schon erwähnt

 

[Anonymous]

Hallo leute

Probere mal das Script
*************************************************

Dim fso
Set fso = CreateObject("scripting.filesystemobject")
fso.CopyFile SourceFile,DestinationFile,True 'True = overwrite


**************************************************

'SourceFile = z.B "C:\Temp\File.txt"
'DestinationFile =z.B "D:\Temp\File1.txt"

viel Glück

Bashier Wattad-Graeber

 

[RyanB]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ok ich habe es hinbekommen. Hier nochmal mein Quellcode, der funktioniert:

Dim QuellName
Dim ZielName
Dim fs

QuellName = "c:\Temp\Test.txt"
ZielName = "c:\Temp\Test1.txt"


Set fs = CreateObject("scripting.filesystemobject")
fs.copyfile QuellName, ZielName

Mich wundert nur das ProTool beim Übersetzen den Befehl FileCopy nicht angemeckert hat.

Naja ... noch mal besten Dank an alle für die schnelle Hilfe !!!

Grüße,
Bryan