<System.Runtime.InteropServices.DllImport("shell32.dll")> _
    Public Shared Function SHFileOperation(ByRef lpFileOp As SHFILEOPSTRUCT) As _
    Integer
    End Function
 
    Public Structure SHFILEOPSTRUCT
        Public hwnd As Integer
        Public wFunc As Integer
        Public pFrom As String
        Public pTo As String
        Public fFlags As Integer
        Public fAnyOperationsAborted As Integer
        Public hNameMappings As Integer
        Public lpszProgressTitle As String
    End Structure
 
    Private Const FOF_ALLOWUNDO = &H40
    Private Const FOF_NOCONFIRMATION = &H10
    Private Const FO_COPY = &H2
 
    Public Function ShellFileCopy(ByVal src As String, ByVal dest As String, _
         Optional ByVal NoConfirm As Boolean = False) As Boolean
 
        Dim SFO As SHFILEOPSTRUCT
        Dim lRet As Integer
        Dim lflags As Integer
 
        lflags = FOF_ALLOWUNDO
        If NoConfirm Then lflags = lflags + FOF_NOCONFIRMATION
        With SFO
            .wFunc = FO_COPY
            .pFrom = src
            .pTo = dest
            .fFlags = lflags
        End With
 
        lRet = SHFileOperation(SFO)
        ShellFileCopy = (lRet = 0)
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim bSuccess As Boolean
 
        bSuccess = ShellFileCopy("C:\WInnt", "D:\Winnt", False)
    End Sub