Mostrar mensajes previos
Ordenar por
por woons Sin sí­ntomas
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

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
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.
por Slek VIP
Consigue un code que liste los subdirectorios, con el mismo FSO creo que se puede. Después haces un bucle que recorrara todos los subdirectorios y ya está.
github.com/Slek-Z
Temas similares
Copiar o clonar web por vaceo en General
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”