Ordner Inhalt kopieren und Ordner löschen

Function SHFileOperation Lib "shell32.dll" _
(lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
Hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
End Type
Const FO_MOVE = &H1
Const FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_RENAME = &H4
Const FOF_MULTIDESTFILES = &H1
Const FOF_CONFIRMMOUSE = &H2
Const FOF_SILENT = &H4
Const FOF_RENAMEONCOLLISION = &H8
Const FOF_NOCONFIRMATION = &H10
Const FOF_WANTMAPPINGHANDLE = &H20
Const FOF_ALLOWUNDO = &H40
Const FOF_FILESONLY = &H80
Const FOF_SIMPLEPROGRESS = &H100
Const FOF_NOCONFIRMMKDIR = &H200

Sub VerzInhaltVerschieben(Quelle As String, Ziel As String)
On Error Resume Next
Dim SFO As SHFILEOPSTRUCT
With SFO
.wFunc = FO_MOVE
.pFrom = Quelle & "\*"
.pTo = Ziel
End With
Call SHFileOperation(SFO)
RmDir Quelle
Call Ordner_loeschen
End Sub


Sub Verschieben()
VerzInhaltVerschieben "C:\FV04\Firma Allgemein\Download\Anhänge_2016218.zip\", "C:\FV04\ _
Firma Allgemein\Lohnbescheide\Lohnbericht_01\"
End Sub

Sub Ordner_loeschen()
Dim Ord As String
Ord = "C:\FV04\Firma Allgemein\Download\Anhänge_2016218.zip"
If Dir(Ord, vbDirectory)  "" Then
RmDir "C:\FV04\Firma Allgemein\Download\Anhänge_2016218.zip"
MsgBox "gelöscht"
End If
End Sub