Imports System.Runtime.InteropServices
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
<DllImport("shell32.dll", EntryPoint:="SHFileOperationA")> _
    Public Shared Function ShellFileCopy(ByVal src As String, ByVal dest As _
    String, _
    Optional ByVal NoConfirm As Boolean = False) As Boolean
    End Function
 
'Aufruf der Funktion über den Button
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ShellFileCopy("c:\X\*", "c:\Y\")   ' Aufruf der DLL
    End Sub
 
End Class

Rob