Copiar recursivamente archivos especificos (*.mp3)
Publicado: 19 Jul 2010, 16:51
Me interesa copiar todos los archivos de tipo mp3 en otro directorio, manteniendo el mismo arbol de directorios. Es decir:
Origen C:\temp1
C:\temp1\z.mp3
C:\temp1\t.txt
C:\temp1\aaaa\x.mp3
C:\temp1\aaaa\i.jpg
C:\temp1\aaaa\bbbb\y.mp3
C:\temp1\aaaa\bbbb\m.avi
Destino D:\temp2
D:\temp2\z.mp3
D:\temp2\aaaa\x.mp3
D:\temp2\aaaa\bbbb\y.mp3
Esto copia todos los *.mp3 del directorio C:\temp1 bien pero no copia los subdirectorios. Para copiar los subdirectorios podria utilizar fso.CopyFolder, pero entonces no me dejaria copiar solo los tipos de archivo mp3.
¿Alguna sugerencia?
Gracias.
Origen C:\temp1
C:\temp1\z.mp3
C:\temp1\t.txt
C:\temp1\aaaa\x.mp3
C:\temp1\aaaa\i.jpg
C:\temp1\aaaa\bbbb\y.mp3
C:\temp1\aaaa\bbbb\m.avi
Destino D:\temp2
D:\temp2\z.mp3
D:\temp2\aaaa\x.mp3
D:\temp2\aaaa\bbbb\y.mp3
Código: Seleccionar todo
Private Sub Form_Load()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile ("C:\temp1\" & "*.mp3"), "D:\temp2", False
End
End Sub¿Alguna sugerencia?
Gracias.