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.622

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

Neueste Artikel

SQL zu VBA Konverter
26. Oktober 2018
Problemstellung: Gibt es eine Möglichkeit SQL-Code einer Abfrage so zu konvertieren das der Code in VBA genutzt werden kann? Lösung: Bis Access 2010 gibt das Tool "SmartTools SQL aus Abfragen 3.0"...
1.png2.png1.png2.png7.png5.png3.png
Heute53
Gestern105
Diese Woche261
Dieser Monat1553
Total1212753

  • IP: 52.55.177.115
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

2
Online

19. Dezember 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...