求助:如何批量修改文件名称

蒋海兵　发表于：2007-10-13 11:05:51 　

目前在我的人事管理软件当中,因为工作需要扫描很多证件,比如照片、身份证、毕业证书、学位证书、职称证书等等，我之前的做法是分类放在不同的文件夹当中，并都按照公司的工号进行命名，工号统一按照“600”＋“001”（序列号）编号，比如600001.jpg，但问题是有时候我现在想统一变更一下文件名，比如照片的按照"Z600001.JPG",身份证的按照“C600001.JPG"这种方式进行更改，但现在扫描件的数量有几千条，不可能手工一个个进行修改，不知哪位大侠能够提供帮助。

Top

竹笛发表于：2007-10-13 11:31:51

dim fileNameOld as string

dim fileNameNew as string

dim i as long

dim n as long

n=999 '这里设置为999张照片,根据实际情况进行调整数值大小

for i=1 to n

fileNameOld="600" & format(i,"000") & ".jpg"

fileNameNew="C" & fileNameOld '身份证扫描件

Name CurrentProject.Path + "\" +fileNameOld As CurrentProject.Path + "\"+fileNameNew
next i

Top