2012-02-25 9 views
0

同じ名前の2つのファイルを作成するたびに、そのファイルが上書きされます。私は2番目のファイルになりたい[名](#)ファイルの作成時にファイルを上書きしないでください。

+2

の可能重複[ファイルがすでに存在する場合、ファイル名をインクリメントする方法](http://stackoverflow.com/questions/6264098/how増分 - ファイル名 - ファイルの場合 - 既に存在する) –

答えて

2

このコードでは、新しいものの名前を変更

File.Exists(curFile) 

チェック場合

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) 
関連する問題