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.874 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 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. |
||||||||||||
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. |