VBScript For Each 不工作

Question

我无法在 VBScript 中使用以下函数。我试图获取文件夹中的所有文件并循环遍历它们以获得编号最高的文件。 (文件名格式为 log_XXX.txt) 我遇到的问题是代码从未进入我的 For Each 循环。我是 VBScript 的新手，但我似乎不明白为什么这行不通。

Function GetFileNumber(folderspec)
   Dim fso, f, f1, fc, s, tempHighNum
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   WScript.Echo f.Files.Count : rem prints 3
   Set fc = f.Files
   WScript.Echo fc.Count : rem prints 3
   Set tempHighNum = "000"
   For Each f1 in fc
      WScript.Echo f1.Size : rem does not print
      WScript.Echo f1.Type : rem does not print
      WScript.Echo f1.Name : rem does not print       
      s = Right(f1.name,3)
      IF NOT(ISNULL(s)) THEN
        IF (s > tempHighNum) THEN
            tempHighNum = s
        END IF
      END IF
   Next
   GetFileNumber = tempHighNum
End Function

Answer 1

改变这一行:

Set tempHighNum = "000"

以下内容:

tempHighNum = "000"

您正试图将 tempHighNum 变量设置为字符串类型。因此，您不应使用 Set 关键字。 Set 仅在将对象类型分配给变量时才需要。