Sub DateienAuflisten()
Dim i As Long
Dim Bereich As Range
Dim Zelle As Range
Const verz = "c:\Testlauf"
ChDir verz
Range("A:A").ClearContents
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = Dir(.FoundFiles(i))
ActiveCell.Offset(1, 0).Select
Next i
End With
Range("A1").Select
End Sub

dom@r61:~$ ls -l | grep web
drwxrwxrwx  7 dom dom 4096 2009-02-01 12:37 web

Sub Dateieneinlesen()
   Dim zeile As Variant
   Dim sFile As String, sPattern As String, sPath As String
   Dim iRow As Integer
   Columns(1).ClearContents
   sPath = "c:\Testlauf"
   If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
   sPattern = "*.dft"
   sFile = Dir(sPath & sPattern)
   Do Until sFile = ""
      iRow = iRow + 1
      Cells(iRow, 1).Value = sFile
      sFile = Dir()
   Loop
    For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next

  For zeile = 1 To Cells.SpecialCells(xlLastCell).Row

   If InStr(1, Range("A" & zeile), ".") > 0 Then
     Range("A" & zeile) = Left(Range("A" & zeile), InStrRev(Range("A" & zeile), ".") - 1)
   End If
 
  Next
  
End Sub