copiar y pegar con extencion .dl,.txt
Publicado por Diego (5 intervenciones) el 15/01/2015 20:50:27
hola, como se hace para que copie solo los archivos .dll nomas
desde una carpeta, no desde una ruta, me explico
yo tengo asi el codigo:
FileToCopy = txtrigen & "\" & Directorio2 & "\sitio\web"
NewCopy = (txtDestino.Text.Trim)
Dim Obj_Fso As Object
Obj_Fso = CreateObject("Scripting.FileSystemObject")
Obj_Fso.CopyFolder(FileToCopy, NewCopy, True)
Obj_Fso = Nothing
lo que hace el codigo, copia todos los dll que se encuentran dentro de la ruta puesta(txtOrigen & "\" & Directorio2 & "\sitio\web")
pero lo que yo quiero que busque desde la ruta txtOrigen nomas y pegue los .dll encontrados a otro directorio(txtDestino)
yo se que es algo como \*.dll pero no me resulta
perdona la mini molestia :/
desde una carpeta, no desde una ruta, me explico
yo tengo asi el codigo:
FileToCopy = txtrigen & "\" & Directorio2 & "\sitio\web"
NewCopy = (txtDestino.Text.Trim)
Dim Obj_Fso As Object
Obj_Fso = CreateObject("Scripting.FileSystemObject")
Obj_Fso.CopyFolder(FileToCopy, NewCopy, True)
Obj_Fso = Nothing
lo que hace el codigo, copia todos los dll que se encuentran dentro de la ruta puesta(txtOrigen & "\" & Directorio2 & "\sitio\web")
pero lo que yo quiero que busque desde la ruta txtOrigen nomas y pegue los .dll encontrados a otro directorio(txtDestino)
yo se que es algo como \*.dll pero no me resulta
perdona la mini molestia :/
Valora esta pregunta
0