[VB] copia file

[md76]

Con VB dovrei copiare tutti i file della cartella C:\pippo\papero\*.* nella cartella c:\md76.

Grazie

[Mabi]

dim FileName as string 
dim Percorso1 as string
dim Percorso2 as string

percorso1 = "C:\pippo\papero\"
percorso2 = "C:\md76\"
filename = dir(percorso1 & "*.*")

Do While FileName <> ""
  FileCopy Percorso1 & FileName, percorso2 & FileName
  FileName = Dir
  DoEvents
Loop

Prego.

[md76]

Grazie 1000, ora provo.

[Mabi]

Prego.

(Mabi)