' Deklaration:
Declare Function SHFileOperation Lib "Shell32.dll" Alias _
                 "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

' Parameter:SHFILEOPSTRUCT
Type SHFILEOPSTRUCT
hwnd As Long    ' Fensterhandel auf das sich der Dialog
                ' bzw. die Animation modal verhalten soll
wFunc As Long   ' Funktionskonstante (siehe unten)
pFrom As String ' Quelldateien durch Chr(0) getrennt
                ' das Ende des Strings wird durch 2 x Chr(0) gekennzeichnet
pTo As String   ' Zieldateien durch Chr(0) getrennt
' das Ende des Strings wird durch 2 x Chr(0) gekennzeichnet.
' Nur möglich, wenn fFlags FOF_MULTIDESTFILES enthält, sonst immer "" & Chr(0)
fFlags As Integer ' Kombination aus Flagkonstanten (siehe unten)
fAborted As Long  ' True, wenn Aktion abgebrochen wurde
hNameMaps As Long ' ???
sProgress As String ' Titel des Fortschrittsdialogs, wenn fFlags
' FOF_SIMPLEPROGRESS enthält
End Type

' Funktionskonstanten:
Const FO_MOVE = &H1   ' verschieben
Const FO_COPY = &H2   ' kopieren
Const FO_DELETE = &H3 ' löschen
Const FO_RENAME = &H4 ' umbenennen

' Flagkonstanten:
Const FOF_MULTIDESTFILES = &H1    ' Aktion mit mehreren Dateien
Const FOF_CONFIRMMOUSE = &H2      ' unbekannt
Const FOF_SILENT = &H4            ' keine Fortschrittsanzeige
Const FOF_RENAMEONCOLLISION = &H8 ' bei doppelten Dateinamen wird
                                  ' "Kopie von ..." erstellt.
Const FOF_NOCONFIRMATION = &H10   ' Keine Dialoge (Autobestätigung)
Const FOF_ALLOWUNDO = &H40        ' Rückgängig machen erlaubt
Const FOF_FILESONLY = &H80        ' Keine Ordner für Aktion zulassen
Const FOF_SIMPLEPROGRESS = &H100  ' Keine Dateinamen im Dialogfeld
Const FOF_NOCONFIRMMKDIR = &H200  ' Ordner werden autom. erstellt

' Rückgabe: Immer 0, deshalb ohne Bedeutung!