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

Problemstellung:
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:
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
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:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
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

Dateien:

Auslesen und Ändern von Datei-/Verzeichnisattributen mittels

FileSystemObject der MS-Scripting Runtime
 

ab A97

Die Zip-Datei enthält ein Version für A97 und eine ab A00

Datum 05.02.2018
Dateigröße 116.32 KB
Download 2.609

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png8.png0.png1.png4.png
Heute6
Gestern70
Diese Woche6
Dieser Monat1668
Total1198014

  • IP: 54.162.123.74
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

16. Juli 2018

Letzte Kommentare

  • Trusted Locations Manager

    Tommy Admin 13.07.2018 13:06
    RE: Trusted Locations Manager
    Hallo Matthias, aus Ermangelung einer 64bit Version kann ich das leider nicht prüfen. Tut mir leid. Gruss ...

    Weiterlesen...

     
  • Trusted Locations Manager

    Matthias 13.07.2018 06:48
    Funktioniert nicht
    Habe gerade den TL-Manager installiert. Nach dem Start sagt er mir, dass es kein Office erkennen ...

    Weiterlesen...