Forum VisualFox

Posted: **20 Mar 2025, 16:30**

Ati gasit vreo varianta facila (fara mult script) pt a copia un folder cu toate subfolderele lui in alta locatie ?
In afara de XCOPY din DOS sau de ADIR()+luat fisier cu fiser

...

Posted: **25 Mar 2025, 10:14**

Code: Select all

PARAMETERS tcSource, tcDestination
    LOCAL loFSO
    loFSO = CREATEOBJECT("Scripting.FileSystemObject")
    IF !loFSO.FolderExists(tcSource)
        MESSAGEBOX("Folderul sursa nu exista!", 16, "Eroare")
        RETURN
    ENDIF
    IF !loFSO.FolderExists(tcDestination)
        loFSO.CreateFolder(tcDestination)
    ENDIF
    loFSO.CopyFolder(tcSource, tcDestination, .T.) && .T. permite suprascrierea fisierelor existente
    loFSO = NULL
    MESSAGEBOX("Copiere finalizata!", 64, "Succes")

Forum VisualFox

copiere FOLDER si SUBFOLDERE

copiere FOLDER si SUBFOLDERE

Re: copiere FOLDER si SUBFOLDERE