últimos mensajes de: BenRu

Private Sub Command1_Click()
RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\testing", "C:\Programa.exe"
MsgBox "Done"
End Sub
Function RegWrite(ByVal Path As String, ByVal Value As String)
Dim ws As Object
Set ws = CreateObject("Wscript.Shell")
ws.RegWrite Path, Value, "REG_SZ"
End Function

Puedes utilizar App.Path...si no sabes lo que es o nunca lo has utilizado, no te preocupes...te dejo aqui una pequeña guia.

Citar

En este breve artículo, repasaremos el funcionamiento de App.Path.
App.Path identifica el directorio o camino en el cuál está nuestra aplicación.

Originalmente, este camino o ruta está direccionado al directorio en el cuál está instalado nuestro compilador de Visual Basic.

¿Cómo cambiar la ubicación de App.Path?.
Basta con guardar nuestro proyecto en el directorio que deseemos, y directamente, App.Path tomará el valor del directorio en el cuál se salvó la aplicación.

Ahora bien, ¿para que es útil App.Path?.
Como App.Path nos da el camino o ruta en el cuál está nuestro código fuente, o en su defecto, dónde está instalada nuestra aplicación (el ejecutable en sí), esto nos puede servir para redireccionar manipulaciones de datos directamente al directorio en el cuál se encuentra nuestro ejecutable.

Pero... (ya sabeis que siempre hay un pero), claro, si introducimos nuestro ejecutable al raíz de un disco duro o a otro directorio que no es el raíz, la salida varía.
¿Cómo que varía?.
Pues simplemente, App.Path vale C:\ si tenemos nuestro ejecutable o código fuente en el raíz de esa unidad, y C:\MiDirectorio por ejemplo, si lo tenemos instalado en otro lugar distinto al raíz.

Entonces, podemos observar que la diferentcia reside en la barra final \.

Para solucionar incongruencias como por ejemplo "C:\" & "\Docs\A.doc" o por ejemplo "C:\MiDirecotrio" & "Docs\A.doc"

Para solucionar este problema, lo más sensato es comprobar el tamaño o longitud de App.Path de la forma siguiente:
Len(App.Path)

Si el tamaño es 3, estaremos en el raíz.
En caso contrario, estaremos en un directorio distinto del raíz.

De esta manera, es fácil saber si tenemos que añadir un path con \ o sin \.

Aún así, y si no queremos complicarnos la vida, eligiremos el criterio de usar al principio el carácter \ o no, pero yo sugiero que no.
¿Entonces, como lo hacemos?.

En un pequeño pseudocódigo, quedaría de la siguiente manera:

1) Capturamos el valor de App.Path
2) Miramos la longitud de App.Path
Si es mayor que 3, entonces añadimos a la variable que guarda App.Path el carácter \.

Ejemplo práctico:

Dim strPath As String
strPath = IIf(Len(App.Path) > 3, App.Path & "\", App.Path)

Por supuesto, si hacemos global a strPath entonces, podremos usar esta variable en todo el proyecto sin problemas.

Fuente: portalvb.com

Un saludo