Textinhalt löschen

[Alfred_]

Hi,

In VB-Hilfe bin ich fündig geworden wie man ein Textfile erstellt.
Soweit so gut.
Bin aber derzeit auf Suche, wie man den Inhalt eines Textfiles löscht.
Es böte sich zwar die Möglichkeit an, dieses File zu löschen, bin aber mit dem DELETE nicht sehr glücklich.

Sub CreateATextFile()
Dim fs, tx
If Not FileExist(Mindaten) Then ' Datei nicht vorhanden
MsgBox "TextFile >> MinWerte << ist nicht vorhanden!", 64, "Information"
Set fs = CreateObject("Scripting.FileSystemObject")
Set tx = fs.CreateTextFile("c:\xyz\xyz\abc.txt", True)
tx.Close
Else
MsgBox "Dateiinhalte werden gelöscht", 64, "Information"
Open "c:\xyz\xyz\abc.txt" For Output As #1
'?
Close #1
Exit Sub
End If
End Sub

Für jeden Hinweis wäre ich dankbar.
Alfred

 

[Ein_Freund]

Wenn Du den Inhalt einer TextDatei zwar löschen, aber die Datei behalten möchtest, dann einach neu erstellen...

 Set tx = fs.CreateTextFile("c:\xyz\xyz\abc.txt", True)

Das 'True' sorgt dafür, dass die Datei überschrieben wird.

 

[Alfred_]

Hi,

danke für Deine Antwort (...und Tipp).
Ich hätte Dich nicht bemühen müssen, wenn ich die HelpInfo vollständig durchgelesen hätte

Nochmals Danke
Alfred

 

[Ein_Freund]

Ich hätte Dich nicht bemühen müssen, wenn ich die HelpInfo vollständig durchgelesen hätte

Macht nichts - die paar Sekunden...
Aber is ne großartige Einsicht. Hoffentlich lesen das recht viele und nehmen sich dessen an...