Come trovare i file mp3 nelle cartelle

[Ultraboss]

Vorrei cercare, per esempio in un cd, tutti i file Mp3 presenti nelle cartelle e sottocartelle come posso fare.

Adesso riesco solo a selezionare una cartella aprendo un file Mp3 con il metodo Process, e verificare la presenza di altri file Mp3 nel percorso già selezionato con l'oggetto OpenFileDialog.

[tas]

Per questa funzione ricorsiva ti serve FSO (File System Object, che trovi nella libreria Microsoft Scripting Runtime).

Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim root As Folder
    Dim c As New Collection
    Dim f As File

    Set root = fso.GetFolder("C:\Documents And Settings\xyz\Documenti")

    Call FindFiles(c, root, "*.mp3")

    For Each f In c
        Debug.Print f.Path
    Next
End Sub

Private Sub FindFiles(res As Collection, root As Folder, search As String)
    Dim fd As Folder
    Dim fl As File

    For Each fl In root.Files
        If fl.Name Like search Then res.Add fl
    Next

    For Each fd In root.SubFolders
        Call FindFiles(res, fd, search)
    Next
End Sub

[Ultraboss]

Grazie Tas, ma io ho un problema con questo FileSystemObject, il compilatore sottolinea il termine filesystemobject e mi dice "Tipo FileSystemObject non definito", ho provato ad aggiungere la libreria Microsoft scripting Runtime(tramite menu PROGETTO/AGGIUNGI RIFERIMENTO/SCHEDA COM), ma mi da errore comunque.

Che devo fare di +

[tas]

Premi F2 ed entra nel visualizzatore oggetti, guarda nella prima combobox, dovresti avere la libreria "Scripting". Se la selezioni vedi l'elenco delle classi e dei membri disponibili, dovresti trovare anche FileSystemObject. Se tutto questo non c'è, controlla nell'elenco dei riferimenti (menu Progetto/Riferimenti) che la libreria "Microsoft Scripting Runtime" sia caricata (segnata con il flag). Se è tutto a posto, salva, chiudi e riavvia VB, non si sa mai...

[Ultraboss]

Sì sono entrato nel vis. oggetti e la libreria c'è, ho salvato e riavviato, ma niente da fare.
Non so proprio dove sia l'errore...è il colmo!

Grazie comunque Tas per lo sforzo

[tas]

Prova ad anteporre ai tipi definiti in fso il nome della libreria:

Dim fso As New Scripting.FileSystemObject
Dim root As Scripting.Folder
Dim c As New Collection
Dim f As Scripting.File

[Ultraboss]

Sì funziona, grazie Tas, erano settimane che cercavo di capire come usare questo FileSystemObject.
Comunque ho capito ora, basta aggiungere l'istruzione:
Imports Scripting
all'inizio del codice.

Ancora tante grazie

[tas]

Se la prossima volta anteponi al titolo della discussione la sigla [VB.NET] sarà tutto più facile... non credi?