Averiguar Directorio

[Chester16]

Hola aver si alguien me podia pasar el codigo para averiguar donde se encuentra el archivo exe que as creado con visual basic.

[Dyablo Poeta]

Saludos, bueno si entendi bien tu pregunta, puedes usar la api GetCurrentDirectory, te pongo un codigo de ejemplo.

Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Sub Form_Paint()
    Dim sSave As String
    'Creas la variable que va a contener la direcion
    sSave = String(255, 0)
    'devuelve el directorio actual del exe
    GetCurrentDirectory 255, sSave
    MsgBox sSave
End Sub

Ejemplo Xtraido del Api Guide 3.7
Espero sea d ayuda.
Saludos

[Chester16]

Muxas gracias ya se como se hace.Esque todavia hay algunas cosas de vb que no controlo
Gracias

[FaiF (A¥åHøRå)]

Más sencillo aún:

Código [Seleccionar] Expandir

Dim x As String
x = App.Path

salu2

[Robokop]

msgbox app.path 'muestra el nombre del directorio
msgbox app.exename ' muestra el nombre del ejecutable
msgbox app.path & "\" & app.exename & ".exe" 'Muestra el directorio completo
saludos

[NYlOn]

Hay que tener cuidado al usar app.path & "\" & app.exename & ".exe" ya que si el directorio donde se ejcuta el programa es el directorio raiz te devuelve la ruta con la barra invertida al final, ej: "C:\"; "E:\"; etc...
Por lo tanto te quedaria C:\\Hola.txt lo que podria generar un error.
Para solucionar esto podrias usar un IF:

Código [Seleccionar] Expandir


If Right(App.Path, 1) = "\" then
     MsgBox app.path & app.exename & ".exe"
Else
    MsgBox app.path & "\" & app.exename & ".exe"
End If


Saludos.-