Software Garden

Aquellos que venimos tirando del carro desde VB 6.0 o antes, en algún momemto extrañamos la propiedad Path del objeto App. Para los nostálgicos, aquí va una función que puede reemplazara a App.Path:

Function App_Path() As String
  Return System.Appdomain.Currentdomain.Basedirectory
End Function

Podemos usarla fácilmente, por ejemplo, para abrir un archivo de texto en nuestra aplicación:

stLector = filArchivo.OpenText(App_Path & “miapp/archivo.txt”)
While stLector.Peek  -1
    strLine = stLector.ReadLine()
End While

Saludos.