Option Explicit
 
Private Const SHF_NOCONFIRMATION = &H10
Private Const SHF_ALLOWUNDO = &H40
Private Const SHF_FILESONLY = &H80
Private Const SHF_RENAMEONCOLLISION = &H8&
Private Const SHF_SILENT = &H4&
Private Const SHF_FLAGS = SHF_SILENT Or SHF_RENAMEONCOLLISION Or SHF_FILESONLY _
  Or SHF_ALLOWUNDO Or SHF_NOCONFIRMATION
Private Const FN_MOVE = &H1&
 
Private Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As Long
        pFrom As String
        pTo As String
        fFlags As Integer
        fAnyOperationsAborted As Long
        hNameMappings As Long
        lpszProgressTitle As String
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
  "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
 
Dim blnCancel As Boolean        ' Abbrechen
Dim strPthCopy As String        ' Hierhin kopieren
Dim strPthWatch As String       ' Hier suchen
Dim strPthActive As String      ' Pfad/Datei Aktive
Dim strSource As String         ' Quelle
Dim strDest As String           ' Ziel
Dim strFile As String           ' Dateiname
Dim strExt As String            ' Dateierweiterung
Dim lngFile As Long             ' Dateiname als Zahl
Dim lngValue As Long            ' Der Bereich
Dim lngMod As Long              ' Der Faktor
Dim lngRet As Long              ' Ein Rückgabewert

Ohne Mampf, kein Kampf !