Titolo: Estrarre il percorso della cartella
Categoria: Codice |
|
Ultimo Aggiornamento: 28/06/04 |
Questa funzione può essere usata per ottenere il pathname (percorso) della cartella in cui risiede un determinato file di cui si ha il nome completo. Ad esempio, per sapere la cartella dove si trova l'applicazione 4D in funzione al momento, si può usare con la relativa funzione di 4d:
$directory_t:=getPathname(Application File)
` getPathname
` Nexus srl
C_STRING(255;$1;$0;$nomecompleto_t)
C_STRING(1;$separatore_t)
C_INTEGER($viLen;$viPos;$viChar)
$nomecompleto_t:=$1
$len_l:=Length($nomecompleto_t)
` identifico il separatore usato, ":" oppure "\"
$separatore_t:=System folder[[Length(System folder)]]
$car_l:=Length($nomecompleto_t)
While (($car_l>0) & ($nomecompleto_t[[$car_l]]#$separatore_t))
$car_l:=$car_l-1
End while If ($car_l>0)
$0:=Substring($nomecompleto_t;1;$car_l) `restituisce il percorso
Else $0:=$nomecompleto_t `se non contiene separatori
End if
| Inviato da: Umberto Migliore |
|
Visite: 14477 |
Se accedi con utente e password, puoi aggiungere dei commenti.
