In afara de XCOPY din DOS sau de ADIR()+luat fisier cu fiser
...copiere FOLDER si SUBFOLDERE
Forum rules
:: limbajul folosit in acest forum va fi unul civilizat, in limita subiectelor din topicurile deschise.
:: orice manifestare necivilizata (agresiune verbala, comportament neadecvat, reclama abuziva fara legatura cu forumul) va duce la stergerea contului de user.
:: pt. inscriere USER NOU la acest FORUM, folositi linkul https://profox.ro/forum-register/
:: IN ACEST TOPIC SE POSTEAZA DOAR RESURSELE SI DETALIILE AFERENTE
:: Nu atasati FISIERE! Inserati linkuri pt. acestea!
:: limbajul folosit in acest forum va fi unul civilizat, in limita subiectelor din topicurile deschise.
:: orice manifestare necivilizata (agresiune verbala, comportament neadecvat, reclama abuziva fara legatura cu forumul) va duce la stergerea contului de user.
:: pt. inscriere USER NOU la acest FORUM, folositi linkul https://profox.ro/forum-register/
:: IN ACEST TOPIC SE POSTEAZA DOAR RESURSELE SI DETALIILE AFERENTE
:: Nu atasati FISIERE! Inserati linkuri pt. acestea!
copiere FOLDER si SUBFOLDERE
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 ...
In afara de XCOPY din DOS sau de ADIR()+luat fisier cu fiser
...Re: copiere FOLDER si SUBFOLDERE
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")