Hallo!
Ich sitze schon eine ganze Weile an einem bestimmten Punkt und komme nicht weiter :-/
Ich will eine Schleife schreiben, in welcher überprüft wird, ob eine Datei bereits vorhanden ist. Wenn ja, soll der Inhalt in einer neuen Variable gespeichert werden, damit etwas neues angehängt werden kann. Die neue Variable ist nötig, da die Inhalte als "Ausgabetext" deklariert sind und sie sonst immer wieder überschrieben werden. Wenn keine Datei vorhanden ist, soll eine erstellt werden und der "Ausgabetext" dort reingeschrieben werden. Ich hoffe das ist halbwegs verständlich. Soweit bin ich bis jetzt:
DateiPfad = ThisWorkbook.Path
'dateipfad& "\" & spname & ".txt"
Dateinummer = FreeFile
If Dir(DateiPfad & "\" & spname & ".txt") = "" Then
Open DateiPfad & "\" & spname & ".txt" For Append As #Dateinummer
Write #Dateinummer, Ausgabetext
Close #Dateinummer
'Ausgabetext = Zwischenablage
''Ausgabetext = Space(LOF(Dateinummer))
Else
Open DateiPfad & "\" & spname & ".txt" For Append As #Dateinummer
''Get #Dateinummer, 1, Ausgabetext
''Write #Dateinummer, Ausgabetext
While Not EOF(Dateinummer)
Line Input #Dateinummer, Ausgabetext
Zwischenablage = Ausgabetext
Ausgabetext = ""
'Get #Dateinummer, 1, Ausgabetext
Wend
Close #Dateinummer
Kann mir da jemand behilflich sein??? Danke!
|