查找可能位于三个位置之一的文件

Question

我需要编写一个可以查找文件的vba脚本。该文件可能在三个不同的位置

我如何找到文件的位置？

文件必须具有特定的字符串作为文件名的一部分

我的文件名可以是9424.bas或9424a.esy或9424_.bas或9424 ... ESY，我dotn知道是什么文件名称完全只是我知道的重要人物9424

Answer 1

If Dir("file_location_1") <> "" Then 
    ''# File is in 1 
ElseIf Dir("file_location_2") <> "" Then 
    ''# File is in 2 
ElseIf Dir("file_location_3") <> "" Then 
    ''# File is in 3 
Else 
    ''# File is not found 
End If 

三年多的可能位置的数组和For循环将是更好的解决方案。

Answer 2

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

If fso.FileExists("folder1" + "filename") then 
    ' folder1 
ElseIf fso.FileExists("folder2" + "filename") then 
    ' folder2 
ElseIf fso.FileExists("folder3" + "filename") then 
    ' folder3 
End If