TKSoft-Online

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

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 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:

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
< Zurück   Weiter >
Aktualisiert ( Mittwoch, den 26. Januar 2011 um 07:34 Uhr )
 

Kommentar schreiben


Sicherheitscode
Aktualisieren

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173413 Downloads