[VISUAL BASIC] Come copiare una cartella?

[Daedalus]

Vorrei chiedervi se potete aiutarmi nella composizione di una Sub che mi consenta di copiare una cartella in una nuova posizione. Premetto, che il numero di file nella cartella nn è fisso, e quindi non posso usare il FileCopy(almeno io, non so come potrebbe essere usato). Grazie in anticipo!

[Gendo Ikari]

Non ti so dire di preciso, ma ti posso indirizzare.
Devi utilizzare le chiamate alle API di Windows.

[Daedalus]

Dopo un po' di applicazione ho scoperto, che il visual basic, per la gestione delle directory e dei file, usa oltre ai comandi Mkdir, Rmdir, Open ecc. anche un oggetto appartenente alla classe Scripting.FileSystemObject.
Per cui bisogna prima creare un oggetto usando il comando:

SET <nomeoggetto> = CreateObject("Scripting.FileSystemObject")

ecco un esempio di routine per la copia delle cartelle:

Public Sub CopiaDir(sorgente As String, destinazione As String)
Set fileadmin = CreateObject("Scripting.FileSystemObject")
fileadmin.copyfolder sorgente, destinazione
End sub

Tuttavia mi sono accorto che quando si scrive, come nell'esempio, "fileadmin." non appare la funzione di completamento automatico. Per maggiori informazioni sui metodi e proprietà dell'oggetto potete consultare l'MSDN.

[gymvideo]

attento che a utilizzare il filesystemobject scatta l'antivirus...

[Daedalus]

Io ho Norton System Works 2003, è quando uso quella chiamata non scatta niente!
Grazie della segnalazione cmq.