![sin imagen de perfil sin imagen de perfil](/img/anonymouse.png)
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" Then
FileCopy path_modo_ruta_importar & MyFile, var_Ruta_Deposito_Docs & MyFile
End If
MyFile = Dir
Loop
MyPath = "C:\Estafeta\Sync_Google_Drive\Firmas\"
MyFile = Dir(MyPath)
Do While MyFile <> ""
If MyFile Like "*.txt" Then
FileCopy path_modo_ruta_importar & MyFile, var_Ruta_Deposito_Docs & MyFile
End If
MyFile = Dir
Loop
End If
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0