Public Class Form1
    Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
      "SHFileOperationA" (ByRef lpFileOp As SHFILEOPSTRUCT) As Integer
 
    Private Structure SHFILEOPSTRUCT
        Dim hwnd As Integer
        Dim wFunc As Integer
        Dim pFrom As String
        Dim pTo As String
        Dim fFlags As Short
        Dim fAnyOperationsAborted As Boolean
        Dim hNameMappings As Integer
        Dim lpszProgressTitle As String
    End Structure
 
    Const FO_COPY As Short = &H2S
 
    Public Function ShellCopy(ByVal strSource As String, ByVal strTarget As _
      String, ByVal Handle As Long) As Boolean
        Dim SFO As New SHFILEOPSTRUCT
        ShellCopy = True
        With SFO
            .hwnd = Handle
            .wFunc = FO_COPY
            .pFrom = strSource & Chr(0) & Chr(0)
            .pTo = strTarget & Chr(0) & Chr(0)
        End With
 
        Call SHFileOperation(SFO)
        If SFO.fAnyOperationsAborted Then ShellCopy = False
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ShellCopy("F:\Test", "C:\Test1", Me.Handle)
    End Sub

Jedes Programm,
in das sich ein Fehler einschleichen kann,wird auch einen enthalten.