TKSoft-Online

Auslesen und ändern von Datei-/Verzeichnisattributen PDF Drucken E-Mail
( 1 Vote )
MS-Access Bsp. DB's - Bsp. Downloads Datei und System
  
Donnerstag, den 03. Januar 2008 um 01:00 Uhr

Problemstellung:

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

Voraussetzungen:

Das Bsp ist unter A97,A00, AXP, A03 lauffähig, unter A07 wurde es nicht getestet.

Funktionsweise:

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

Private Sub ReadAttributes(strPath As StringOptional 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

 

Auslesen und ändern von Datei-/Verzeichnisattributen

Auslesen und ändern von Datei-/Verzeichnisattributen mittels
FileSystemObject der MS-Scripting Runtime
für A97-A03 , A07 nicht getestet

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



Erstellt am
Dateigröße
Downloads
02.01.2008
116.32 KB
2181

 

Downloads in dieser Kategorie

MS-Access Datei & System

MS-Access Datei & System

 Seite: 1

 Seite: 2


DatumKlicks
Total3117
Di. 223
Mo. 211
So. 201
Sa. 193
Fr. 185
Do. 173
Mi. 164
Aktualisiert ( Mittwoch, den 26. Januar 2011 um 07:34 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Latest Comments

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173413 Downloads