请教高手：如果文件已经存在，如何给文件自动重命名？

转换一批文件，转出档案按照一定的规律命名，存储到某个文件夹，如果发现该文件夹已经有了该文件名，需要自动重命名，请教高手，该怎么做？

解决方案 »

  1.   

    Dim OldName, NewName
    OldName = "OLDFILE": NewName = "NEWFILE"   ' 定义文件名。
    Name OldName As NewName   ' 更改文件名。 
    OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
    Name OldName As NewName   ' 更改文件名，并移动文件。
      

  2.   

    这些我知道，难点在于如何加上流水号，如girl(1)、girl(2)……，其中girl是原档案名，发现已经有这个名字存在。由于流水号在不断增加，所以带有流水号的文件也在考虑之列，新文件的流水号必须是最大流水号+1。
      

  3.   

    这样你就先得到你那文件夹下的文件名，取出流水号最大的加一啊，
    这个得到文件夹下的所有文件名的API应该知道的吧