7,789
社区成员
发帖
与我相关
我的任务
分享在线等--VB调用API删除多个文件(其中有子目录和文件)以及格式化一个指定硬盘
在线等--VB调用API删除多个文件(其中有子目录和文件)以及格式化一个指定硬盘(逻辑盘)
...全文
请发表友善的回复…
发表回复
lzj34 2003-10-14
- 打赏
- 举报
谢谢各位了
射天狼 2003-10-13
- 打赏
- 举报
同意楼上!!
TechnoFantasy 2003-10-13
- 打赏
- 举报
删除文件和目录可以用API函数SHFileOperation
online 2003-10-13
- 打赏
- 举报
Public Declare Function SHFileOperation Lib "shell32.dll" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
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 ' only used if FOF_SIMPLEPROGRESS
End Type
dim filleoperation as shfileopstruct
dim lreturn as long
dim stemp as string
stemp="c:\temp.txt"
with fileoperation
.wfunc=FD_DELETE
.pfrom=stemp
.fflags=FOF_ALLOWUNDO
end with
lreturn=shfileoperation(fileoperation)
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 ' only used if FOF_SIMPLEPROGRESS
End Type
dim filleoperation as shfileopstruct
dim lreturn as long
dim stemp as string
stemp="c:\temp.txt"
with fileoperation
.wfunc=FD_DELETE
.pfrom=stemp
.fflags=FOF_ALLOWUNDO
end with
lreturn=shfileoperation(fileoperation)
online 2003-10-13
- 打赏
- 举报
private declare function shformatdrive lib "shell32.dll"(byval hwnd as long,byval drive as long,fmtid as long,options as long) as long
private const shfmt_id_default=&hffff&
dim lret as long
lret=shformatdrive(me.hwnd,0,shfmt_id_default,0)
select case lret
case -2
msgbox "ok"
case
msgbox "cannot format a read only drive"
end select
end sub
请慎重使用
private const shfmt_id_default=&hffff&
dim lret as long
lret=shformatdrive(me.hwnd,0,shfmt_id_default,0)
select case lret
case -2
msgbox "ok"
case
msgbox "cannot format a read only drive"
end select
end sub
请慎重使用
lzj34 2003-10-13
- 打赏
- 举报
因为本人很菜所以还请各位请明白一点
