Mejorar un bucle Do while para hacer referencia de imagenes
Publicado por Gonzalo (7 intervenciones) el 28/10/2015 16:46:51
Hola buenas tardes comunidad mi duda sustancial en este caso como se podría referenciar la imagen envede copiarla para mejorar el proceso de importación de mi aplicación. Cualquier posible solución sera bien recibida
saludos.
saludos.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
MyPath = "C:\Estafeta\Sync_Google_Drive\Firmas\"
MyFile = Dir(MyPath)
Do While MyFile <> ""
If MyFile Like "*.png" ThenFileCopy path_modo_ruta_importar & MyFile, var_Ruta_Deposito_Docs & MyFile
End If
MyFile = DirLoop
MyPath = "C:\Estafeta\Sync_Google_Drive\Firmas\"
MyFile = Dir(MyPath)
Do While MyFile <> ""
If MyFile Like "*.txt" ThenFileCopy path_modo_ruta_importar & MyFile, var_Ruta_Deposito_Docs & MyFile
End If
MyFile = DirLoop
End If
Valora esta pregunta
0