Ayuda con autocopiado

[yduenas]

Buenas, estoy haciendo un pequeño programita en Visual Basic 6, el cual quiero que cuando se ejecute se autocopie para el Disco Local C:, he hecho que se auto copie, pero dandole la dirección de origen, la cual varia por lo cual cuando se ejecuta desde otra dirección que no es la que tiene establecida en el codigo. me da error. Por lo que quisiera saber si hay algun codigo o API que cuando se ejecute obtenga automaticamente su dirección de origen y se autocopie para la dirección de destino que tiene predeterminada. Por favor si no entienden lo que les digo me pueden escribir a mi correo: [email protected] aquí les pongo parte del codigo que puse para que se auto copie y entenderan lo que les digo

On Error GoTo Fallo
x = GetAttr("E:\ejecutable.exe")
FileCopy "E:\ejecutable.exe", "C:\ejecutable.exe"
Exit Sub
Fallo:
FileCopy "H:\ejecutable.exe", "C:\ejecutable.exe"

[Avellaneda]

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

[David]

Iniciado por Avellaneda

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.

[yduenas]

Gracias a los dos, me han ayudado muchisimo.
No saben cuanto se los agradesco.
Saludos