[SOLUCIONADO] Obtener la ruta real del sistema

[SOLUCIONADO] Obtener la ruta real del sistema - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: [SOLUCIONADO] Obtener la ruta real del sistema (/thread-1778.html)

Obtener la ruta real del sistema - tincho - 04-09-2024

Hola
Deseo obtener la ruta real de los archivos alojados en el proyecto pero no lo consigo.
Explico mas detalladamente.
En mi proyecto hay, por ejemplo, un directorio con los iconos "./var/svg/ui"
En el código al operar con estos archivos, por ejemplo para leer el contenido utilizo algo como:
[code]
Pero si deseo obtener el path del sistema linux, el path completo que seria algo como:
"/home/miusuario/gambas/miproyecto/var/svg/ui/unarchivo.svg"
¿Como se obtiene mediante código gambas?

Respuesta: Hay que usar Application.Path

RE: Obtener la ruta real del sistema - Shordi - 04-09-2024

Utiliza Application.Path. te dará la carpeta donde está el ejecutable pero cuando ejecutes la aplicación compilada y/o instalada ten en cuenta que esos archivos son de sólo lectura.

Saludos

RE: Obtener la ruta real del sistema - tincho - 05-09-2024

(04-09-2024, 09:54)Shordi escribió: Utiliza Application.Path. te dará la carpeta donde está el ejecutable pero cuando ejecutes la aplicación compilada y/o instalada ten en cuenta que esos archivos son de sólo lectura.

ok, si, los archivos no lo editare en tiempo de ejecución solo los escudriño en busca de errores cuando voy haciendo el programa y creo una copia "buena" en otra parte.
Gracias Shordi.

RE: Obtener la ruta real del sistema - alberto-moyano - 06-09-2024

Hola Tincho, no sé si esto aporta, pero yo para ejecutar aplicaciones externas buscando con la ruta completa utilizo un condicional como este

Código:
  Dim filePath As String

  filePath = File.Dir(TextBox1.Text) & "/pdf/" & BaseName & ".pdf"

  If File.RealPath(filePath) <> "" Then

    Shell "xdg-open " & filePath

  Else

    Message.Error("El archivo <b>" & BaseName & ".pdf</b> no existe.")

  Endif

RE: Obtener la ruta real del sistema - Shell - 08-09-2024

Puedes probar esto:

Código:
Print File.RealPath(Application.Path &/ "EjemploParaRutas.txt")

Hay que darle al menos la relativa al principio.

Cita:
Return the the canonicalized absolute pathname of a path, with no symbolic links inside.

Saludos