PureBoard

Code: Alles auswählen

;****************************************************************************************
; Attribute abfragen
;****************************************************************************************
Attrib_Status = GetFileAttributes_("d:\test.txt")
Ergebnis$ = Str(Attrib_Status) 
MessageBox_(0, "Attrib-Status: "+Ergebnis$,"Info",0)
End

;****************************************************************************************
; Attribute setzen
;****************************************************************************************
Datei$="d:\test.txt"
SetFileAttributes_(Datei$,0);  alle Attribute zurücksetzen
SetFileAttributes_(Datei$,1);  schreibgeschützt
SetFileAttributes_(Datei$,3);  schreibgeschützt + versteckt
SetFileAttributes_(Datei$,4);  System
SetFileAttributes_(Datei$,5);  System + schreibgeschützt
SetFileAttributes_(Datei$,6);  System + versteckt
SetFileAttributes_(Datei$,7);  System + schreibgeschützt + versteckt
SetFileAttributes_(Datei$,32); Archiv
End

Code: Alles auswählen

#win_main=1 
#SW_Name="Test" 
Dateiname$="d:\test.txt"
Text$="Windows wurde beendet!"

main_win=OpenWindow(#win_main,0,0,150,30,#PB_Window_Invisible,#SW_Name) 

Repeat 
 EventID = WaitWindowEvent() 
    If EventID    ; ein Ereignis befindet sich in der "Queue" (Warteschlange), also arbeiten wir es ab 
      Ergebnis$ = Str(EventID)
    EndIf
Until EventID = #PB_Event_CloseWindow

Datum$=FormatDate("%yyyy.%mm.%dd / %hh:%ii", Date())
CreateFile(1, DateiName$)
WriteStringN(Datum$)
WriteStringN(Text$)
WriteStringN("EventID: "+Ergebnis$)

CloseFile(1)

End

Code: Alles auswählen

Datum$=FormatDate("%yyyy.%mm.%dd / %hh:%ii", Date()) 
CreateFile(1, DateiName$) 
WriteStringN(Datum$) 
WriteStringN(Text$) 
WriteStringN("EventID: "+Ergebnis$) 

CloseFile(1) 

End