Cancellazione Directory e subDirectory

[xfood]

Ciao a Tutti,
volevo chiedere come posso cancellare
tutto il contenuto di una directory (cartella)
dove all'interno sono contenuti file e anche altre sotto cartelle

chiaramente sempre con FWPPC

Grazie mille a tutti

[Enrico Maria Giordano]

Usa la funzione Directory() per trovare e cancellare tutti i file della directory indicata. La funzione dovrà essere ricorsiva se all'interno della directory vi sono delle subdirectory. Un esempio non funzionante tanto per avere un'idea di come procedere:

Code: Select all  Expand view  RUN

FUNCTION DELETEDIR( cDir )

    LOCAL aDir, cName

    LOCAL i

    aDir = DIRECTORY( cDir + "\*.*", "HRD" )

    FOR i = 1 TO LEN( aDir )
        cName = aDir[ i, F_NAME ]

        IF cName == "."; LOOP; ENDIF
        IF cName == ".."; LOOP; ENDIF

        cName = cDir + "\" + cName

        IF "D" $ aDir[ i, F_ATTR ]
            IF !DELETEDIR( cName )
                RETURN .F.
            ENDIF
        ELSE
            IF FERASE( cName ) = -1
                POPMSG( "Impossibile cancellare il file " + cName + ".", 1 )
                RETURN .F.
            ENDIF
        ENDIF
    NEXT

    IF !REMOVEDIR( cDir )
        POPMSG( "Impossibile cancellare la cartella " + cDir + ".", 1 )
        RETURN .F.
    ENDIF

    RETURN .T.

EMG