Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

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

Cómo Puedo Obtener La Ruta Del Directorio Donde El Archivo Se Abre?
Artículo
Responder citando    Descargar mensaje  
Mensaje 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



 
edivaldo - Ver perfil del usuario Enviar mensaje privado  
edivaldo [ Jueves, 24 Abril 2014, 21:05 ]
 


Cómo Puedo Obtener La Ruta Del Directorio Donde El Archivo Se Abre?
Comentarios
Responder citando    Descargar mensaje  
Mensaje 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 
v3ctor - Ver perfil del usuario Enviar mensaje privado  
v3ctor [ Jueves, 24 Abril 2014, 23:20 ]
Responder citando    Descargar mensaje  
Mensaje 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



 
edivaldo - Ver perfil del usuario Enviar mensaje privado  
edivaldo [ Viernes, 25 Abril 2014, 02:17 ]
Mostrar mensajes anteriores:    
 
Publicar nuevo tema  Responder al tema  Página 1 de 1
 
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 



 

cron