Supportnet / Forum / Tabellenkalkulation

Hallo Zusammen, hier kommt meine Frage: Gibt es eine einfache Möglichkeit die Namen aller Dateien in einem Ordner als Liste in Word oder in Excel abzufragen. Optimal wäre natürlich noch eine Abfrage aus welchem Ordner die Dateinamen abzufragen sind. Freu mich schon auf viele coooole Tips Eleve

Gefunden in der Online-Hilfe (ExcelXP):

Beispiel
In diesem Beispiel wird nach allen Dateien im Ordner My Documents gesucht, die mit "cmd" beginnen und eine Dateinamenerweiterung besitzen. Außerdem werden Name und Verzeichnis jeder gefundenen Datei angezeigt.

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .FileName = "cmd*.*"
    If .Execute > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

Ein wenig abwandeln und in einen Zellbereich schreiben, Fertig!

Gruss Flupo

Hallo Fluop

leider bin ich ziemlich neu im Geschäft und tue mich mit dem Umbauen des codes noch etwas schwer.

Habe aber hier
die Lösung von meinem Problem als fertigen code gefunden.

 
Sub DateinamenAuflisten()
´Dateinamen in einem bestimmten Verzeichnis auflisten
´Die Angabe des Verzeichnises erfolgt in DOS Konvention
´Eingefügt werden die Daten ab der aktiven Zelle

  Dim Dateiname As String, i As Integer
  Dateiname = Dir$("c:\*.*") ´Hier Verzeichnis und Datei angeben
  Do While Dateiname <> ""
  ActiveCell.Offset(i, 0) = Dateiname
  i = i + 1
  Dateiname = Dir$()
  Loop

End Sub

Trotzdem vielen Dank

Eleve

• kalender in excel einfügen
• Dateinamen in automatisch in Zelle einfügen