Auslesen und ändern von Datei-/Verzeichnisattributen

1 1 1 1 1 1 1 1 1 1 Rating 5.00 (2 Votes)

Details: Kategorie: Bsp. Downloads Datei und System; Geschrieben von TommyK; Zugriffe: 9304

Problemstellung:

Nur für 32Bit Office Versionen

Auslesen und Ändern von Datei- bzw Verzeichnisattributen mittels FileSystemObject
der MS-Scripting Runtime.

Voraussetzungen:
Das Bsp ist ab A97 lauffähig.

Funktionsweise:
Nach dem öffnen der Datei/Verzeichnis werden die Attribute eingelesen und
den Checkboxen zu gewiesen:

Private Sub ReadAttributes(strPath As String, Optional intFileFolder As Integer = 1)
'*******************************************
'Name:      ReadAttributes(Sub)
'Purpose:
'Author:    Thomas Keßler
'Date:      September 10, 2004, 10:42:42
'Inputs:    strPath=Pfad der Datei oder des Verzeichnisses
'           Wenn intFileFolder=1 Dateiattribute, sonst Verzeichnisattribute
'Output:
'*******************************************
        
        If intFileFolder = 1 Then
            Set oFile = oFSO.GetFile(strPath)
            Me!chk_A = IIf((oFile.Attributes And Archive), -1, 0)
            Me!chk_S = IIf((oFile.Attributes And ReadOnly), -1, 0)
            Me!chk_V = IIf((oFile.Attributes And Hidden), -1, 0)
            Me!chk_Sys = IIf((oFile.Attributes And System), -1, 0)
        Else
            Set oFolder = oFSO.GetFolder(strPath)
            Me!chk_A = IIf((oFolder.Attributes And Archive), -1, 0)
            Me!chk_S = IIf((oFolder.Attributes And ReadOnly), -1, 0)
            Me!chk_V = IIf((oFolder.Attributes And Hidden), -1, 0)
            Me.chk_Sys = Null
        End If
    
        'Setzten der Datei-Datumswerte
        txtmod_Z = DateiDatumAuslesen(strPath, 1, intFileFolder)
        txtzug_Z = DateiDatumAuslesen(strPath, 2, intFileFolder)
        txters_Z = DateiDatumAuslesen(strPath, 3, intFileFolder)
        
End Sub

Das Zuweisen von Änderungen erfolgt seperat.
Für Dateien:

Private Function SetNewFileAttribut()
'*******************************************
'Name:      SetFileAttribut (Function)
'Purpose:   Setzt die neuen Dateiattribute
'Author:    Thomas Keßler
'Date:      Februar 11, 2003, 11:26:47
'Inputs:
'Output:
'*******************************************

Dim varFileReadOnly, varFileHidden, varFileArchive, varFileSystem

    If Me!chk_S = -1 Then varFileReadOnly = ReadOnly
    If Me!chk_V = -1 Then varFileHidden = Hidden
    If Me!chk_A = -1 Then varFileArchive = Archive
    If Me!chk_Sys = -1 Then varFileSystem = System
    
    SetNewFileAttribut = (varFileReadOnly Or varFileHidden Or varFileArchive Or varFileSystem)

End Function

Für Verzeichnisse:

Private Function SetNewFolderAttribut()
'*******************************************
'Name:      SetFolderAttribut (Function)
'Purpose:   Setzt die neuen Ordnerattribute
'Author:    Thomas Keßler
'Date:      Februar 11, 2003, 11:26:47
'Inputs:
'Output:
'*******************************************

Dim varFolderReadOnly, varFolderHidden, varFolderArchive

    If Me!chk_S = -1 Then varFolderReadOnly = ReadOnly
    If Me!chk_V = -1 Then varFolderHidden = Hidden
    If Me!chk_A = -1 Then varFolderArchive = Archive

    SetNewFolderAttribut = (varFolderReadOnly Or varFolderHidden Or varFolderArchive)

End Function