Ci sono riuscitooooooooooooooooo!

Con questo codice, data una directory si ispezionano tutte le sotto cartelle contenute:

codice:
Sub AllFolders(folderspec)
    Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 In sf
        s = f1.Name
        MyLabel.Caption = folderspec & "\" & s
        Call AllFolders(folderspec & "\" & s & "\")
    Next
End Sub
Ora ho un problema, l'operazione può essere molto lunga, come posso permettere all'utente di annullare il processo?
Un altra cosa, la parte segnata in grassetto, è inutile per l'operazione di ricerca è forse troppo veloce, e nella label non appare niente.