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

Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

Neueste Artikel

Problemstellung:In MS-Access ist es mit Bordmitteln nicht möglich Zeiten über 24 Stunden zu berechnenIn dieser Bsp-DB möchte ich zeigen wie es trotzdem geht. Voraussetzungen:Das Bsp ist ab A2007...
1.png2.png0.png4.png2.png1.png1.png
Heute111
Gestern145
Diese Woche256
Dieser Monat1635
Total1204211

  • IP: 54.92.190.11
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

18. September 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...