Originariamente inviato da Igor Baldacci
Col VB5 ho a disposione il comando FileCopy e basta e io sono un bel po' arrugginito!
Hai anche la funzione Dir.
Guarda questo esempio:
codice:
Const CartellaOrigine As String = "C:\1\"
Const CartellaDestinazione As String = "C:\2\"
Dim FileName As String
Dim ContFile As Long


FileName = Dir(CartellaOrigine & "*.*", _
           vbHidden + vbNormal + _
           vbReadOnly + vbSystem)
Do Until (Len(FileName) = 0&)
  FileCopy CartellaOrigine & FileName, CartellaDestinazione & FileName
  SetAttr CartellaDestinazione & FileName, GetAttr(CartellaOrigine & FileName)
  ContFile = (ContFile + 1&)
  FileName = Dir
Loop
If (ContFile > 0&) Then
  MsgBox "Copiati " & CStr(ContFile) & " file", vbInformation
End If