Ottenere la directory di lavoro corrente dell'applicazione Gambas

Per ottenere la directory di lavoro corrente dell'applicazione Gambas, sono disponibili almeno due possibilità.

Uso della Proprietà "Application.Path"

La prima possibilità è fornita dalla proprietà .Path della Classe Application di Gambas.

Esempio:

Public Sub Main()

  Dim s As String
 
  s = Application.Path
  
  Print s
  
End

Uso della funzione esterna "getcwd()"

Un'altra modalità prevede l'uso della funzione esterna "getcwd()", dichiarata nel file header unistd.h.

Esempio:

Library "libc:6"

' char *getcwd (char *__buf, size_t __size)
' Get the pathname of the current working directory.
Private Extern getcwd(__buf As Pointer, __size As Long) As Pointer


Public Sub Main()
 
  Dim p As Pointer
 
  p = getcwd(0, 0)
  If p == 0 Then Error.Raise("Impossibile ottenere la directory di lavoro corrente !")
  
  Print String@(p)
  
End