VB6 Für jeden Ordner Function ausführen

Hi,

Ich möchte gerne in VB6 für jeden Ordner und alle Unterordner eine function ausführen lassen.

Die Function :

Function List(ordner)
Open App.path & "\" & "Liste.txt" for append as #1
Print #1, ordner
Close #1
End Function

Nur mein Problem, wie kann ich dies Verwirklichen?

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 54361

Url: https://administrator.de/contentid/54361

Ausgedruckt am: 22.11.2024 um 19:11 Uhr

3 Kommentare

Neuester Kommentar

Hallo hexflex!

Soll das ein Äquivalent zu

dir d:\ /s /b /ad | sort > Liste.txt

werden?

Grüße
bastla

Hallo hexflex!

Ich nehme mal an, Du suchst etwas in der Art:

Sub ListAllFolders()
Set objFS = CreateObject("Scripting.FileSystemObject")  
DoFolders objFS.GetFolder("D:\") 'Startordner hier angeben (bzw eher aus Dialog / Textfeld / Variable übernehmen)  
End Sub

Sub DoFolders(Ordner As Object)
Dim UnterOrdner As Object
If LCase(Ordner.Name) <> LCase("System Volume Information") Then  
    For Each UnterOrdner In Ordner.SubFolders
        List UnterOrdner.Path 'List-Aufruf als Sub, nicht als Function  
        DoFolders UnterOrdner
    Next
End If
End Sub

Anmerkung: Was Du oben als "Function List(ordner)" dargestellt hast, ist für mich mangels Rückgabewert ein Sub - entsprechend auch der Aufruf in der Schleife.

Sollte tatsächlich nur der Name der Ordner gefragt sein, anstelle von ".Path" ".Name" verwenden.

Soll auch der Startordner mit ausgegeben werden, müsste die Zeile