Kategorien
CodeArchiv Dateien VBA

VBA Alle Dateien eines Verzeichnisses ermitteln

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 NameParameter Wert
strPath Pfad in dem nach Dateien gesucht werden soll
strSuffixOptional: 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 TypRü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

Download