zefri
Messages postés33Date d'inscriptionsamedi 1 juin 2002StatutMembreDernière intervention11 décembre 2002 6 nov. 2002 à 23:21
Pas la peine de réinventer l'eau tiède !
Y'a tout ce qui faut en librairies Windows pour faire le boulot !
Suffit de référencer "Microsoft Scripting Runtime" dans ton projet, et puis après ça tient en quelques lignes...
Sub CopyFile( SourcePath as string, DestinationPath as string)
On Error GoTo Error
Dim fso As New FileSystemObject
Dim oFile As File
Set oFile = fso.GetFile(SourcePath)
oFile.Copy DestinationPath