[问题求助] 【已解决】求助VBS脚本更改文件后缀名

mdzzx

文件夹中有.jpg.mp4 等多种文件后缀名字  ，如何实现 1.一次一次选择2. 然后将.mp4 后缀的 改名字  3.同时 碰到其他类型文件自动跳过 继续执行4.  然后最后自动停止
我写的这段代码  只能说都是.mp4文件后缀的可以改名字  其他都不能实现  求助大佬怎么修改  代码是东拼西凑的

Dim item,f,Flag
Flag=0
Set qt=CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Call filePath ("D:\aaa")
Sub filePath(path)
Set f = fso.GetFolder(path)
qt.Run("D:\aaa")
For Each item in f.Files
If LCase(Right(item.name, 4)) = ".mp4" Then
   Flag=1
End If
Do while Flag>0
If LCase(Right(item.name, 4)) = ".mp4" Then
    qt.SendKeys"{F2}"
    WScript.Sleep(200)
    qt.SendKeys"{RIGHT}"
    WScript.Sleep(200)
    qt.SendKeys"-2023-3-28"
    WScript.Sleep(200) 
    qt.SendKeys"{ENTER}" 
    WScript.Sleep(500) 
    qt.SendKeys"{DOWN}"
End If 
Loop 
Next 
Set qt=Nothing
WScript.Quit 
Set f = Nothing
Set fso = Nothing
End Sub
复制代码

czjt1234

比如
陈慧娴-飘雪.mp4
赵雷-成都.mp4

你修改后想改成啥模样？

czjt1234

s = "D:\aaa"    '指定一个文件夹

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oWshShell = CreateObject("WScript.Shell")
oWshShell.CurrentDirectory = s
For Each oFile In oFSO.GetFolder(s).Files
    If LCase(Right(oFile.Name, 4)) = ".mp4" Then
        oFile.Name = Left(oFile.Name, Len(oFile.Name) - 4) & "-2023-3-28.mp4"
    End If
Next
复制代码

mdzzx

回复 3# czjt1234


    谢谢大佬 太牛了  我的代码简直太繁琐 而且还有错误  效率低下

jyswjjgdwtdtj

嗯 用shell.application应该会快一点 不过也不会快多少

mdzzx

回复 5# jyswjjgdwtdtj


    谢谢谢谢 我试试