Question

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

我如何找到文件的位置？

文件必须具有特定字符串作为文件名

的一部分

我的文件名可以是9424.bas或9424a.esy或9424_.bas或9424 ... esy，我知道文件名究竟是什么但我知道重要人物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

对于三个以上可能的位置，Array和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

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

2 个答案: