Beschreibung
Beschreibung:
Um alle Dateien aus einem Verzeichnis auszulesen habe ich die nachfolgende Funktion geschrieben. Wird der Funktion nur der Pfad mitgegeben, so werden alle Dateien ausgelesen. Über den Parameter strSuffix kann eine Auswahl der Dateien angegeben werden. Die Variable strSeperator beschriebt ein Zeichen, mit dem die Dateien im Ergebnis voneinander getrennt werden, denn das Ergebnis wird in einem String zurück gegeben. Der letzte Optionale Parameter bitFullPath besagt, da wenn er Wahr ist, für jede Datei den vollen Pfad mit ausgibt.
Parameter
| Parameter Name | Parameter Wert |
|---|---|
| strPath | Pfad in dem nach Dateien gesucht werden soll |
| strSuffix | Optional: Dateisuffix, Default = *.* |
| strSeperator | Optional: Trennzeichen, mit dem die Dateien im Ergebnis voneinander getrennt werden. Default = ; |
| bitFullPath | Gibt an, ob im Ergebnis der gesamte Pfad (TRUE) oder nur der Dateiname (FALSE) ausgegeben werden soll. |
Rückgabe
| Rückgabe Typ | Rückgabe Wert |
|---|---|
| String | Dateinamen die mit strSeparator getrennt werden. |
Code
Public Function GetFilesFromDir(strPath As String, Optional strSuffix As String = "*.*", Optional strSeperator As String = ";", Optional bitFullPath As Boolean = False) As String Dim strFile As String Dim strResult As String Dim strFullpath As String If Right(strPath, 1) <> "\" Then strPath = strPath & "\" End If strFullpath = strPath & strSuffix strFile = Dir(strFullpath) Do While strFile <> "" If Len(strResult) > 0 Then strResult = strResult & strSeperator If bitFullPath = True Then strResult = strResult & strPath & strFile Else strResult = strResult & strFile End If strFile = Dir Loop GetFilesFromDir = strResult End Function
