Hi Zusammen,
Habe hier ein kleines Problem:
Nachdem ich eine Textfile geöffnet, diese ausgelesen und in eine Applikation eingelesen habe, würde ich sie gerne löschen.
Ich habe bisher mit getfile, deletefile über das FileSystemObject versucht, mein Ziel zu erreichen. Leider ohne Erfolg.
Könnt ihr mir weiterhelfen?
Viele Grüße
p41n
Habe hier ein kleines Problem:
Nachdem ich eine Textfile geöffnet, diese ausgelesen und in eine Applikation eingelesen habe, würde ich sie gerne löschen.
Ich habe bisher mit getfile, deletefile über das FileSystemObject versucht, mein Ziel zu erreichen. Leider ohne Erfolg.
Visual Basic-Quellcode
- Dim fso2, f2, str, f1, fso1
- Const ForReading = 1
- Set fso1 = CreateObject("Scripting.FileSystemObject")
- Set fso2 = CreateObject("Scripting.FileSystemObject")
- Set f1 = fso1.GetFile("D:\TEMP\input.txt")
- Set f2 = fso2.OpenTextFile("D:\TEMP\input.txt", ForReading, 0)
- Do While f2.AtEndOfStream <> True
- str = f2.Readline
- crt.Screen.Send str & Chr(13)
- Loop
- set f2=nothing
- set fso2=nothing
- f1.DeleteFile ("D:\TEMP\input.txt")
Könnt ihr mir weiterhelfen?
Viele Grüße
p41n