| 本月文章推荐 |
在VB程序中通过回收站删除文件发表日期：2006-2-27
|
|
在标准工程中添加一个公共对话框和两个按钮即可尝试本例：
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-> |
| 上一篇：检测磁盘类型的信息
人气:3021 下一篇：VB数组小技巧一则 人气:8225 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
