SHFileOperation删除复制移动文件的例子,可以复制文件夹 linux 复制文件夹

用API函数 SHFileOperation
以下是使用SHFileOperation删除复制移动文件的例子,可以复制文件夹
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 '只有在 FOF_SIMPLEPROGRESS 时用
End Type
Private Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" (lpFileOp _
As SHFILEOPSTRUCT) As Long
'wFunc 常数
'FO_COPY  把 pfrom 文件拷贝到 pTo。
SHFileOperation删除复制移动文件的例子,可以复制文件夹 linux 复制文件夹
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:"
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)
或者

  

爱华网本文地址 » http://www.aihuau.com/a/25101012/131695.html

更多阅读

iphone5S的A1518,A1528,A1530版本区别解析 5s1518和1530的区别

iphone5S的A1518,A1528,A1530版本区别解析——简介 由于国内运营商的制式问题,iphone5S首先发布的是联通版的A1528和电信版的A1533,然后是移动版的A1518,最后是裸机版的A1530,对于不是很了解这些版本区别的网友,在选购时造成了哼道困扰,下面

一个用eXosip实现的UAC和UAS的例子调试成功 libexosip2

经过一段时间的学习,对sip总算有了一点认识,在学习过程中,遇到了太多的问题,郁闷过,惆怅过,但是一咬牙,还是过来了。令我感动的是,在网上遇到一些很热心的朋友,不厌其烦地给我以解惑,感谢他们,尤其是友善的大狗,呵呵,希望将来有一天他能看到这篇

肝坏死逆转:一个现代医学无法解释的例子

以下说一个现代医学无法解释的例子,我的一个病人,今年一月底的时候进了医院,是自己走进去的。症状是胸闷,呼吸困难,呕吐。进了医院后,自然会作各种各样的测试,一测之下,发现心脏正常,肺正常,反而肝不正常。不正常到什么地步呢?正常的肝酶指数(AS

声明:《SHFileOperation删除复制移动文件的例子,可以复制文件夹 linux 复制文件夹》为网友霸气爷们灬拳分享!如侵犯到您的合法权益请联系我们删除