[VB6] "Selezionare" tutte le cartelle in una directory specifica

[andrea toniolo]

mi piacerebbe farlo con il FileSystemObject , vorrei creare una routine che all'interno contenga tali istruzioni :

seleziono tutte le cartelle presenti in "C:\pippo\" , dentro tutte le cartelle metto una cartella di nome "XD"

si puo' fare? :master:

[oregon]

Devi studiare il funzionamento del FileSystemObject per poterlo utilizzare ...

    Dim fso As FileSystemObject
    Dim fld As Folder
    Dim sflds As Folders
    Dim sfld As Folder
    
    Set fso = New FileSystemObject
    Set fld = fso.GetFolder("C:\pippo")
    Set sflds = fld.SubFolders
    
    For Each sfld In sflds
        fso.CreateFolder sfld & "\XD"
    Next
    
    Set sflds = Nothing
    Set fld = Nothing
    Set fso = Nothing

[andrea toniolo]

hai ragione, e' molto utile come controlo sopratutto per il lavoro che sto facendo! grazie comunque!