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

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

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

Set objFSO=CreateObject（“Scripting.FileSystemObject”）
Set Folder=objFSO.GetFolder（“.\”）
对于文件夹.Files中的每个文件
sNewFile=File.Name
如果（sNewFile.Len<8），则
sNewFile=替换（sNewFile，“幻灯片”、“模块2\u P4\u I2\u 0”）
其他的
sNewFile=替换（sNewFile，“幻灯片”、“模块2\U P4\U I2”）
如果结束
如果是（sNewFile File.Name），则
File.Move（File.ParentFolder+“\”+sNewFile）
如果结束
下一个

我在第一个

If

语句中遇到此错误：

所需对象：sNewFile

---

我想我不能在那个对象上使用'len'，但是我怎样才能得到我的条件文件的文件名长度呢？提前感谢

使用VBScript中的

Len

功能：

Len（string | varname）

以下是函数的VBA参考，供您参考：

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

If Len(sNewFile) < 8 Then

如果Len（sNewFile）<8，则

很高兴我能帮忙。如果有机会，请使用答案左侧的灰色复选标记将问题标记为已回答。