批处理之家 - Powered by Discuz! Board

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

作者: mdzzx 时间: 2023-3-29 15:39 标题: 【已解决】求助VBS脚本更改文件后缀名

本帖最后由 mdzzx 于 2023-3-29 17:23 编辑

文件夹中有.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 时间: 2023-3-29 15:54

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

你修改后想改成啥模样？

作者: czjt1234 时间: 2023-3-29 16:09

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 时间: 2023-3-29 17:23

回复 3# czjt1234

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

作者: jyswjjgdwtdtj 时间: 2023-3-29 17:52

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

作者: mdzzx 时间: 2023-3-29 20:01

回复 5# jyswjjgdwtdtj

谢谢谢谢我试试

欢迎光临批处理之家 (http://www.bathome.net/)