[Resolvido] Indicar um caminho e copiar ficheiros até de SubPastas?

[Santana]

Olá Pessoal! Quero que um programa vaça uma busca em uma pasta que eu indicar, procurando por arquivos mp3 e depois copiar esse arquivos para outra pasta, mas atenção tem que ser todos os ficheiros.

Ex: tenho uma pasta Musicas mas dentro existe várias sub-pastas tipo: Musicas\HipHop\Autores etc. Quero o programa copia todos as musicas de todas sub-pastas entenderam? Até agora só consegui copiar todos os ficheiros mp3 da pasta Musicas e eu não quero ter que indicar todos os sub-directorios.

Saudações

Santana

[jpaulino]

Podes tentar algo assim (não testado):

Dim ficheiros() As String = IO.Directory.GetFiles("c:\caminho", "*.mp3", IO.SearchOption.AllDirectories)
For Each f As String In ficheiros
 IO.File.Copy(f, "c:\destino\" & IO.Path.GetFileName(f)
Next

Basicamente vais buscar todos os ficheiros, usando o método IO.Directory.GetFiles() e depois fazes um ciclo nos resultados (array) e copias para uma nova localização. Usando o método IO.Path.GetFileName() vais buscar apenas o nome do ficheiro, sem o caminho, podendo-se indicar uma nova localização.

[Santana]

Muito Obrigado!!!