Dateinamen in Datei?

evt. kann die Dos-box helfen.

einfach in das Verzeichnis wechseln und am Prompt eingeben:

dir >list.txt

der dir-Befehl leitet nun seine Ausgaben direkt in diese Datei um.

Es geht natürlich auch mit anderen Dos-Befehlen (z.B. tree)

Zitat

Original geschrieben von mst-ton
evt. kann die Dos-box helfen.

einfach in das Verzeichnis wechseln und am Prompt eingeben:

dir >list.txt

der dir-Befehl leitet nun seine Ausgaben direkt in diese Datei um.

Es geht natürlich auch mit anderen Dos-Befehlen (z.B. tree)

Alles anzeigen

Mit der Methode wirds aber in ner Textdatei gespeichert er wollte das doch aber in ner Excel Tabelle.

Dann müsste man das ja wieder rüberkopieren.

Edit: Willst du alle Datein aufgelistet haben oder nur welche mit bestimmten Endungen?

Mit dir /b werden nur die Namen aufgelistet

dir /? ist dein Freund. Ein anderer alter Trick besteht darin, xcopy zu nutzen. Das hat nämlich die Option /l die nichts kopiert, sondern nur die Dateinamen auflistet.

VB-Script ist dein Freund

- Script kopieren und in einer .VBS Datei abspeichern.
- die Variablen Root und Folder anpassen (im Beispiel 'C:' und 'Temp')
- doppelklicken.

viel Spass

set fs=CreateObject("scripting.filesystemobject")
set oXL=CreateObject("excel.application")


'------ist anzupassen------
root = "C:"
folder = "temp"
'--------------------------


x=1
main


sub main()
    oXL.Visible = True
    oxl.Workbooks.add
    oXL.Columns("A:A").Select
    oXL.Selection.ClearContents
    GetFileList root & "\" & folder
    GetFolderList root,folder
end sub


Sub GetFolderList(root,folderspec)
    Set f = fs.GetFolder(root & "\" & folderspec)
    Set sf = f.Files
    file_c = sf.count
    Set sf = f.SubFolders
    fldr_c = sf.count
       For Each f1 in sf
          GetFileList root & "\" & folderspec & "\" & f1.name
          GetFolderList root & "\" & folderspec, f1.name
       Next
End Sub


Sub GetFileList(folderspec)
    on error resume next
    Set f = fs.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
    x=x+1
    oXL.Cells(x, 1).Value = f1.name
    Next
    if err.number > 0 then 
       GetFileList(folderspec)
    end if
End Sub