TKSoft-Online

Problemstellung:

Einlesen von Dateien, mit ohne ohne Unterverzeichnissen und Filterfunktion.

Voraussetzungen:

Das Bsp ist unter A00-A07lauffähig.

Zur Funktionsfähigkeit wird die VBEx32.DLL benötigt. Diese muss sich im WindowsSystem-Verzeichnis
befinden und muss nicht registiert werden.

Desweiteren kommt in der Bsp-DB das ActiveX-Control sevListbox zum Einsatz.
Dieses Control wurde bei Installation registriert.
Es ist aber nur für das DEMO hier erforderlich, da man im Control komfortabel Spalten sortieren
kann und auch die Spaltenbreite automatisch angepasst wird.

Die Sub ReadFilesArray liest alle Dateien ein und schreibt diese in die Tabelle tbl_Files.
Dafür werden einige Funktionen der VBEx32.DLL aufgerufen.

Public Sub ReadFilesArray(strFolder As String, Optional intSubfolder As Integer = 0, _
                          Optional strFilter As String = "*.*")
'*******************************************
'Name:      ReadFilesArray   (Sub) benötigt die VBEx32.DLL
'Purpose:   Ermittelt alle Dateien aus einem Verzeichnis und schreibt diese in ein Array
'Author:    Thomas Keßler
'Date:      Januar 26, 2003, 09:01:34
'Inputs:    strFolder=Pfad, intSubfolder=mit Subfolder=1 ohne=0
'           strFilter=Dateifilter setzen
'Output:
'*******************************************

Dim db As DAO.Database, rs As DAO.Recordset
Dim varElement As Variant
Dim lCount As Long
Dim nBytes As Currency

' Löscht den Inhalt der Tabelle "tbl_Files"
CurrentDb.Execute "DELETE * FROM tbl_Files;"

' zunächst Anzahl Dateien ermitteln
lCount = VBEX_FileCount(strFolder, intSubfolder, strFilter, nBytes)

    If lCount = -1 Then
        MsgBox "Keine Dateien enthalten, keine CD eingelegt oder Laufwerk nicht bereit." _
               & vbNewLine & "Bitte legen Sie eine CD ein", vbCritical + vbOKOnly, "Fehler..."
        Exit Sub
    Else
        ' Array dimensionieren
        ReDim sFiles(lCount) As String

        ' Dateinamen ermitteln
        lCount = VBEX_FileList(strFolder, intSubfolder, strFilter, sFiles(), nBytes)

        'Neuen Inhalt in die Tabelle übertragen...
        Set db = CurrentDb()
        Set rs = db.OpenRecordset("tbl_Files", dbOpenDynaset)
        DoCmd.Echo False, "Bitte warten..., die Tabelle 'Files' wird mit Daten gefüllt"
        For Each varElement In sFiles()
            rs.AddNew
            rs("Datei") = strFolder & varElement
            rs("Dateigrösse") = FileLen(strFolder & varElement)
            rs("Dateidatum") = FileDateTime(strFolder & varElement)
            If GetAttr(strFolder & varElement) And vbReadOnly Then rs("ReadOnly") = -1
            If GetAttr(strFolder & varElement) And vbHidden Then rs("Hidden") = -1
            If GetAttr(strFolder & varElement) And vbSystem Then rs("System") = -1
            If GetAttr(strFolder & varElement) And vbArchive Then rs("Archiv") = -1
            If GetAttr(strFolder & varElement) And 2048 Then rs("Komprimiert") = -1
            rs.Update
            DoEvents
        Next
    End If
    DoCmd.Echo True
    MsgBox "Es wurden " & lCount + 1 & " Dateien eingelesen.", vbInformation + vbOKOnly, "Erfolg"
    rs.Close
    db.Close
End Sub

Im Formular wird oben als erstes ein Verzeichnis gewählt:

Im nächsten Schritt wird in der Optionsgruppe fesgelegt ob nur das angegebene Verzeichnis einlesen wird oder einschließlich vorhandener Unterverzeichnisse.

Dann erfolgt die Eingabe des Filters.
Bei Nichteingabe wird der Standardwert "*.*" gesetzt.
Es sind aber ein paar Dinge zubeachten die vom Standard der Wildcards abweichen:

Mögliche Eingaben wären z.B.:
*.* ist der Standarwert und liest alle Dateien ein
*.zip würde alle Zip-Dateien einlesen
test*.xls würde alle Excel-Dateien einlesen, die mit test.. beginnen.
?est*.xls würde alle Excel-Dateien einlesen, die mit est.. beginnen, z.B. test..., pest...
Nicht gelesen würde aber ppest... hier müsste ??est*.xls gesetzt werden.
*.md* würde alle Access Dateien, mdb, mda, mde usw. einlesen

Mit einem Klick auf den Button "Dateien Einlesen" erfolgt das Einlesen.

Im Listenfeld erfolgt dann die Ausgabe des Ergebnisses:
Die Spaltenbreite passt sich automatisch dem breitesten Eintrag an
Mit einem Klick auf den Spaltenkopf lässt sich jede Spalte sortieren.

Download nur für registrierte User

Einlesen von Dateien

Downloads in dieser Kategorie

MS-Access Datei & System

Seite: 1

• Auslesen und ändern von Dateiattributen
Auslesen und Ändern von Dateiattributen unter VBA durch die
GetAttr- und SetAttr-Funktion und auslesen von Dateidatumsangaben
mittels der Scripting von MS.
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
• Verwendung DSO-Framer Control A00-A03

Bsp-DB für die Verwendung DSO-Framer Control
für A00-03

Die Zip-Datei enthält ein Version ab A00

• Verwendung DSO-Framer Control A07

Bsp-DB für die Verwendung DSO-Framer Control
für A07

Die Zip-Datei enthält ein Version ab A07

• Setup tkFileFunc-DLL
Bsp-DB zur Benutzung der tk_FileFunc.dll
Setup enthält folgende Dateien:

tk_FileList.mdb
tkFileFunc.dll

Für MS-Access ab A00-A07
getestet unter WinXP, Win Vista 32Bit und Win7 64Bit
• 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
• Ermitteln und Beenden von externen Programmen

Bsp-DB zum Ermitteln und Beenden von externen Programmen

für A02-A07, unter Vista und Windows7 nicht getestet.


Die Zip-Datei enthält ein Version ab A02
• Arbeiten mit INI-Dateien

Arbeiten mit INI-Dateien
für A00-A07

Die Zip-Datei enthält eine Version ab A00

• Temporäre Installation von TrueTypeFonts

Temporäre Installation von TrueTypeFonts
für A97-A03 , A07 nicht getestet

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

• Auslesen von Infos aller Laufwerke im System
Auslesen von Laufwerks-Informationen mittels der Scripting Runtime von MS.
für A97-A03 , A07 nicht getestet

Die Zip-Datei enthält ein Version für A97 und eine ab A00
• Arbeiten mit der Registry

Arbeiten mit der Registry
für A00-A07

Die Zip-Datei enthält eine Version ab A00

Seite: 2

• Arbeiten mit der ShellExecute-Methode

Arbeiten mit der ShellExecute-Methode
für A00-A07

Die Zip-Datei enthält eine Version ab A00-A03 und eine für A07

• Arbeiten mit EXIF-Tags und der GDI+ Library

Arbeiten mit EXIF-Tags und der GDI+ Library

 

Arbeiten mit EXIF-Tags und der GDI+ Library
ab A2000

Die ZIP-Datei enthält eine Version ab A2000

Powered by Tux Merlín Extensions