excel - 使用 filesystemobject 检查文件是否存在

Question

我创建了一个 Do While 循环来循环使用 .jpg 的文件扩展，以便使用这样的代码发现第一个

fn = Dir(sPath & "*.jpg")
Do While fn <> ""
    sFile = sPath & fn
    Exit Do
    fn = Dir
Loop

后来在代码中，我放了一行来检查文件是否存在，所以我使用了 FileSystemObject像那样

Set fso = CreateObject("Scripting.FileSystemObject")
Debug.Print fso.FileExists(sFile)

但我得到了 False结果在即时窗口中，虽然我希望返回 True文件路径如下 C:\Users\Future\Desktop\Screenshot_2022-06-08-21-25-36-252_com.unicostudio.jpg

Answer 1

在循环部分之后，我使用了一个将英文数字替换为阿拉伯语的 UDF

Public Function ReplaceEnglishNumbers(strInput As String) As String
    Dim numberArray, i As Long
    numberArray = Array("0", ChrW(&H660), "1", ChrW(&H661), "2", ChrW(&H662), "3", ChrW(&H663), "4", ChrW(&H664), "5", ChrW(&H665), "6", ChrW(&H666), "7", ChrW(&H667), "8", ChrW(&H668), "9", ChrW(&H669))
    ReplaceEnglishNumbers = strInput
    For i = 0 To 18 Step 2
        ReplaceEnglishNumbers = Replace(ReplaceEnglishNumbers, numberArray(i), numberArray(i + 1))
    Next i
End Function

我使用循环后的行将英文数字替换为阿拉伯数字

sFile = ReplaceEnglishNumbers(sFile)
Debug.Print fso.FileExists(sFile), sFile

最后，它返回 True，所以问题出在文件名中的数字上。似乎在同一代码中数字的读取方式不同。