Læse dirstruktur

Hej,

forstår det ikke helt kan du ikke lave en File List sammen med en dir list og så bruger. Hver gang der åbnes et nyt dir ændres file.path til dir1.path. Forstår du?

/Casper

Det kan du let!

Gør følgende:

* Opret en dir listbox
* Opret en file listbox

I dir1 start proseduren skriver du:

file1.path = dir1.path


Mere er der ikke i det!

/KantoRaZa\

Ja men det er manualt, jeg vil sige at du skal starte i "\\server" og så skal den liste alle biblotekerne i det dir og så putte dem i en listbox og derefter skal den tage alle de bibloteker i listboxen og kører dem igennem og putte alle filnavnene i en ny listbox.....

/Tubber

Hmm - hvad vil du bruge de oplysninger til? Det er ganske simpelt at gennemløbe alle sine biblioteker, og deres filer, men det afhænger lidt af hvad opgaven går ud på.

VH CK

øøh....

Jeg spørger om det kan lade sig gøre eller ej......om hvad jeg skal bruge det til er vel min sag ?
For kan det lade sig gøre til en ting kan det vel også til en anden ?

Betragt følgende:

------
Public Sub SearchFolder(SF As String)

SearchFiles (SF)
Dim filehandle, filefolder, filesubfolders, f1
Set filehandle = CreateObject("Scripting.FileSystemObject")
Set filefolder = filehandle.getfolder(SF)
Set filesubfolders = filefolder.subfolders
    For Each f1 In filesubfolders
        SearchFolder (f1.Path)
    Next

End Sub
Public Sub SearchFiles(SF As String)

Dim filehandle, filefolder, folderfiles, currentfile
Set filehandle = CreateObject("scripting.filesystemobject")
Set filefolder = filehandle.getfolder(SF)
Set folderfiles = filefolder.Files
    For Each currentfile In folderfiles
        If Right(LCase(currentfile), 4) = fType Then
            InsertFile currentfile.Name, currentfile.Path
        End If
    Next
End Sub
------

Benytter fire centrale objekter:

*FileSystemObject - overordnet filstyringsobjekt
*Getfolder - åbner en given folder
*Subfolders - en collection af underliggende foldere, som du kan iterere igennem.
*Files - en collection af underliggende filer, som du kan iterere igennem.

De to sidstnævnte gør den rekursive funktion mulig. Ignorér den del af koden der hedder "Insertfiles" - det er bare en procedure der smider videre til et array.

Denne metode er smartere end brug af controls, da du kan lave et genbrugeligt modul eller en klasse ud af det. Det har jeg gjort.

Sig til hvis du har brug for en færdig klasse til formålet. Sender jeg gerne...!

Tillad mig at genindsætte som svar!!!


Betragt følgende:

------
Public Sub SearchFolder(SF As String)

SearchFiles (SF)
Dim filehandle, filefolder, filesubfolders, f1
Set filehandle = CreateObject("Scripting.FileSystemObject")
Set filefolder = filehandle.getfolder(SF)
Set filesubfolders = filefolder.subfolders
    For Each f1 In filesubfolders
        SearchFolder (f1.Path)
    Next

End Sub
Public Sub SearchFiles(SF As String)

Dim filehandle, filefolder, folderfiles, currentfile
Set filehandle = CreateObject("scripting.filesystemobject")
Set filefolder = filehandle.getfolder(SF)
Set folderfiles = filefolder.Files
    For Each currentfile In folderfiles
        If Right(LCase(currentfile), 4) = fType Then
            InsertFile currentfile.Name, currentfile.Path
        End If
    Next
End Sub
------

Benytter fire centrale objekter:

*FileSystemObject - overordnet filstyringsobjekt
*Getfolder - åbner en given folder
*Subfolders - en collection af underliggende foldere, som du kan iterere igennem.
*Files - en collection af underliggende filer, som du kan iterere igennem.

De to sidstnævnte gør den rekursive funktion mulig. Ignorér den del af koden der hedder "Insertfiles" - det er bare en procedure der smider videre til et array.

Denne metode er smartere end brug af controls, da du kan lave et genbrugeligt modul eller en klasse ud af det. Det har jeg gjort.

Sig til hvis du har brug for en færdig klasse til formålet. Sender jeg gerne...!

vil da gerne have den klasse :O)

smolf@krog-frandsen.dk