Option Explicit
 
Public Type SHFILEOPSTRUCT
   hWnd        As Long
   wFunc       As Long
   pFrom       As String
   pTo         As String
   fFlags      As Integer
   fAborted    As Boolean
   hNameMaps   As Long
   sProgress   As String
 End Type
 
Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_RENAME = &H4
 
Public Const FOF_SILENT = &H4
Public Const FOF_RENAMEONCOLLISION = &H8
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_SIMPLEPROGRESS = &H100
Public Const FOF_ALLOWUNDO = &H40
 
Public Declare Function SHFileOperation Lib "shell32.dll" Alias _
  "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
 
Public FLAG&

 
Option Explicit
Dim FO_FUNC As Long
Const FileMove As Integer = 1
Const FileCopy As Integer = 2
Const optSilent As Integer = 0
Const optNoFilenames As Integer = 1
Const optNoConfirmDialog As Integer = 2
Const optRenameIfExists As Integer = 3
Const optPromptMeFirst As Integer = 4
Dim Source As String
Dim destination As String
 
 
 
Sub Kopiere(ByVal Source$, ByVal Dest$)
    Dim FOF_FLAGS, a As Long
    Dim SHFileOp As SHFILEOPSTRUCT
    Source = Source & Chr$(0) & Chr$(0)
    FOF_FLAGS = FLAG
    With SHFileOp
      .wFunc = 2
      .pFrom = Source
      .pTo = Dest
      .fFlags = FOF_FLAGS
    End With
    a = SHFileOperation(SHFileOp)
End Sub
 
Private Sub chkStatusfenster_Click()
   If chkStatusfenster.Value = vbChecked Then FLAG = FOF_SILENT Or _
     FOF_RENAMEONCOLLISION
End Sub
 
Private Sub cmdKopier_Click()
   Kopiere txtQuelle.Text, txtZiel.Text
   MsgBox "Sie Sollten die Datei Attribute noch Ändern!", vbInformation + _
     vbMsgBoxSetForeground, frmCopyFolder.Caption & " Beendet"
    cmdKopier.Enabled = False
End Sub
 
Private Sub cmdQellOrdner_Click()
  Dim Ordner As String
  Ordner = BrowseForFolder("Quell-Ordner")
  If Ordner <> "" Then
    txtQuelle.Text = Ordner
    Call MehrzeiligerToolTip
  End If
End Sub
 
Private Sub cmdZielOrdner_Click()
  Dim Ordner As String
  Ordner = BrowseForFolder("Ziel-Ordner")
  If Ordner <> "" Then
    txtZiel.Text = Ordner
    cmdKopier.Enabled = True
    Call MehrzeiligerToolTip
  End If
End Sub