Deklaration: Declare Function GetFileAttributes Lib "kernel32.dll" _ Alias "GetFileAttributesA" ( _ ByVal lpFileName As String) As Long Beschreibung: Parameter:
Rückgabewert: Rückgabekonstanten: ' Archiv Const FILE_ATTRIBUTE_ARCHIVE = &H20 ' Komprimiert Const FILE_ATTRIBUTE_COMPRESSED = &H800 ' Verzeichnis Const FILE_ATTRIBUTE_DIRECTORY = &H10 ' Versteckt Const FILE_ATTRIBUTE_HIDDEN = &H2 ' Keine Attribute Const FILE_ATTRIBUTE_NORMAL = &H80 ' Schreibgeschützt Const FILE_ATTRIBUTE_READONLY = &H1 ' Systemdatei Const FILE_ATTRIBUTE_SYSTEM = &H4 Beispiel: Private Declare Function GetFileAttributes Lib "kernel32.dll" _ Alias "GetFileAttributesA" ( _ ByVal lpFileName As String) As Long Private Const FILE_ATTRIBUTE_ARCHIVE = &H20 ' Archiv Private Const FILE_ATTRIBUTE_COMPRESSED = &H800 ' Komprimiert Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 ' Verzeichnis Private Const FILE_ATTRIBUTE_HIDDEN = &H2 ' Versteckt Private Const FILE_ATTRIBUTE_NORMAL = &H80 ' Keine Attribute Private Const FILE_ATTRIBUTE_READONLY = &H1 ' Schreibgeschützt Private Const FILE_ATTRIBUTE_SYSTEM = &H4 ' Systemdatei Private Sub Command1_Click() Dim ChkFile As String ChkFile = InputBox("Bitte geben sie einen Dateipfad an", "Auf Schreibschutz _ prüfen", "c:\Autoexec.bat") If GetFileAttributes(ChkFile) = -1 Then MsgBox "Die angegebene Datei existiert nicht", vbOKOnly + vbInformation, _ "Lesen nicht möglich" ElseIf CBool(GetFileAttributes(ChkFile) And FILE_ATTRIBUTE_READONLY) = True Then MsgBox "Die angegebene Datei ist schreibgeschützt!", vbOKOnly + _ vbInformation, "Schreibschutz ist gesetzt" Else MsgBox "Die angegebene Datei ist nicht schreibgeschützt!", vbOKOnly + _ vbInformation, "Schreibschutz ist nicht gesetzt" End If End Sub Diese Seite wurde bereits 15.901 mal aufgerufen. |
sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Buchempfehlung Tipp des Monats Mai 2024 Hermann Röttger Wochentage eines Datumsbereichs ermitteln Wochentage eines Datumsbereichs ermitteln, optional mit Feiertagsberechnung Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |