主题:[代码]复制/移动文件,并显示相应的进度条对话框
来源:互联网 发布:淘宝折扣券 编辑:程序博客网 时间:2024/05/22 05:52
Option Explicit
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
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_SIMPLEPROGRESS = &H100
Private Const FO_COPY = &H2
Private Const FO_MOVE = &H1
'--------------------------------------------------------------------------------
' 过程: ShellFileCopy
' 描述: 复制文件,并显示“正在复制...”进度条对话框
' 返回: [Boolean] True为复制成功,False为复制失败
'
' 参数:
' Src (String) 要复制的源文件
' Dest (String) 要复制到的位置
' hWnd (Long) 父窗体的句柄(可选)
' NoShowText (Boolean = False) 是否不显示复制的文件名
' NoConfirm (Boolean = False) 是否不显示确认对话框
'
'--------------------------------------------------------------------------------
Public Function ShellFileCopy(Src As String, Dest As String, _
Optional hWnd As Long, _
Optional NoShowText As Boolean = False, _
Optional NoConfirm As Boolean = False) As Boolean
Dim SFO As SHFILEOPSTRUCT
Dim lRet As Long
Dim lflags As Long
lflags = FOF_ALLOWUNDO
If NoShowText Then lflags = lflags Or FOF_SIMPLEPROGRESS
If NoConfirm Then lflags = lflags Or FOF_NOCONFIRMATION
With SFO
.wFunc = FO_COPY
.pFrom = Src
.pTo = Dest
.fFlags = lflags
End With
lRet = SHFileOperation(SFO)
ShellFileCopy = (lRet = 0)
End Function
'--------------------------------------------------------------------------------
' 过程: ShellFileMove
' 描述: 移动文件,并显示“正在移动...”进度条对话框
' 返回: [Boolean] True为移动成功,False为移动失败
'
' 参数:
' Src (String) 要移动的源文件
' Dest (String) 要移动到的位置
' hWnd (Long) 父窗体的句柄(可选)
' NoShowText (Boolean = False) 是否不显示移动的文件名
' NoConfirm (Boolean = False) 是否不显示确认对话框
'
'--------------------------------------------------------------------------------
Public Function ShellFileMove(Src As String, Dest As String, _
Optional hWnd As Long, _
Optional NoShowText As Boolean = False, _
Optional NoConfirm As Boolean = False) As Boolean
Dim SFO As SHFILEOPSTRUCT
Dim lRet As Long
Dim lflags As Long
lflags = FOF_ALLOWUNDO
If NoShowText Then lflags = lflags Or FOF_SIMPLEPROGRESS
If NoConfirm Then lflags = lflags Or FOF_NOCONFIRMATION
With SFO
.wFunc = FO_MOVE
.pFrom = Src
.pTo = Dest
.fFlags = lflags
End With
lRet = SHFileOperation(SFO)
ShellFileMove = (lRet = 0)
End Function
转载自月光软件站
- 主题:[代码]复制/移动文件,并显示相应的进度条对话框
- 对话框实现选择文件,并显示相应的路径
- C# 文件复制 进度条显示
- 命令行中复制移动时显示进度条
- 上传文件时显示进度条的代码
- 使用C#在进度条中显示复制文件的进度
- 使用C#在进度条中显示复制文件的进度
- 使用C#在进度条中显示复制文件的进度
- 使用C#在进度条中显示复制文件的进度
- 使用C#在进度条中显示复制文件的进度
- 使用C#在进度条中显示复制文件的进度
- 使用C#在进度条中显示复制文件的进度
- 使用C#在进度条中显示复制文件的进度
- C#在进度条中显示复制文件的进度
- 使用C#在进度条中显示复制文件的进度
- 使用C#在进度条中显示复制文件的进度
- C#调用系统的复制、移动、删除文件对话框
- C#调用系统的复制、移动、删除文件对话框
- 明年的七夕,你还记得我吗
- android手机root后的安全问题 (一)
- 程序员的九阳真经
- 关于聪明工作的一些思考
- HTTPS访问站点,出现证书问题解决
- 主题:[代码]复制/移动文件,并显示相应的进度条对话框
- 迟来的祝福
- 网站压力测试
- 漾七夕
- 一些链接
- matlab 读取文件技巧 经典中的经典
- 七夕从期待变成陌生
- QT 多线程程序设计
- 苹果App Store程序提交审核指南中文版