Folderlist i excel

Sub Mylist()
ListFiles Directory:="c:\first", SubDir:=True
End Sub

Sub ListFiles(Directory As String, SubDir As Boolean)
    Dim r As Long, i As Long
       
    If Directory = "" Then Exit Sub
    If Right(Directory, 1) <> "\" Then Directory = Directory & "\"
   
'  Insert headers
    r = 1
    Cells.ClearContents
    Cells(r, 1) = "FileName"
    Cells(r, 2) = "Size"
    Cells(r, 3) = "Date/Time"
    Range("A1:C1").Font.Bold = True
    r = r + 1

    On Error Resume Next
    With Application.FileSearch
        .NewSearch
        .LookIn = Directory
        .Filename = "*.*"
        .SearchSubFolders = SubDir
        .Execute
        For i = 1 To .FoundFiles.Count
            Cells(r, 1) = .FoundFiles(i)
            Cells(r, 2) = FileLen(.FoundFiles(i))
            Cells(r, 3) = FileDateTime(.FoundFiles(i))
            r = r + 1
        Next i
    End With
End Sub

... der henvises til http://www.eksperten.dk/spm/549478

Du looper blot over alle undermapper - en folder har en property .Subfolders. Har ikek lige tid nu - måske en anden?

Ellers kommer jeg tilbage

Nååehh, så ikke lige at der var to spørgsmål og at du havde svaret på det første, Martin.....beklager

nej nej - det var et meget gammelt sp.

Tak for hjælpen - et lille ekstra 'jule'ønske - kan jeg få uddata UDEN stien. Altså kun filnavnet, ligegyldig hvor den er placeret?
Læg et svar.

ok, her er den uden fuld sti. Virker dog kun i excel2000 eller højere

Sub Mylist()
ListFiles Directory:="c:\first", SubDir:=True
End Sub

Sub ListFiles(Directory As String, SubDir As Boolean)
    Dim r As Long, i As Long
    Dim vTemp As Variant
   
    If Directory = "" Then Exit Sub
    If Right(Directory, 1) <> "\" Then Directory = Directory & "\"
   
'  Insert headers
    r = 1
    Cells.ClearContents
    Cells(r, 1) = "FileName"
    Cells(r, 2) = "Size"
    Cells(r, 3) = "Date/Time"
    Range("A1:C1").Font.Bold = True
    r = r + 1

    On Error Resume Next
    With Application.FileSearch
        .NewSearch
        .LookIn = Directory
        .Filename = "*.*"
        .SearchSubFolders = SubDir
        .Execute
        For i = 1 To .FoundFiles.Count
        vTemp = Split(.FoundFiles(i), "\")
            Cells(r, 1) = vTemp(UBound(vTemp))
            Cells(r, 2) = FileLen(.FoundFiles(i))
            Cells(r, 3) = FileDateTime(.FoundFiles(i))
            r = r + 1
        Next i
    End With
End Sub

tak for hjælpen bak

dette er pludseligt blevet aktuelt igen, men jeg skal lige have to tilføjelser:  "Dimensioner" skal tilføjes (f.eks. 300 x 250, bruges til billeder) og så skal jeg have den fulde sti med (c:\goddag.txt)

jeg har oprettet point på http://www.eksperten.dk/spm/726374. Håber nogen kan hjælpe mig, har på fornemmelsen, at dét med Dimensioner ikke er så let...

ÆV, nu bruger jeg office 2007, og der er Application.FileSearch fjernet...er der nogen, som kan skrive en kode, der virker?