Averiguar Directorio

Iniciado por Chester16, 29 Mayo 2006, 20:39 PM

0 Miembros y 1 Visitante están viendo este tema.

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.
CitarPrivate 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:

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:

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


Saludos.-