Ciao a tutti, sono nuovo del forum e nn ho ben capito se è questa la sezione giusta x VB6...
ho un piccolo problema nell'usare Dir$ in modo ricorsivo alla ricerca di sotto-cartelle in un percorso principale. il codice che uso è questo:

codice:
    Sub Scan(ByVal Fold$)
            Dim SFold$, Recall$

        SFold = Dir(Fold, vbDirectory)
        Do Until SFold = Empty
            DoEvents
            If Not (SFold = "." Or SFold = "..") Then
                If (GetAttr(Fold & SFold) And 16) = 16 Then
                    Debug.Print Fold & SFold
                    Recall = Fold & SFold & "\"
                    Call Scan(Recall)
                End If
            End If
            SFold = Dir
        Loop
    End Sub
Il problema si verifica al rientro dalla ricorsione nella riga SFold = Dir, in quanto Dir$ non riesce ad aggiornarsi con la sub-cartella successiva... faccio un esempio (il path di partenza è C:\prova):

C:\prova\Sub1 =>Viene controllata
C:\Prova\Sub1\SubSub1 => Viene controllata
C:\prova\Sub2 =>Non viene vista in quanto Dir si paralizza su C:\prova\sub1

spero di essere stato chiaro ed esaustivo, e ringrazio ttt in anticipo x eventuali risposte e suggerimenti x risolvere il problema