title image


Smiley APIs GetFileAttributes und SetFileAttributes
1. geht tatsächlich nur mit API:Declare Function GetFileAttributes Lib "Kernel32" Alias "GetFileAttributesA" ( _ ByVal lpFileName As String) As LongDeclare Function SetFileAttributes Lib "Kernel32" Alias "SetFileAttributesA" ( _ ByVal lpFileName As String, _ dwFileAttributes As Long) As LongGebrauch:Function SetReadOnlyFlag(strFileName As String, boolReadOnly As Boolean)Dim lngFlags As Long, lngDummy As LonglngFlags = GetFileAttributes(strFilename)' Zusammensetzung von lngFlags' Bit 0 gesetzt => "ReadOnly"' Bit 1 gesetzt => "Hidden"' Bit 2 gesetzt => "System"' Bit 5 gesetzt => "Archieve"If Not boolReadOnly Then ' => RO-Flag entfernen If (lngFlags And 2^0) Then lngFlags = lngFlags - 2^0 If lngFlags = 0 Then lngFlags = 2^7 lngDummy = SetFileAttributes(strFileName, lngFlags) EndifElse ' => RO-Flag setzen If Mot (lngFlags And 2^0) Then lngFlags = lngFlags + 2^0 If lngFlags = 0 Then lngFlags = 2^7 lngDummy = SetFileAttributes(strFileName, lngFlags) EndifEndifEnd Function 2. weiß ich nicht Gruß aus dem sonnigen Karlsruhe (ätsch)Pope

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: