Public Sub test()
Dim int_File As Integer, lng_Zeilen As Long, lng_Index As Long, str_Testtext As String
Reset
int_File = FreeFile
Open "D:\Eigene Dateien\neu.dat" For Input Access Read As #int_File
Do While Not EOF(int_File)
Input #int_File, str_Testtext
lng_Zeilen = lng_Zeilen + 1
Loop
Close #int_File
Open "D:\Eigene Dateien\neu.dat" For Output Access Write As #int_File
For lng_Index = 1 To lng_Zeilen
Print #int_File, "";
Next
Close #int_File
End Sub
Sub DateiLoeschen()
Dim intFree As Integer
intFree = FreeFile(0)
On Error Resume Next
Open "c:\TEST.DAT" For Output Lock Write As #intFree
Print #1, ""
Close #intFree
If Err.Number <> 0 Then
MsgBox "Fehler Nr. " & Err.Number & " = " & Err.Description
Err.Number = 0
Err.Clear
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen