若目标文件夹已存在,它会有个对话框问是否覆盖,我想让它直接覆盖,不提示,该怎么写啊?
Option Explicit
Public 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 TypePublic Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" (lpFileOp _
As SHFILEOPSTRUCT) As Long 'api函数SHFileOperation 的声明
'wFunc 常数
'FO_COPY 把 pFrom 文件拷贝到 pTo。
Public Const FO_COPY = &H2'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Public Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Public Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Public Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Public Const FOF_SILENT = &H4'以上皆为SHFileOperation 需要的变量的声明,固定声明格式直接拿来使用调用时
Private Function CopyFileApi(RemoteFolder As String, LocalDir As String)
On Error GoTo Error
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = RemoteFolder
SHFileOp.pTo = LocalDir
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
Exit Function
Error:
MsgBox Err.Description
End Function
Option Explicit
Public 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 TypePublic Declare Function SHFileOperation Lib _
"shell32.dll" Alias "SHFileOperationA" (lpFileOp _
As SHFILEOPSTRUCT) As Long 'api函数SHFileOperation 的声明
'wFunc 常数
'FO_COPY 把 pFrom 文件拷贝到 pTo。
Public Const FO_COPY = &H2'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Public Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Public Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Public Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Public Const FOF_SILENT = &H4'以上皆为SHFileOperation 需要的变量的声明,固定声明格式直接拿来使用调用时
Private Function CopyFileApi(RemoteFolder As String, LocalDir As String)
On Error GoTo Error
Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom = RemoteFolder
SHFileOp.pTo = LocalDir
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)
Exit Function
Error:
MsgBox Err.Description
End Function
解决方案 »
- 请问谁有mshflexgrid中数据修改后保存的实例
- 请问用SHFileOperation拷贝文件夹时怎么让它不出是否覆盖的提示?
- 关于Recordset持久化的问题
- 电脑系统问题,求助!
- 我要打印这样的效果,怎么处理
- 在VB中怎么连接另一台机子上的SQL SERVER服务器中的zmclibrary
- 如何用Mordem拨号访问宽带用户上的SQL Server?
- 那有制作outlook效果的控件下载
- 请问oricle 有没有像sql server 2000 的企业管理器一样的工具?
- 难题,困惑我两天两夜,谁能帮我解决??
- 遍历treeview节点的时候碰到诡异的问题
- 问:监控WebBrowser的什么东西有后才可以获取WebBrowser.Document.all的所有对象啊。
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR + FOF_NOCONFIRMATION