Check if file exists in VBscript (WinCC Flex)

[userxyz]

What do I need:
When They want to do an Import, this is called:

DeleteDataRecordMemory hmiFlashMemory, hmiOff, hmiOn, SmartTags("PERS_REC_MEMORY_CLEAR")

If Err.Number <> 0 Then
	ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
	Err.Clear 
	Exit Sub
End If
ImportDataRecords "\\pcg4\Shared\recs_PERSPROGRAMMA.csv", 0, hmiOverwriteAlways, hmiOn, SmartTags("IMPORT_PERS_STATUS")
If Err.Number <> 0 Then
	ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
	Err.Clear 
	Exit Sub
End If

But now I want to check first if the csv file exists ==>> Try:

Dim f, fs, filename

Set f= CreateObject("filectl.file")
Set fs = CreateObject("filectl.filesystem")

filename="\\pcg4\Shared\recs_PERSPROGRAMMA.csv"
If fs.dir(filename) = "\\pcg4\Shared\recs_PERSPROGRAMMA.csv" Then 
'IMPORT POSSIBLE
End If

Or is this the way to go:

filename="\\pcg4\Shared\recs_PERSPROGRAMMA.csv"
If fs.dir(filename) = "" Then
'end
Else
'import
End If

Should this work or should it be written in an other way ?

Thanks in advance,
regards,
Combo

 

[CharlesM]

The file system object has a check called FileExists.

dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
filesys.CreateTextFile "c:\somefile.txt", True
If filesys.FileExists("c:\somefile.txt") Then
filesys.DeleteFile "c:\somefile.txt"
Response.Write("File deleted")
End If

http://www.devguru.com/technologies/vbscript/quickref/filesystemobject_fileexists.html

 

[userxyz]

I forgot

I forgot to mention that it's on Windows CE (MP277). FileExists in VB-CE not possible I think...

Kind regards,
Combo

The file system object has a check called FileExists.




http://www.devguru.com/technologies/vbscript/quickref/filesystemobject_fileexists.html