Option Explicit
Public Sub Datei_lesen()
Dim strFilename As String
Dim strFileContent As String
Dim FN As Integer
strFilename = "X:\Verzeichnis\Unterverzeichnis\Datei.txt"
FN = FreeFile
Open strFilename For Input As #FN
strFileContent = Input(LOF(FN), #FN)
Debug.Print strFileContent
Close #FN
End Sub
Public Sub Dateien_ermitteln()
Dim strRoot As String
Dim strFile As String
strRoot = "X:\Verzeichnis\Unterverzeichnis\"
Debug.Print "[Dateien in Verzeichnis: '" & strRoot & "']"
strFile = Dir$(strRoot)
Do Until strFile = ""
Debug.Print " * " & strFile
strFile = Dir$()
Loop
End Sub