PopAds.net - The Best Popunder Adnetwork

Ricerca su directory Excel

  • Ricerca file in una directory di jjresti
    Vorrei fare una ricerca dei file in una directory e visualizzarli in una list box, ho trovato un sacco di procedure in rete, ma nessuna mi funziona! Suggerimenti?

    With Application.FileSearch
    .NewSearch
    .LookIn = "C:\backup"
    .Filename = "*.*"
    If .Execute() > 0 Then
    MsgBox "E vaiii!!!!"
    End If
    End With

    di Mauro
    La routine seguente fa una ricerca dei file nella directory backup ed inserisce il risultato nella ListBox.
    Sub prova()
    MyPath = "C:\backup\*.*"
    MyName = Dir(MyPath, vbNormal)
    Do While MyName <> ""
    ListBox1.AddItem MyName
    MyName = Dir
    Loop
    End Sub