vbscript - 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 Script Host 不断抱怨并告诉我我有一个未定义的变量，名为“file”。错误发生在第 7 行。我不知道为什么会发生此错误，非常感谢您的帮助。

Answer 1

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

变量未file声明，通过添加：

Dim file

将您的代码与其他Dims 一起。