Ottenere la directory di lavoro corrente dell'applicazione Gambas
Da Gambas-it.org - Wikipedia.
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