Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

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 if

Ad 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: 13665

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
303 utenti registrati

Pagina servita il 29/03/24 alle 14:08:08 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad