用于文件重命名的简单 VBscript。条件错误

Question

我正在尝试根据文件长度重命名一堆文件。这是我的代码：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set Folder = objFSO.GetFolder(".\")

For Each File In Folder.Files

    sNewFile = File.Name

    If (sNewFile.Len < 8) Then
        sNewFile = Replace(sNewFile, "Slide_", "Mod2_P4_I2_0")
    Else
        sNewFile = Replace(sNewFile, "Slide_", "Mod2_P4_I2_")
    End If

    If (sNewFile <> File.Name) Then
        File.Move (File.ParentFolder + "\" + sNewFile)
    End If

Next

我在第一个 If 语句中收到此错误：

Object required: sNewFile

我想我不能在该对象上使用 'len'，但我还能如何获得条件的文件名长度？提前致谢

Answer 1

在 VBScript 中使用 Len 函数:

Len(string | varname)

这是供您参考的函数的 VBA 参考：Len function

以下内容应该适用于您的代码：

If Len(sNewFile) < 8 Then

用于文件重命名的简单 VBscript。条件错误

Simple VBscript for file rename. Error on conditional

vbscript