Question

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

当我这样做时，我收到一条错误，上面写着“预期结束声明”。但是，我不知道在哪里添加结束语句。我想要做的是我试图让脚本在桌面上搜索具有特定文件扩展名的所有文件（在这种情况下，我想用.mymom搜索文件扩展名）然后，我想要更改文件扩展名.ayy（这是斗争部分）我不知道我的代码是错误的，还是只是结束语句部分。

Answer 1

您收到错误，可能是因为,方法中的源文件路径和目标文件路径之间错过了moveFile

使用此代码：

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

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

1 个答案: