- 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
复制代码
|