VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 161|回复: 1

[求助] 如何 按照 TEXT 每一行的文字 批量文件改名 感激不尽

[复制链接]
发表于 2018-10-23 10:13:00 | 显示全部楼层 |阅读模式
本帖最后由 yuanyong911 于 2018-10-23 13:18 编辑

假设 Text1 是 姓名 Text2 是身份证后四位 我文件夹里有 若干PDF 1.pdf、2.pdf、3.pdf

我想实现 点击 下面的按钮 直接 按照

01.pdf 自动从命名 为 张三 1234.pdf
02.pdf 自动从命名 为 李四 5678.pdf


..... 以此类推

求高手帮我看看。万分感激。

fff.png

求助 批量改改名.zip

2.19 KB, 下载次数: 7

 楼主| 发表于 2018-10-23 13:45:02 | 显示全部楼层
找了一段代码  不知道 如何修改成 我想要的 求高手帮我看看 谢谢了

On Error Resume Next
Dim dir1 As String, tmp As Integer
dir1 = Dir("c:\vb\*.pdf")
If dir1 <> "" Then MkDir "c:\vb\vb1"
While dir1 <> ""
tmp = Split(dir1, ".")(0)
If tmp <> 0 Then
Name "c:\vb\" & dir1 As "c:\vb\vb1\" & (tmp + 7) & ".pdf"
End If
dir1 = Dir

Wend
MsgBox "ok"
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-11-16 13:03

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表