VBScript遍历文件夹打开文件失败求助：硬编码可行传参失败

你的代码核心问题是文件路径包含空格时，WScript.Shell.Run方法会将空格视为命令参数的分隔符，导致系统无法识别完整的文件路径。你硬编码的那行代码通过三重引号包裹路径解决了这个问题，但循环中直接传递objFile.Path时没做同样处理。

修正后的代码如下：

Set objFSO = Createobject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\temp\FCW")
For Each objFile in objFolder.Files
   If LCase(Right(objFile.Path, 4)) = ".fcw" Then   
    ' 用三重引号包裹文件路径，处理空格问题
    CreateObject("WScript.Shell").Run("""" & objFile.Path & """")
   End If
Next 

另外补充两个实用优化点：

• 用GetExtensionName判断后缀更稳妥，避免文件名长度不足4时出错：LCase(objFSO.GetExtensionName(objFile)) = "fcw"
• 提前创建WScript.Shell对象，不用每次循环重复创建：

Set objFSO = Createobject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objFolder = objFSO.GetFolder("C:\temp\FCW")
For Each objFile in objFolder.Files
   If LCase(objFSO.GetExtensionName(objFile)) = "fcw" Then   
    objShell.Run("""" & objFile.Path & """")
   End If
Next 

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