为了显示个拷贝文件进度条,VF API调用 SHFileOperation shell32.DLL 用不来帮看看,
DECLARE INTEGER SHFileOperation IN shell32.DLL Long @hwnd, Long @wFunc, String @pFrom, String @pTo, Integer @fFlags, Long @fAnyOperationsAborted, Long @hNameMappings, String @lpszProgressTitle
pFrom ="c:\clm\zb.dbf"
pTo="A:\"
SHFileOperation( 0,0,pFrom,pTo , 0,1 )&&
Clea dlls
这样不对..........帮看看
DECLARE INTEGER SHFileOperation IN shell32.DLL Long @hwnd, Long @wFunc, String @pFrom, String @pTo, Integer @fFlags, Long @fAnyOperationsAborted, Long @hNameMappings, String @lpszProgressTitle
pFrom ="c:\clm\zb.dbf"
pTo="A:\"
SHFileOperation( 0,0,pFrom,pTo , 0,1 )&&
Clea dlls
这样不对..........帮看看
解决方案 »
- vb 至少一个参数没有被指定值,希望大家帮帮忙!
- 顺序文件的截取
- VB 时间运算的问题 试了几种方法都不行 在线求解决方法
- 请问如何打开cpl文件?
- 如何在程序里返回一个已知域名的IP地址
- 怎样使在程序中用loadpicture方法装入窗体图标在运行时显示为透明的呢?
- 哪儿有vb6.0中文版下载?
- 请问如何禁止MDI主窗体被拖拽窗体大小
- 新手,VB做个控件,在WEB上引用,实现接受扫描仪信息
- 简单的问题,100分的期待--请问如何打开IE6的Cookie(是手工打开,不是程序实现),有些网页访问时提示:Cookie Required.
- 我想用VB编一个拷贝目录的程序,各位能指教一下吗?
- 本菜鸟又来讨教了,呵呵~~欢迎赐教!
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String '只有在 FOF_SIMPLEPROGRESS 时用
End TypePrivate Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" (lpFileOp _
As SHFILEOPSTRUCT) As Long'wFunc 常数
'FO_COPY 把 pFrom 文件拷贝到 pTo。
Const FO_COPY = &H2
'FO_DELETE 删除 pFrom 中的文件(pTo 忽略)。
Const FO_DELETE = &H3
'FO_MOVE 把 pFrom 文件移动到 pTo。
Const FO_MOVE = &H1'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Const FOF_SILENT = &H4例子:
Dim SHFileOp As SHFILEOPSTRUCT
' 删除
SHFileOp.wFunc = FO_DELETE
SHFileOp.pFrom = "c:\config.old" + Chr(0)
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
Call SHFileOperation(SHFileOp)
' 删除多个文件
SHFileOp.wFunc = FO_DELETE
SHFileOp.pFrom = "c:\config.old" +Chr(0) + "c:\autoexec.old"+Chr(0)
SHFileOp.fFlags = FOF_ALLOWUNDO
Call SHFileOperation(SHFileOp)
' 拷贝
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = "c:\t\*.*"
SHFileOp.pTo = "d:\t\*.*"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
' 移动
SHFileOp.wFunc = FO_MOVE
SHFileOp.pFrom = "c:\config.old" + Chr(0)
SHFileOp.pTo = "d:\t"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
Call SHFileOperation(SHFileOp)