Titolo: Creare un percorso completo ad un file
Categoria: Codice |
|
Ultimo Aggiornamento: 05/07/04 |
Supponi di voler creare un documento da 4D e metterlo in un qualche posto sul disco. Dovresti sapere esattamente dove registrare il documento e se quel posto o cartella esiste. Oppure puoi creare il percorso con tutte le cartelle che servono per arrivare alla posizione desiderata dove mettere il documento.
L'esempio che segue, chiamato PreparaPercorso, fa esattamente questo:
C_TEXT($1;$percorso_t;$percorsoCreato_t;$cartella_t)
C_STRING(1;$separatore_t)
C_LONGINT($SistemaOperativo_l)
$percorso_t:=$1
SistemaOperativo_l PROPERTIES($SistemaOperativo_l)
If ($percorso_t#"")
` per windows, bisogna passare anche la lettera del disco
If ($SistemaOperativo_l=
Windows)
If (Position(":\\";$percorso_t)#0)
$percorsoCreato_t:=Substring($percorso_t;0;Position("\\";$percorso_t))
$percorso_t:=Substring($percorso_t;Position("\\";$percorso_t)+1)
End if $separatore_t:="\\"
Else $separatore_t:=":"
End if ` aggiungiamo il separatore in coda, se non ci fosse già
If ($percorso_t[[Length($percorso_t)]]#$separatore_t)
$percorso_t:=$percorso_t+$separatore_t
End if Repeat ` identifica la prossima cartella
$cartella_t:=Substring($percorso_t;0;Position($separatore_t;$percorso_t))
$percorso_t:=Substring($percorso_t;Position($separatore_t;$percorso_t)+1)
$percorsoCreato_t:=$percorsoCreato_t+$cartella_t
` la crea se non esiste
Case of :(Test path name($percorsoCreato_t)<0)
CREATE FOLDER($percorsoCreato_t)
:(Test path name($percorsoCreato_t)=1)
$cartella_t:=""
End case Until ($cartella_t="")
End ifAd esempio, chiamando questo metodo passando questo parametro:
PreparaPercorso("C:\\Prima Cartella\\Seconda\\Ultima cartella\\")
Questo crea queste tre cartelle nel disco C:. Con questo metodo non è necessario preoccuparsi che una posizione esista già, perché se serve il metodo la crea, altrimenti non fa niente.
| Inviato da: Umberto Migliore |
|
Visite: 13985 |
Se accedi con utente e password, puoi aggiungere dei commenti.
