Excel (Eller andet) : Liste over biblioteker

Hvordan ser din fil ud?

A'hva'? - Det er kataloger jeg skal ha' ind i Excel. Hvis du snakker om Excel filen, så er det vel bare en standard Excel fil - Ved ikke så meget om det så jeg kan kalde den andet!!!.

Jeg mener det katalog du har liggende på HD'en.
Meget man lade sig gøre i Excel, men det er rart at vide lidt om, hvor man skal hen.

Nedenstående makroer kan gøre det.
Du skal ændre biblioteket i første makro og køre den.
Den skriver så komplet sti til alle underfoldere helse vejen igennem i kolonne A. Husk at få linien Public A as integer med.

Public a As Integer
Sub test()
f = "C:\COMPAQ"
Call ShowFolderList(f)
End Sub

Sub ShowFolderList(folderspec)
    Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 In sf
    a = a + 1
    Range("A1").Offset(a, 0).Value = f & "\" & f1.Name
    Call ShowFolderList(f & "\" & f1.Name)
    Next
End Sub

I sub test() lige inden End Sub indsæt linien
a = 0
da denne ellers huskes til næste kørsel

Lyder interessant - Jeg kigger lige på det :-D

Denne lille kode bid lister filerne i variablen sti. Men det er kun en kode stump, så der mangler at blive erklæret variabler, det er blot for at gøre opmærksom på funktionen!

    With Application.FileSearch
        .NewSearch
        .LookIn = sti
        .FileName = "*.*"
        .SearchSubFolders = True
        .Execute
        For i = 1 To .FoundFiles.Count
            Cells(r, 5) = .FoundFiles(i)
            r = r + 1
        Next i

Det virker helt fantastisk :-D. Tak for det!!!!

Selv tak.. Det er faktisk også min første recursive procedure dvs. en procedure der kalder sig selv. Jeg var lidt spændt på om den ville bruge hele hukommelsen og løb tør, men det ser ikke sådan ud :-)

Nope! - Det ser mere ud til det styrer :-D