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.900 mal aufgerufen. |
sevAniGif (VB/VBA) Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. 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. |