Vbscript 如何搜索位于桌面上的文件扩展名并更改其文件类型？

当我这样做的时候，我会得到一个错误，说“Expected end of statement.”但是，我不知道在哪里添加end语句。我想做的是让脚本在桌面上搜索具有特定文件扩展名的所有文件（在本例中，我想用.mymom搜索文件扩展名），然后，我想用.ayy更改文件扩展名（这是比较困难的部分），我不知道我的代码是否错误，或者，如果只是结束语句部分。

您得到了错误，可能是因为您在

moveFile

方法中缺少了源文件路径和目标文件路径之间的

，

使用此代码：

User = CreateObject("WScript.Network").UserName ' gets username
Set objFSO = CreateObject("Scripting.FileSystemObject")

Recurse objFSO.GetFolder("C:\Users\" & User & "\Desktop\") ' searches for file extensions in the desktop

Sub Recurse(objFolder)
    Dim objFile, objSubFolder

    For Each objFile In objFolder.Files
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "mymom" Then ' if a file extension is mymom (just a test)
            objFSO.MoveFile objFile.Name objFile.Name & ".ayy" ' changes the file extension to ayy (another test)
        End If
    Next
End Sub

strFinalName = replace(objFile.name, "."&objFso.getExtensionname(objFile.name),".ayy")
objFSO.MoveFile objFile.Name,strFinalName