세 위치 중 하나에있을 수있는 파일 찾기

Question

파일을 찾을 vba 스크립트를 작성해야합니다. 파일은 세 곳의 다른 위치에있을 수 있습니다.

파일의 위치는 어떻게 찾습니까?

파일 내가 어떤 파일을 알고 dotn, ESY ...

내 파일 이름이 9424.bas 또는 9424a.esy 또는 9424_.bas 또는 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 

9424을 알고 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