主题：可以将一个文件夹里的所有文件按照另一个文件夹的所有文件名+一个字母重命名吗？

想尝试一下，可以做到吗？

请具体说明一下你的问题。

 

逻辑是什么？根据什么逻辑重命名？举例说明。

 

http://www.foxtable.com/webhelp/scr/0331.htm

 

不是逻辑命名。是文件夹A里有若干个文件，命名无规则。另一个文件夹里有同样树木的文件，希望用A中的文件名+一个字母命名。可以吗？

 

不理解你的意思，根据什么匹配对应的文件。比如文件夹有 a、b、c 三个文件，另一个有 123、456、789 三个文件，如何匹配和重命名？逻辑是什么？

比如文件夹A有 a、b、c 三个文件，另一个文件夹B有三个文件随便什么名字顺序都可以，把它们分别命名成a、b、c。

如

 

Dim files1 = FileSys.GetFiles("d:\")
Dim files2 = FileSys.GetFiles("c:\")
If files1.count >= files2.count Then
    For i As Integer = 0 To files2.count-1
        If FileSys.GetName(files2(i)) <> FileSys.GetName(files1(i)) Then
            FileSys.RenameFile(files2(i), FileSys.GetName(files1(i)))
        End If
    Next
Else
    msgbox("文件不够")
End If