如何使用VBScript检查文件是否存在

Question

我有一个文件夹里面有很多文件，它看起来像这样：file1.txt、newFile1.txt、file2.txt、newFile2.txt、file3.txt、newFile3.txt、file4.txt、newFile4.txt......

我有一段可以生成newFilei.txt的代码。现在我想编写vbscript来检查这个文件夹中是否存在newFile。我尝试了以下代码：

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 

但这并没有起作用。有什么想法吗？

- KJohn

Answer 1

编辑：这个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 

- Rich

---

FTR，“Scripting.FileSystemObject”是一个COM对象。它与.Net没有任何关系。 - Ansgar Wiechers

每天学点新东西！谢谢Ansgar！ - Rich