2012-02-25 52 views
0

每當我創建兩個具有相同名稱的文件時,它會覆蓋它。我想第二個文件是[名](#)如何在製作文件時不覆蓋文件?

+2

可能重複[如何遞增的文件名,如果文件已經存在(http://stackoverflow.com/questions/6264098/how -to-增量-的文件名,如果-文件已經存在) – 2012-02-25 18:34:13

回答

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)