Differenze tra le versioni di "Ottenere la directory di lavoro corrente dell'applicazione Gambas"
Da Gambas-it.org - Wikipedia.
| Riga 4: | Riga 4: | ||
==Uso della proprietà ''Application.Path''== | ==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() | '''Public''' Sub Main() | ||
| − | + | Dim s As String | |
s = Application.Path | s = Application.Path | ||
| Riga 21: | Riga 20: | ||
==Uso della funzione esterna ''getcwd()''== | ==Uso della funzione esterna ''getcwd()''== | ||
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 ''getcwd()'', dichiarata nel file header ''unistd.h''. | ||
| − | |||
Esempio: | Esempio: | ||
| Riga 33: | Riga 31: | ||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| − | + | Dim p As Pointer | |
p = getcwd(0, 0) | p = getcwd(0, 0) | ||
Versione attuale delle 18:41, 20 ago 2022
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
