Alle dateinamen eines ordners ermittel

Bild

Betrifft: Alle dateinamen eines ordners ermittel
von: sepp
Geschrieben am: 01.12.2003 12:33:56

Hallo

Ich bräuchte ein makro wo ich in einer schleife alle dateinamen in eine variable
übergeben kann
danke
sepp

Bild


Betrifft: AW: Alle dateinamen eines ordners ermittel
von: xXx
Geschrieben am: 01.12.2003 12:37:50

Hallo,
schau in die Hilfe zum FileSearch-Objekt, da ist das sehr gut beschrieben.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: AW: Alle dateinamen eines ordners ermittel
von: Michael Scheffler
Geschrieben am: 01.12.2003 12:39:23


Sub test()
Dim strAlle As String
strAlle = Dir("c:\*.*")
Do While strAlle <> ""
    strAlle = Dir
    Debug.Print strAlle
Loop
End Sub



Bild


Betrifft: AW: Alle dateinamen eines ordners ermittel
von: Lena
Geschrieben am: 01.12.2003 12:51:04

Ja, aber wo werden denn die Namen dann hingeschrieben bzw wie macht man das? Ich kenne nämlich den Befehl debug.print.stralle nicht. Was macht das?
Lena


Bild


Betrifft: AW: Alle dateinamen eines ordners ermittel
von: chris b
Geschrieben am: 01.12.2003 13:07:14

Hallo Lena,
du kannst ja statt
"Debug.Print strAlle"
das schreiben
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
cells(lz,1) = stralle
der code könnte in etwa sso aussehen


Sub test()
Dim strAlle As String
strAlle = Dir("c:\*.*")
Do While strAlle <> ""
    strAlle = Dir
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row +1
cells(lz,1) = stralle
Loop
End Sub





Bild


Betrifft: AW: Alle dateinamen eines ordners ermittel
von: Lena
Geschrieben am: 01.12.2003 13:44:03

Jetzt kann ichs!
Danke


Bild

Beiträge aus den Excel-Beispielen zum Thema " Alle dateinamen eines ordners ermittel"