Differenze tra le versioni di "Ottenere la directory di lavoro corrente dell'applicazione Gambas"
Da Gambas-it.org - Wikipedia.
| Riga 2: | Riga 2: | ||
| − | ==Uso della | + | ==Uso della Proprietà "Application.Path"== |
La prima possibilità è fornita dalla proprietà ''.Path'' della Classe ''Application'' di Gambas. | La prima possibilità è fornita dalla proprietà ''.Path'' della Classe ''Application'' di Gambas. | ||
Esempio: | Esempio: | ||
| − | + | Public Sub Main() | |
Dim s As String | Dim s As String | ||
| Riga 14: | Riga 14: | ||
Print s | Print s | ||
| − | + | End | |
| − | + | ==Uso della funzione esterna "getcwd()"== | |
| − | ==Uso della funzione esterna | + | Un'altra modalità prevede l'uso della funzione esterna "getcwd()", dichiarata nel file header ''unistd.h''. |
| − | Un'altra modalità prevede l'uso della funzione esterna | ||
Esempio: | Esempio: | ||
| Riga 29: | Riga 28: | ||
| − | + | Public Sub Main() | |
Dim p As Pointer | Dim p As Pointer | ||
p = getcwd(0, 0) | p = getcwd(0, 0) | ||
| − | If p = 0 Then Error.Raise("Impossibile ottenere la directory di lavoro corrente !") | + | If p == 0 Then Error.Raise("Impossibile ottenere la directory di lavoro corrente !") |
Print String@(p) | Print String@(p) | ||
| − | + | End | |
Versione delle 17:09, 28 giu 2024
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
