Неопределенная переменная «Файл» в 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 

Для кода вместе с другими Dim с.