Option Explicit
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Long
fAnyOperationsAborted As Integer
hNameMappings As Variant
lpszProgressTitle As String
End Type
Private Declare Function SHFileOperation Lib "shell32" (lpFileOp As SHFILEOPSTRUCT) As Integer
Private Sub Form_Click()
Dim obj As SHFILEOPSTRUCT
obj.hwnd = Me.hwnd
obj.wFunc = 2
obj.pFrom = "C:\My Documents\outlook.pst"
obj.pTo = "C:\My Documents\Wecoo\outlook.pst"
obj.fFlags = 0
obj.fAnyOperationsAborted = 1
obj.lpszProgressTitle = "DEMO"
Call SHFileOperation(obj)
End Sub
Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Long
fAnyOperationsAborted As Integer
hNameMappings As Any
lpszProgressTitle As String
End Type
Public Declare Function SHFileOperation Lib "shell32"(lpFileOp As SHFILEOPSTRUCT) As Integer