怎么批量修改文件夹下的照片名?

ylj26518

比方说,文件夹下有很多照片,现在要根据原来的号码,批量换成新文件名,不知道怎么搞?编了个程序,运行说类型不匹配,请大家指点一下。文件下后放在D盘

ylj26518

这个附件里用了dir,但是不运行,能烦请盗梦 改一下吗?弄了几天了,不知道怎么弄?

ynjxw

原因是少了.jpg

roych

不需要那么复杂的，用name as 试试？

1. Private Sub Command0_Click()
   
2. Dim i As Long
   
3. For i = 1 To 4
   
4.     Name CurrentProject.Path & "" & i & ".jpg" As CurrentProject.Path & "" & DLookup("zpm", "表1", "id='" & i & "'") & ".jpg"
   
5. Next
   
6. MsgBox "done"
   
7. End Sub
   

复制代码

ylj26518

非常感谢！如果照片名不规则，id字段下是a,b,c,d或其它不规则的名字, 语句Name CurrentProject.Path & "\" & i & ".jpg" As CurrentProject.Path & "\" & DLookup("zpm", "表1", "id='" & i & "'") & ".jpg"中
"id='" & i & "'") & ".jpg怎样改一下。

ylj26518

roych 的for循环是因为ID有规则的1，2，3，如无规则的，像09001，09100，09300，很多，怎么编代码呢？

盗梦

ylj26518 发表于 2014-12-15 12:53
roych 的for循环是因为ID有规则的1，2，3，如无规则的，像09001，09100，09300，很多，怎么编代码呢？

用Dir()函数遍历文件夹的文件