title image


Smiley API: GetFileAttributes & SetFileAttributes
Hallo,



::: Deklarationen :::

Public Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As LongPublic Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As LongPublic Const FILE_ATTRIBUTE_ARCHIVE = &H20      'Archivierte Datei/VerzeichnisPublic Const FILE_ATTRIBUTE_COMPRESSED = &H800  'Kompressierte Datei/VerzeihcnisPublic Const FILE_ATTRIBUTE_DIRECTORY = &H10    'VerzeichnisPublic Const FILE_ATTRIBUTE_HIDDEN = &H2        'Versteckte Datei/VerzeichnisPublic Const FILE_ATTRIBUTE_NORMAL = &H80       'Normale Datei/VerzeichnisPublic Const FILE_ATTRIBUTE_OFFLINE = &H1000    'Offline-Datei/VerzeichnisPublic Const FILE_ATTRIBUTE_READONLY = &H1      'Schreibgeschützte Datei/VerzeichnisPublic Const FILE_ATTRIBUTE_SYSTEM = &H4        'System-Datei/verzeichnisPublic Const FILE_ATTRIBUTE_TEMPORARY = &H100   'Temporäre Datei



::: Aufruf :::

'Sreibschutz entfernenIf SetFileAttributes(FilePath, FILE_ATTRIBUTE_NORMAL) = 0 Then   MsgBox "Fehlgeschlagen!"Else   MsgBox "Erfolgreich!"End If'Sreibschutz setzenIf SetFileAttributes(FilePath, FILE_ATTRIBUTE_READONLY) = 0 Then   MsgBox "Fehlgeschlagen!"Else   MsgBox "Erfolgreich!"End If

Mit freundlichen Grüßen

AndyG

E-Mail:  Andreas_Graf [öt] DevPlanet.de
Homepage:  http://www.DevPlanet.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: