Dim UIOption As Microsoft.VisualBasic.FileIO.UIOption
Private Sub CopieFichier(ByVal FileSource As String, ByVal FileDestination As String)
If My.Computer.FileSystem.FileExists(FileSource) Then

'voir l'aide pour plus de détails sur les options 
My.Computer.FileSystem.CopyFile(FileSource, FileDestination, UIOption.OnlyErrorDialogs, FileIO.UICancelOption.ThrowException) 
Else
MsgBox("Le fichier source n'existe pas") 
End If

End Sub

'Exemple d'utilisation:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
CopieFichier("C:\Classeur1.xls", "C:\Classeur4.xls")
End Sub

Option Explicit 
Public Sub CopieFichier(ByVal Source As String, ByVal Destination As String, Optional Ecrase As Boolean = False) 
    'Fichier source Existe
    If (Dir(Source) <> "") Then 
        'Fichier destination n'existe pas ou doit etre ecrase
        If (Dir(Destination) = "") Or Ecrase Then Call FileCopy(Source, Destination) 
    Else 
        Call MsgBox("Le fichier source n'existe pas", vbExclamation & vbOKOnly) 
    End If 
End Sub 
'Exemple d'utilisation:
Private Sub Form_Load() 
'Exemple qui ecrase le fichier dde destination
Call CopieFichier("C:\Classeur1.xls", "C:\Classeur4.xls", True) 
'Exemple qui n'ecrase le fichier de destination
Call CopieFichier("C:\Classeur1.xls", "C:\Classeur4.xls") 
End Sub 

function WCopy(const SrcFileName, DstFileName : string; const OverwritePrompt : boolean = false) : boolean;
begin
  result := false;
  if Not FileExists(SrcFileName) then begin
     MessageDlg( 'Erreur de copie :'+#13#10+
                 'Le fichier source "'+ExtractFileName(SrcFileName)+'" n''existe pas.',
                 mtWarning, [mbOk], 0);
     exit;
  end;
  if FileExists(DstFileName) and OverwritePrompt then
     if MessageDlg( 'Voulez-vous ecraser le fichier :'+#13#10+
                      DstFileName+' ?',
                      mtConfirmation, [mbYes, mbNo], 0) = mrNo then
        exit;
  result := CopyFile(PChar(SrcFileName), PChar(DstFileName), false) <> 0;
  if not result then
     MessageDlg(SysErrorMessage(GetLastError), mtError, [mbOk],0);
end;

public static void CopyFile(string srcFile, string destFile, bool overwrite) 
{
   if (File.Exists(srcFile)) File.Copy(srcFile, destFile, overwrite); 
   else throw new FileNotFoundException("File not found"); 
}

import java.io.*;
void copy (String src, String dst, boolean overwrite) throws Exception {
        File srcFile = new File (src);
        File dstFile = new File (dst);
        
        if (!srcFile.exists ())
               throw new FileNotFoundException ();
        
        if (overwrite) {
            if (dstFile.exists ())
                dstFile.delete ();
        }
        else if (dstFile.exists ())
            throw new SecurityException ();
            
        FileReader in = new FileReader(srcFile);
        FileWriter out = new FileWriter(dstFile);
        
        int c;
        while ((c = in.read()) != -1)
              out.write(c);
        in.close();
        out.close();        
}

var ecraser=true;//écraser les fichiers si existant
new ActiveXObject("Scripting.FileSystemObject").CopyFile("source","destination",ecraser);

Sub CopyFile(SourceFile, DestinationFile)
'   reader
    Dim oFSO
    Set oFSO = CreateObject("Scripting.fileSystemObject")
    
'    copie
    oFSO.CopyFile SourceFile, DestinationFile, True
'    nettoyage
    Set oFSO = Nothing
End Sub