Ver Mensaje Individual
  #3 (permalink)  
Antiguo 02/05/2008, 14:33
Avatar de David
David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 20 años
Puntos: 839
Re: Ayuda con autocopiado

Cita:
Iniciado por Avellaneda Ver Mensaje
Buenas, puedes utilizar la propiedad App que junto con Path devuelve la ruta de la aplicación:

FileCopy App.Path & "\executable.exe", "c:\executable.exe"


Un saludo
Partiendo del código de ejemplo que publicó Avellaneda, haría esto:
Código:
 
Function AppPath() As String
ChDrive App.Path
ChDir App.Path
AppPath = IIf(Right(App.Path, 1) <> "\", App.Path & "\", App.Path)
End Function
Código:
 
FileCopy AppPath & "executable.exe", "c:\executable.exe"
Acostumbro hacer así, porque si no colocamos el ChDrive y el ChDir no funciona la primera vez que ejecutamos el programa. Y la última línea utilizo para no repetir la barra invertida (Por ejemplo, si App.Path=C:\)...

Espero haber ayudado.
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.

Última edición por David; 02/05/2008 a las 14:55