VBS - Can't find file

[Butterbrot 10]

Hallo zusammen

 

Ich hatte mir ein Script zusammengebaut, welches Informationen aus einem File beschaffen muss. Nachdem ich einen Server mit 4 CPUs während 10 Minuten dauernd mit 25 % ausgelastet hatte merkte ich, dass der Pfad des Files nicht stimmte.... kann mir jemand sagen wie amn diesen Fehler umgehen kann z.B. durch eine schlichte Meldung: Can't find File...!

 

'Constanten deklaration
Const ForReading = 1

'FilePfade bei Bedarf anpassungen nötig
txtcmsPath	= "C:\VBS_Description\cmsexpo"

'ObjektFSO wird definiert
set objFSO = CreateObject("Scripting.FileSystemObject")

'File wird geöffnet
Set objInputcmsFile = objFSO.OpenTextFile (txtcmsPath, 1, false)
[/Code]

 

thx :)

 

Gruess

!- Butterbrot -!

[Butterbrot 10]

Lösung gefunden:

 

If objFSO.FileExists(txtcmsPath) then

 

Wscript.echo "Datei exestiert"

Set objInputcmsFile = objFSO.OpenTextFile (txtcmsPath, 1, false)

...

...

 

else

 

Wscript.echo "Datei ist nicht vorhanden"

 

end if