将文件存入指定的文件夹，如果有重复的名字则将当前文件更名？

Question

现将指定的文件写入的文件夹，如果该文件夹中已经存在一个同名的文件夹，则将当前文件名更改后存入指定的文件夹，这个应该怎么做呀，哪们朋友能给点提示吗？
非常感谢。

Answer 1

Name 语句示例
本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE"   ' 定义文件名。
Name OldName As NewName   ' 更改文件名。 
OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName   ' 更改文件名，并移动文件。

Answer 2

可以用dir函数判断文件是否存在

Answer 3

现在抢答还是这么快……直接用Name写入即可

Answer 4

建议用WINDOWS提供的拷贝文件接口进行拷贝，如果有同名的给提示，由用户判断，你通过程序直接改名了，用户找以前的文件找不到了怎么办~~~~~~~你说呢！！！

Answer 5

谢谢各位给予我的帮助。
我现在的是要将我的数据库里的附件存入指定的临时文件里，然后将这个目录传给对方取出这个文件就可以了，所以不用担心用户找不到。
我之前也想过用这样的一个方法：
filename = Dir("c:temp\*.*") 
Do While filename <> ""   
   if filename=newfilename then
      '这一句应该是更改文件名
   else
      filename = Dir
Loop    不知道这样是不是对的？

Answer 6

filename = Dir("c:temp\*.*") 
Do While filename <> ""   
   if filename="tmuninst.ini" then
       Name "tmuninst.ini" As "tmuninst01.ini"
   else
      filename = Dir
Loop    
Name "tmuninst.ini" As "tmuninst01.ini"还有如果"tmuninst.ini"是一个变量那应该怎么写呢？这句话为什么有错呢

Answer 7

Name "tmuninst.ini" As "tmuninst01.ini"
后面的文章在name时不能存在，否则报文件已存在

Answer 8

唉，这个问题真折腾人。如果"tmuninst.ini"是个变量的话，又不知道它的扩展名，这句话要怎么写呀aa="tmuninst.ini"
Name aa As aa +"01"这样改的是扩展名。

Answer 9

先把扩展名截下来吗
dim strName1 as string, strName2 as stringstrname1 = left(aa,len(aa)-4) '得到tmuninst
strname2 = right(aa,4) '得到.ini name aa as strname1 & "01" & strname2以上代码纯属示例，不能运行请谅解