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:
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:
Nur für 32Bit Office Versionen
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
Ähnliche Artikel
Weiterlesen...