VBA用FileSystemObject检测jpg文件存在性返回False问题咨询

fso.FileExists返回False的核心问题出在路径拼接环节：你手动拼接sPath & fn时，没有处理sPath末尾的路径分隔符，一旦sPath末尾没有自带\，拼接出的实际路径会变成类似C:\Users\Future\DesktopScreenshot_xxx.jpg的无效路径，自然会判定文件不存在。
另外你的Do While循环存在逻辑冗余：第一次拿到fn后直接执行Exit Do，后面的fn = Dir属于永远不会执行的无效代码，虽然不影响首次取文件的结果，但如果后续要遍历所有jpg文件会直接出错。

• 不要手动拼接路径，直接用FileSystemObject自带的BuildPath方法处理路径拼接，该方法会自动判断路径末尾是否存在分隔符，自动补全\，从根源避免拼接错误
• 清理冗余的循环逻辑，不需要的无效代码直接删除
• 校验文件前可以先打印完整拼接路径，方便快速排查问题

修复后的完整代码如下：

Set fso = CreateObject("Scripting.FileSystemObject")
' 自动拼接通配符路径，无需手动处理反斜杠
fn = Dir(fso.BuildPath(sPath, "*.jpg"))
Dim sFile As String
If fn <> "" Then
    sFile = fso.BuildPath(sPath, fn)
End If
' 调试时先输出路径确认正确性
Debug.Print "待校验文件路径：" & sFile
Debug.Print "文件存在性校验结果：" & fso.FileExists(sFile)

如果替换代码后仍然返回False，优先排查两点：

1. 你设置的sPath路径是否真实存在，很多用户会把桌面路径手动写为C盘对应目录，但实际桌面可能被迁移到其他盘符
2. 目标文件名是否存在不可见特殊字符、或者文件被其他程序占用锁定

运行效果参考：

内容的提问来源于stack exchange，提问作者YasserKhalil