如何在VBScript中运行字符串相关For循环？附代码报错求助

我来帮你排查下这段VBScript代码的问题，其实主要是几个容易踩的小坑，咱们一步步理清楚：

你的代码存在的核心问题 #

• ReadAll返回的是完整字符串，不是可遍历的路径数组：你用ReadAll把整个文件内容读成了一个大字符串，直接For Each file In filegroup会逐个遍历每个字符，而不是每行的文件路径，这完全不是你想要的效果。
• 字符串拼接语法错误：你在输出语句里写的" The file &file exists"是错误的，VBScript里要拼接变量和字符串，得用&连接，而且要注意引号的位置，否则会把&file当成字符串的一部分输出。
• 冗余的赋值操作：WScript.Echo是直接输出内容的方法，不需要把它的返回值赋值给result，直接调用就行。
• 文件对象未显式关闭：读取完文件后最好显式调用Close()释放资源，避免潜在的文件占用问题。

修正后的代码 #

Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim file, filegroup, fileContent
Set objfile = objFSO.OpenTextFile("D:\Users\krkarthi\Desktop\files_list.txt")

' 读取文件内容并分割为每行的路径数组
fileContent = objfile.ReadAll
objfile.Close() ' 显式关闭文件
filegroup = Split(fileContent, vbCrLf) ' 按Windows换行符分割

For Each file In filegroup
    ' 跳过空行（如果文件末尾有空行的话）
    If Trim(file) <> "" Then
        If objFSO.FileExists(file) = True Then
            WScript.Echo Now & " The file " & file & " exists"
        Else
            WScript.Echo Now & " The file " & file & " does not exist"
        End If
    End If
Next

修正点说明 #

1. 分割字符串为数组：用Split(fileContent, vbCrLf)把读取到的完整文本按Windows标准换行符（回车+换行）分割成路径数组，这样For Each就能遍历每一行的文件路径了。
2. 修复字符串拼接：把" The file &file exists"改成" The file " & file & " exists"，这样变量file的值才会被正确插入到输出字符串中。
3. 添加空行判断：加上Trim(file) <> ""可以跳过文件中的空行，避免无效的存在性检查。
4. 显式关闭文件：调用objfile.Close()确保文件资源被正确释放。

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