✔ Datei erstellen 1, 2, 3...

[Mailyn]

Hi,
Ich hoffe, dass es nicht schon so einen Thread gibt. Die Suche hat nichts ergeben.

In dem Programm wird beim Programmstart per

Open App.Path & "\Test1.txt" For Output As 1
            Print #1, fortschritt
Close #1

ein Text gespeichert. Da dies aber bei jedem Programmstart geschieht, soll er erst überprüfen, ob es "Test1.txt" schon gibt. Falls dies der Fall ist, soll "Test2.txt" erstellt werden. Und so weiter. Wie, wenn man bei Windows mehrere gleichlautende Textdateien in einem Ordner erstellt!

Thx 4 help.

MfG
Mailyn

 

[Nirraven]

Versuch es mal so, müsste eigentlich klappen

Dim fs, i as Integer, z as Integer
Set fs = CreateObject("Scripting.FileSystemObject")
z = FreeFile

Do while Not fs.fileexists(App.Path & "\Test" & i & ".txt") = False 
  i = i + 1
Loop

  Open App.Path & "\Test" & i & ".txt" For Output As #z
            Print #z, fortschritt
  Close #z
End If