我想做檔案複製的動作...
but有執行錯誤453
dll進入點SHFileoperationA無法在shell32.dll中找到
可否高人可以指點一下.........感激不盡^_^*
Declare Function SHFileoperation Lib "shell32.dll" Alias "SHFileoperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
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
Private Sub Command1_Click()
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = App.Path + ("\thpa.mdb")
SHFileOp.pTo = App.Path + ("\bakup\0706.mdb")
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
SHFileoperation SHFileOp
End Sub