SetDirectoryAttributes()

[Knight_Rider_2000]

Code: Alles auswählen

;Dies ist eine Funktion die in der FileSystem Library nicht beachtet wurde wo es nur SetFileAttribute() gibt.
;Ich denke jeder sollte von meiner Konstruktion etwas haben.
;Folgene Attribute können genutzt werden
;  #PB_FileSystem_Hidden     : Verzeichnis wird versteckt
;  #PB_FileSystem_Archive    : Verzeichnis wird archiviert
;  #PB_FileSystem_Compressed : Verzeichnis wird komprimiert
;  #PB_FileSystem_Normal     : Verzeichnis erhält die Normalen Attribute
;  #PB_FileSystem_ReadOnly   : Verzeichnis wird zum "ReadOnly" Modus (schreibgeschützt)
;Es können natürlich noch weitere Windowskonstanten genutzt werden was ich eher empfehle als die 
;PB Konstanten
;  Windows Konstanten             PB Konstanten               Wirkung
;  #FILE_ATTRIBUTE_HIDDEN     =   #PB_FileSystem_Hidden     : Verzeichnis wird versteckt
;  #FILE_ATTRIBUTE_ARCHIVE    =   #PB_FileSystem_Archive    : Verzeichnis wird archiviert
;  #FILE_ATTRIBUTE_COMPRESSED =   #PB_FileSystem_Compressed : Verzeichnis wird komprimiert
;  #FILE_ATTRIBUTE_NORMAL     =   #PB_FileSystem_Normal     : Verzeichnis erhält die Normalen Attribute
;  #FILE_ATTRIBUTE_READONLY   =   #PB_FileSystem_ReadOnly   : Verzeichnis wird zum "ReadOnly" Modus (schreibgeschützt)
Procedure SetDirectoryAttributes(path.s Attribute.l)
If OpenLibrary(0,"kernel32.dll")
 CallFunction(0,"SetFileAttributesA",path.s, Attribute.l)
 CloseLibrary(0)
 ProcedureReturn Attribute.l
Else
 ProcedureReturn 0
EndProcedure

[ts-soft]

SetFileAttributes ist auch für Directories
und funktioniert auch im Unicode-Mode, der Deinem Beispiel ebenfalls fehlt.

[Knight_Rider_2000]

Ich habe das hier gepostet da ich im Forum zum verstecken eines Verzeichnis keine Beispiele fand da hab ich dann in der Winapi etwas herumgesucht und gefunden
@Linux User
da diese Funktion eine Windows Library aufruft funktioniert diese Funktion nur unter Windows

[nco2k]

@Knight_Rider_2000
wenn du schon was für "Code, Tipps und Tricks" postest, dann sorg auch bitte dafür, dass das beispiel lauffähig ist.

- es fehlt ein komma zwischen den beiden argumenten, in zeile 17
- bei der If abfrage fehlt das dazugehörige EndIf
- du überprüfst nicht den rückgabewert bei CallFunction(), gibst aber trotzdem ein "erfolgreiches" ProcedureReturn aus, auch wenn der aufruf scheitern sollte
- du verwendest nicht #PB_Any für das öffnen der library
- dein beispiel ist nicht unicode tauglich

guckst du:

Code: Alles auswählen

Procedure SetDirectoryAttributes(DirName.s, Attributes.l)
  Protected Library, FunctionName.s, *Function, Result
  Library = OpenLibrary(#PB_Any, "kernel32.dll")
  If Library
    FunctionName = "SetFileAttributes"
    Select SizeOf(Character)
      Case 1
        FunctionName+"A"
      Case 2
        FunctionName+"W"
    EndSelect
    *Function = GetFunction(Library, FunctionName)
    If *Function And CallFunctionFast(*Function, DirName, Attributes)
      Result = Attributes
    EndIf
    CloseLibrary(Library)
  EndIf
  ProcedureReturn Result
EndProcedure

aber wie ts-soft schon sagte, kann man SetFileAttributes() auch für ordner verwenden. ist sowieso das gleiche.

c ya,
nco2k

[edel]

Die ganz Faulen koennen ja

Code: Alles auswählen

SetFileAttributes_(DirName.s, Attributes.l)

benutzen