国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

在VB程序中通過回收站刪除文件

2019-11-18 17:39:50
字體：大 中 小
供稿：網(wǎng)友
在標準工程中添加一個公共對話框和兩個按鈕即可嘗試本例：

OptionExplicit

'刪除文件的API
PRivateDeclareFunctionSHFileOperationLib"shell32.dll"Alias"SHFileOperationA"(lpFileOpAsToBin)AsLong
'清空回收站的API
PrivateDeclareFunctionSHEmptyRecycleBinLib"shell32.dll"Alias"SHEmptyRecycleBinA"(ByValhwndAsLong,ByValpszRootPathAsString,ByValdwFlagsAsLong)AsLong

PrivateTypeToBin
hwndAsLong
wFuncAsLong
pFromAsString
pToAsString
fFlagsAsInteger
fAnyOperationsAbortedAsLong
hNameMappingsAsLong
lpszProgressTitleAsLong
EndType

ConstFO_DELETE=&H3
ConstFOF_ALLOWUNDO=&H40
ConstSHERB_NORMAL=&H0

'將文件移至回收站
PrivateSubCommand1_Click()
DimGoAsToBin
DimstrFileAsString
WithCommonDialog1
.Filter="(*.bak)|*.bak"
.DialogTitle="刪除文件"
.ShowOpen
strFile=.FileName
EndWith

WithGo
.wFunc=FO_DELETE
.pFrom=strFile
.fFlags=FOF_ALLOWUNDO
EndWith

SHFileOperationGo
EndSub

'清空回收站
PrivateSubCommand2_Click()
DimRetValAsLong
RetVal=SHEmptyRecycleBin(0&,vbNullString,SHERB_NORMAL)
EndSub->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 阳信县| 卓资县| 广昌县| 乌什县| 全椒县| 邛崃市| 株洲市| 天全县| 多伦县| 石首市| 隆昌县| 富宁县| 桃园市| 波密县| 阿拉善右旗| 观塘区| 青神县| 额尔古纳市| 科技| 三台县| 乐安县| 日土县| 随州市| 进贤县| 大竹县| 大足县| 革吉县| 尉犁县| 德江县| 元阳县| 锦屏县| 南宁市| 台江县| 周宁县| 安达市| 北流市| 青海省| 大连市| 界首市| 巴林左旗| 桃源县|