Code: Alles auswählen
;ntfs-stream nutzen
;http://www.aboutvb.de/khw/artikel/khwfilestreams.htm
;http://win32.mvps.org/ntfs/streams.html
;--- natürlich nur , wenn ntfs !
;stream schreiben und ggf. datei anlegen
If OpenFile(1, "c:\test.txt:extra")
WriteStringN("stream-test 0815")
CloseFile(1)
EndIf
;hat 0byte !
Debug FileSize("c:\test.txt")
;stream lesen
If OpenFile(1, "c:\test.txt:extra")
Debug ReadString()
CloseFile(1)
EndIf
;stream löschen , nicht das file !
Debug DeleteFile("c:\test.txt:extra")
;wirklich leer ?
If OpenFile(1, "c:\test.txt:extra")
Debug ReadString()
CloseFile(1)
EndIf