как проверить, существует ли файл с vbscript

У меня есть папка с большим количеством файлов. Похоже на этот файл1.txt, newFile1.тхт, файл2.txt, newFile2.тхт, файл file3.txt, newFile3.тхт, файл file4.txt, newFile4.формат txt. ,...

У меня есть код, который генерирует newFilei.формат txt. Я хочу написать VBScript, который проверяет, существует ли файл в этой папке или нет. Я пробовал это 

Set objFolder = FSO.GetFolder("C:myFolder")

For Each objFile In objFolder.Files 
        fileName=objFile.name 
    If instr(fileName,"newFile*") =1 Then
        WScript.Echo "new File exist"
    End If
Next

но это не работает. есть идеи ?

6
vbscript

1 ответов

Edit: COM-объект сделал это очень просто. 

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

If fso.FileExists("C:\myFolder\newFile.txt") Then
    'Perform Code
End If

или, если вы хотите, чтобы ваш код работал

Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder("C:\myFolder\")
For Each objFile In objFolder.Files 
        fileName=objFile.name 
    If instr(fileName,"newFile") Then
        WScript.Echo "new File found"
    End If
Next

И, собрав все воедино. 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSO.GetFolder("C:\myFolder\")
Set objFiles = objFolder.Files 
For i=0 to objFiles.Count
    If FSO.FileExists("C:\myFolder\newFile" & i & ".txt") Then
        WScript.Echo "new File found"
    End If
Next
10