Dim FSO As Object
Dim FLD As Object
Dim Fil As Object
 
Set FSO=CreateObject("Scripting.FileSystemObject")
 
Set FLD=FSO.GetFolder("d:\irgendwas\")
 
For Each Fil in FLD.Files
'Machwas
Next
 
Set Fil=Nothing
Set FLD=Nothing
Set FSO=Nothing

Dim Pfad As String
Dim Datei As String
 
Pfad="d:\irgendwas\"
 
Datei=Dir(Pfad & ".txt")
 
Do While Datei <> ""
 
'MachwasmitderTextdatei
 
Datei=Dir
 
Loop

EALA FREYA FRESENA