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.879 mal aufgerufen. |
sevISDN 1.0 Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung 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 Neu! sevCoolbar 3.0 Professionelle Toolbars im modernen Design! Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access |
||||||||||||
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. |