Cómo Puedo Obtener La Ruta Del Directorio Donde El Archivo Se Abre?


Objetivo: Cómo Puedo Obtener La Ruta Del Directorio Donde El Archivo Se Abre?
Hola a todos

Estoy haciendo algunas pruebas en ejemplo "Notepad 3.0" que viene en gambas3.

Cuando abro un archivo de texto en este "Notepad", me di cuenta de que la ruta del archivo de texto está en Dialog.Path (por ejemplo, /home/edivaldo/arquivo.txt), que es la rutina:

Public Sub mnuOpen_Click()

Dim sPath As String

Dialog.Filter = ["*", ("All files"), "*.{c;cpp;h}", ("C/C++ files"), "*.txt", ("Text files"), "*.desktop", ("Desktop files")]

If Dialog.OpenFile() Then Return
LoadFile(Dialog.Path)

End


Mi pregunta es: ¿Cómo puedo obtener sólo la ruta del directorio donde el archivo se abre en el texto? (Por ejemplo: /home/edivaldo/ )

Doy las gracias a la atención

Perfil MP  
Objetivo: Re: Cómo Puedo Obtener La Ruta Del Directorio Donde El Archivo Se Abre?
a ver si te sirve esto

Public Sub mnuOpen_Click()

Dim sPath As String

Dialog.Filter = ["*", ("All files"), "*.{c;cpp;h}", ("C/C++ files"), "*.txt", ("Text files"), "*.desktop", ("Desktop files")]

If Dialog.OpenFile() Then Return
File.Load(Dialog.Path)
sPath = File.Dir(Dialog.Path)
Print sPath

End

última edición por v3ctor el Jueves, 24 Abril 2014, 23:30; editado 2 veces
Objetivo: Re: Cómo Puedo Obtener La Ruta Del Directorio Donde El Archivo Se Abre? [RESUELTO]
v3ctor escribió: [Ver mensaje]
a ver si te sirve esto

Public Sub mnuOpen_Click()

Dim sPath As String

Dialog.Filter = ["*", ("All files"), "*.{c;cpp;h}", ("C/C++ files"), "*.txt", ("Text files"), "*.desktop", ("Desktop files")]

If Dialog.OpenFile() Then Return
File.Load(Dialog.Path)
sPath = File.Dir(Dialog.Path)
Print sPath

End



¡Gracias! Funcionó.
Yo estaba tratando de hacer esto por tres días

Perfil MP  

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.9677s (PHP: -91% SQL: 191%)
Consultas SQL: 45 - Debug off - GZIP Activado