X360 Andy hat geschrieben:Naja das sollte jetzt nicht sooo viel ausmachen ?
wie wäre es denn mal mit ausprobieren?
Test1: DeleteFile() vor CloseFile()
Code: Alles auswählen
; Testdatei anlegen
CreateFile(0, "C:\x360.txt")
For Counter = 0 To 9
WriteStringN(0, "IrgendeinText" + Str(Counter))
Next
CloseFile(0)
; -------------
ReadFile(1, "C:\x360.txt")
test$ = ReadString(1)
If DeleteFile("C:\x360.txt")
Debug "Datei wurde erfolgreich gelöscht"
Else
Debug "Datei konnte nicht gelöscht werden"
EndIf
CloseFile(1)
Test2: CloseFile() vor DeleteFile()
Code: Alles auswählen
; Testdatei anlegen
CreateFile(0, "C:\x360.txt")
For Counter = 0 To 9
WriteStringN(0, "IrgendeinText" + Str(Counter))
Next
CloseFile(0)
; -------------
ReadFile(1, "C:\x360.txt")
test$ = ReadString(1)
CloseFile(1)
If DeleteFile("C:\x360.txt")
Debug "Datei wurde erfolgreich gelöscht"
Else
Debug "Datei konnte nicht gelöscht werden"
EndIf
Das hat nix mit Vista zu tun sondern mit unsauberer Programmierung.