以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  可以将一个文件夹里的所有文件按照另一个文件夹的所有文件名+一个字母重命名吗?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128863)

--  作者:comnets
--  发布时间:2018/12/17 9:27:00
--  可以将一个文件夹里的所有文件按照另一个文件夹的所有文件名+一个字母重命名吗?
想尝试一下,可以做到吗?
--  作者:有点甜
--  发布时间:2018/12/17 9:31:00
--  

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

 

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

 

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

 


--  作者:comnets
--  发布时间:2018/12/17 9:39:00
--  
不是逻辑命名。是文件夹A里有若干个文件,命名无规则。另一个文件夹里有同样树木的文件,希望用A中的文件名+一个字母命名。可以吗?
--  作者:有点甜
--  发布时间:2018/12/17 10:02:00
--  
以下是引用comnets在2018/12/17 9:39:00的发言:
不是逻辑命名。是文件夹A里有若干个文件,命名无规则。另一个文件夹里有同样树木的文件,希望用A中的文件名+一个字母命名。可以吗?

 

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


--  作者:comnets
--  发布时间:2018/12/17 14:23:00
--  
比如文件夹A有 a、b、c 三个文件,另一个文件夹B有三个文件随便什么名字顺序都可以,把它们分别命名成a、b、c。
--  作者:有点甜
--  发布时间:2018/12/17 14:56:00
--  

 

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