lister over undermapper, subfolders

Prøv at kigge på http://www.eksperten.dk/spm/819641

Der løber koden igennem diverse underfoldere, og selv om den her lister de filer, der er i folderen for derefter at tage fat på underfoldere, giver den en meget god idé til, hvad du kan.

Jeg må indrømme jeg ikke helt forstår koden, jeg skal nok have lidt mere hjælp. Vil koden også virke på andre maskine, hvor reference, Microsoft Scripting Runtime ikke er sat. Følger det med i min fil ?

Referencen følger med filen, og så længe filen, som der refereres til, eksisterer på "den næste pc", er der ingen problemer. Scripting Runtime er en del af standard-installationen, så det giver ikke problemer.

Nedenstående løber alle foldere igennem fra et startpunkt, som du angiver i proceduren GetAllSubFolders. Når den er færdig med at køre, har du i strFolders en samlet streng med alle foldere adskilt med linjeskift. Jeg ved ikke, hvad du ønsker at gøre med listen, men i nedenstående kode bliver den printet til Immediate-vinduet.

**************
Public Sub GetAllSubFolders()
    Dim strFolders As String
   
    Call ListSubFolders("C:\Samples", strFolders)
    Debug.Print strFolders
End Sub


Public Sub ListSubFolders(strFolder As String, Optional strFolders As String)
    Dim objFS As Scripting.FileSystemObject
    Dim objStartFolder As Folder
    Dim objFolderInFolder As Folder
   
    Set objFS = New Scripting.FileSystemObject
    Set objStartFolder = objFS.GetFolder(strFolder)
   
    For Each objFolderInFolder In objStartFolder.SubFolders
        strFolders = strFolders & objFS.BuildPath(objStartFolder.Path, objFolderInFolder.Name) & vbCr
        Call ListSubFolders(objFS.BuildPath(objStartFolder.Path, objFolderInFolder.Name), strFolders)
    Next objFolderInFolder
   
    Set objFS = Nothing
    set objStarFolder = nothing
End Sub

Hov, den har ikke indlagt mit indlæg fra iaftes.

Nu har jeg forstået det, det meste :o), selv om jeg finder det unaturlig/ulovlig, at funktionen kan kalde sig selv, det kan jo være en uendelig løkke!

smid du bare et svar, og takker :o)

Du har fuldstændig ret; det kan være en uendelig løkke, men det passer jo meget godt med foldere i foldere. Hvis du ikke er vild med det, kan du bygge en tæller med ind, så du får afbrudt den efter et eller antal gennemløb.

Hvor finder man forresten hjælp/opslag til funktioner som findes i referencen?

http://www.w3schools.com/asp/asp_ref_filesystem.asp

Lad dig ikke narre af, at det står i ASP-sektionen :-)