发信人: jiah()
整理人: jinhu(1999-07-13 10:33:41), 站内信件
|
新开一个Project,添加一个Button,然后将下面的代码拷贝过去即可运行了:
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFi
leOperationA" (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 Long
hNameMappings As Long
lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS
End Type
Const FO_COPY = &H2
Private Sub Command1_Click()
Dim SHFile As SHFILEOPSTRUCT
With SHFile
.pFrom = "c:\temp\Cache.zip" '- 要拷贝的文件名
.pTo = "c:\dos" '- 目标目录或文件名
.hwnd = Me.hwnd
.wFunc = FO_COPY
End With
SHFileOperation SHFile
End Sub
可以从MSDN在找到祥细的说明(拷贝一个较大的文件可以看到其
效果,太小的可能因为太快而不能看到拷贝画面).
Good luck!
--
别问我是谁
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 210.160.205.31]
|
|