国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 嘉祥县| 扶绥县| 眉山市| 玉环县| 开化县| 新沂市| 河北省| 鱼台县| 双牌县| 保亭| 游戏| 呈贡县| 米泉市| 富宁县| 吴旗县| 沾益县| 张家界市| 玉树县| 射洪县| 古田县| 娱乐| 浠水县| 长宁区| 贵港市| 醴陵市| 湄潭县| 久治县| 克什克腾旗| 鄂尔多斯市| 北碚区| 桐柏县| 永城市| 民县| 平阳县| 长兴县| 锦屏县| 定边县| 赤峰市| 绥滨县| 梧州市| 凌云县|