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

2024-05-21 • 问答

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

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,"Mod2_P4_I2_")
    End If

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

Next

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

所需对象：snewFile

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

HAHA362 回答：用于文件重命名的简单VBscript。条件错误

在VBScript中使用Len函数：

Len （字符串 | 变量名）

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

以下内容应在您的代码中起作用：

If Len(sNewFile) < 8 Then

vbscript

本文链接：https://www.f2er.com/3162965.html

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

HAHA362 回答：用于文件重命名的简单VBscript。条件错误

大家都在问