Guardate qui:
Creiamo una nuova Command-line application che possiamo nominare Sinonimous
Aggiungiamo al progetto una nuova classe statica nominata CPaths con questo codice:
Create Static
Property Read sPathDB, PercorsoDatabase As String
Private $sPathDB As String
Property Read sPathIm, PercorsoImmagini As String
Private $sPathIm As String
Property Read sPathTx, PercorsoTxt As String
Private $sPathTx As String
Public Sub _new()
$sPathDB = User.Home &/ Application.Name &/ "Database"
' 'If Not Exist...
$sPathIm = User.Home &/ Application.Name &/ "Immagini"
' 'If Not Exist...
$sPathTx = User.Home &/ Application.Name &/ "FileTesto"
' 'If Not Exist...
End
Private Function sPathDB_Read() As String
Return $sPathDB
End
Private Function sPathIm_Read() As String
Return $sPathIm
End
Private Function sPathTx_Read() As String
Return $sPathTx
End
In Main Sub Main inseriamo questo al posto di Print "Hello world":
With CPaths
Print .PercorsoDatabase
Print .PercorsoImmagini
Print .PercorsoTxt
End With
Nella console dovreste ottenere questo:
/home/<vostro nome>/Sinonimous/Database
/home/<vostro nome>/Sinonimous/Immagini
/home/<vostro nome>/Sinonimous/FileTesto
Vedi anche: http://gambaswiki.org/wiki/lang/propdecl?l=it