VBScript中未定义的变量“文件”

Question

我有这个应该写入目录中每个文件的 VBScript 代码：

Option Explicit

Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")

Dim dir: dir = fso.GetAbsolutePathName(".") & "/important/"

For Each file In fso.GetFolder(dir).Files
    If UCase(fso.GetExtensionName(file.Name)) = "JS" Or UCase(fso.GetExtensionName(file.Name)) = "VBS" Then
        Dim op: Set op = file.OpenAsTextStream(2,-2)
        op.Write "This file has been written!"
        op.Close
    End If
Next

MsgBox("Done!")

但是 Windows 脚本主机一直在抱怨并告诉我我有一个未定义的变量，名为“文件”。错误发生在第 7 行。我不知道为什么会发生此错误，非常感谢您的帮助。

Answer 1

Option Explicit 表示所有变量必须在使用前声明。

file 变量未声明，添加：

Dim file

到您的代码以及其他Dims。