批量更改文件名

Question

各位大哥好:
    有一批文件的文件名和Access中的一个字段里的数据匹配的,我想把这批文件的文件名改成Access另一个字段里的,请问在VB6里怎样实现,谢谢!!

Answer 1

有一批文件的文件名和Access中的一个字段里的数据匹配的,我想把这批文件的文件名改成Access另一个字段里的,请问在VB6里怎样实现,谢谢!!
查询然后根据字段改名，如果字段包含完全路径，就直接如下
用循环
do while !rs.eof
   Name rs.fileds("字段1") as rs.fileds("字段1")
   rs.movenext
loop

Answer 2

这个也行do while !rs.eof
   shell "rename C:\" rs.fileds("字段1")  & " "& rs.fileds("字段1")
   rs.movenext
loop