TKSoft-Online

Problemstellung:

Auslesen und Ändern von Dateiattributen unter VBA durch die GetAttr- und SetAttr-Funktion
und auslesen von Dateidatumsangaben mittels der Scripting von MS.

Voraussetzungen:

Das Bsp ist unter A97,A00, AXP, A03 lauffähig, unter A07 wurde es nicht getestet.

Der Rückgabewert ist eine Konstante:
vbReadOnly= 1
vbHidden = 2
vbSystem = 4
vbArchive = 32

Lesen der Datumsangaben:

Die 3 Datumswerte der Datei (Erstellt, Modifiziert und letzter Zugriff) werden mit folgender Funktion ausgelesen:

Function DateiDatumAuslesen(Nam As String, Art As Integer)
    
    ' -----------------------------------------------------
    '  Funktion zum Auslesen von Datei-Datumswerten. Durch
    '  die "Art" können 3 Datumswete unterschieden werden:
    '     1 = Datum der letzten Modifikation
    '     2 = Datum des letzten Zugriffs
    '     3 = Datum der Erstellung
    ' -----------------------------------------------------
    
    Dim A, b
        
        Set A = CreateObject("Scripting.FileSystemObject")
        Set b = A.GetFile(Nam)
        
        Select Case Art
            Case 1
                DateiDatumAuslesen = b.DateLastModified
            Case 2
                DateiDatumAuslesen = b.DateLastAccessed
            Case 3
                DateiDatumAuslesen = b.DateCreated
        End Select
        
End Function

Der Funktion wird der komplette Pfad und Dateiname und eine Zahl die der Wert darstellt übergeben.
Ein setzen der Datumsangaben mittels Scripting Runtime ist nicht möglich.
Dafür gibt es hier eine Lösung:  API: Datum- und Zeitangaben von Dateien manipulieren

Setzen der Attribute:

Um die Attribute neu zu setzen ist es nur erforderlich der Funktion SetAttr den Pfad der Datei und die Summe der
Konstanten zu übergeben.
z.B. der Datei C:\Test.txt die Attribute vbReadOnly und vbArchive

SetAttr "C:\Test.txt", 33

Auslesen und ändern von Dateiattributen