Ich hab ein Problem mit
[autoit]FileSetAttrib
[/autoit].
Hier ist mein Script.
Spoiler anzeigen
#include
#include
#RequireAdmin
opt("TrayIconHide", 1)
$Breite = 335
$Hoehe = 144
GUICreate("Attribut-Changer", $Breite + 60, $Hoehe, -1, -1, -1, 0x00000010)
GUISetState ( $GUI_ACCEPTFILES)
GUICtrlCreateMenu ( "Programm", 1)
$Exit = GUICtrlCreateMenuItem ( "Programm Beenden", 1)
GUICtrlCreateMenu ("Hilfe", 2)
$Hilfe = GUICtrlCreateMenuItem ( "Hilfe", 2)
GUICtrlCreateMenuItem ( "", 2)
$Ueber = GUICtrlCreateMenuItem ("�ber", 2)
$Datei = GUICtrlCreateInput( """Datei ausw�hlen...""", 10, $Hoehe - 134, $Breite, 20, (-1))
GUICtrlSetState ( $Datei, $GUI_ACCEPTFILES )
$FileRead = GUICtrlCreateButton( "...", $Breite + 20, $Hoehe -135, 30, 22)
$Buttons = $Breite - 130
$ButtonsHigh = $Hoehe - 30
$OKButton = GUICtrlCreateButton( "OK", $Buttons, $ButtonsHigh, 80, 22)
$CancelButton = GUICtrlCreateButton( "Abbrechen", $Buttons + 100, $ButtonsHigh, 80, 22)
$CHKBX = $Hoehe -94
$CHKBXW = 20
GUICtrlCreateGroup ( "Standard-Attribute", $CHKBXW - 10, $CHKBX - 15, 118, 100)
$Schreibgeschuetzt=GUICtrlCreateCheckbox("Schreibgesch�tzt", $CHKBXW, $CHKBX)
$Versteckt=GUICtrlCreateCheckbox("Versteckt", $CHKBXW, $CHKBX + 20)
$Archiv =GUICtrlCreateCheckbox("Archiv", $CHKBXW, $CHKBX + 40)
$Normal =GUICtrlCreateCheckbox("Normal", $CHKBXW, $CHKBX + 60)
GUICtrlCreateGroup ("", -99, -99, 1, 1)
GUICtrlCreateGroup ( "Netzwerk-Attribute", $CHKBXW + 246, $CHKBX - 15, 118, 40)
$Offline =GUICtrlCreateCheckbox("Offline", $CHKBXW + 256, $CHKBX)
GUICtrlCreateGroup ("", -99, -99, 1, 1)
GUICtrlCreateGroup ( "System-Attribute", $CHKBXW + 118, $CHKBX - 15, 118, 60)
$Temporaer =GUICtrlCreateCheckbox("Tempor�r", $CHKBXW + 128, $CHKBX)
$System =GUICtrlCreateCheckbox("System", $CHKBXW+ 128, $CHKBX + 20)
GUICtrlCreateGroup ("", -99, -99, 1, 1)
GUICtrlCreateGroup ("", $CHKBXW + 246, $CHKBX +22, 118, 23)
GUICtrlCreateLabel ( "IP: "&@IPAddress1, $CHKBXW +256, $CHKBX +30, 100, 13)
$R = 0
$H = 0
$A = 0
$N = 0
$O = 0
$T = 0
$S = 0
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg=GUIGetMsg()
Select
Case $msg = $Schreibgeschuetzt
$R = 1
Case $msg = $Versteckt
$H = 1
Case $msg = $Archiv
$A = 1
Case $msg = $Normal
$N = 1
Case $msg = $Offline
$O = 1
Case $msg = $Temporaer
$T = 1
Case $msg = $System
$S = 1
Case $msg=$OKButton
GUICtrlSetState ( $Datei, $GUI_DISABLE )
GUICtrlSetState ( $FileRead, $GUI_DISABLE )
GUICtrlSetState ( $Schreibgeschuetzt, $GUI_DISABLE )
GUICtrlSetState ( $Versteckt, $GUI_DISABLE )
GUICtrlSetState ( $Archiv, $GUI_DISABLE )
GUICtrlSetState ( $Normal, $GUI_DISABLE )
GUICtrlSetState ( $Offline, $GUI_DISABLE )
GUICtrlSetState ( $Temporaer, $GUI_DISABLE )
GUICtrlSetState ( $System, $GUI_DISABLE )
$File = GUICtrlRead ( $Datei )
If $R = 1 Then
FileSetAttrib ( $File, "+R" )
Else
FileSetAttrib ($File, "-R")
EndIf
If $H = 1 Then
FileSetAttrib ( $File, "+H" )
Else
FileSetAttrib ($File, "-H")
EndIf
If $A = 1 Then
FileSetAttrib ( $File, "+A" )
Else
FileSetAttrib ($File, "-A")
EndIf
If $N = 1 Then
FileSetAttrib ( $File, "+N" )
Else
FileSetAttrib ($File, "-N")
EndIf
If $O = 1 Then
FileSetAttrib ( $File, "+O" )
Else
FileSetAttrib ($File, "-O")
EndIf
If $T = 1 Then
FileSetAttrib ( $File, "+T" )
Else
FileSetAttrib ($File, "-T")
EndIf
If $S = 1 Then
FileSetAttrib ( $File, "+S" )
Else
FileSetAttrib ($File, "-S")
EndIf
GUICtrlSetState ( $Datei, $GUI_ENABLE )
GUICtrlSetState ( $FileRead, $GUI_ENABLE )
GUICtrlSetState ( $Schreibgeschuetzt, $GUI_ENABLE )
GUICtrlSetState ( $Versteckt, $GUI_ENABLE )
GUICtrlSetState ( $Archiv, $GUI_ENABLE )
GUICtrlSetState ( $Normal, $GUI_ENABLE )
GUICtrlSetState ( $Offline, $GUI_ENABLE )
GUICtrlSetState ( $Temporaer, $GUI_ENABLE )
GUICtrlSetState ( $System, $GUI_ENABLE )
Case $msg =$FileRead
$Set=FileOpenDialog ( "Datei �ffnen...", @MyDocumentsDir, "Alle Dateien (*.*)")
GUICtrlSetData ( $Datei, $Set )
Case $msg =$GUI_EVENT_CLOSE Or $msg=$CancelButton
Exit
EndSelect
WEnd
Ach ja... Mein Menü taucht nicht auf (ich weiß, dass ich die Aktionen noch nicht geschrieben hab'). Wahrscheinlich bin ich nur zu **** um den Fehler zu finden, aber wäre nett, wenn mir jemand helfen könnte.
Ach ja, beim Datentransfer zu meinem MAC, hats die Umlaute gekillt. Denkt euch einfach die logische Warheit .