每当我创建两个具有相同名称的文件时,它都会覆盖它。我希望第二个文件是[Name](#)
答案 0 :(得分:2)
此代码在名为
的文件范围内创建下一个文件MyFile.txt的
MyFile1.txt
MyFile2.txt
MyFile3.txt
...
Dim i As Integer = 0
Dim fn = "C:\Data\MyFile"
Dim ext = ".txt"
If File.Exists(fn + ext) Then
Do
i = i + 1
Loop While File.Exists(fn + i.ToString() + ext)
fn = fn + i.ToString()
End If
WriteFile(fn + ext)
答案 1 :(得分:0)
使用此:
File.Exists(curFile)
检查名称是否已存在,然后在代码中重命名新名称 http://msdn.microsoft.com/en-us/library/system.io.file.exists.aspx