在VBasic中删除带子文件夹的文件夹_VB.net_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

在VBasic中删除带子文件夹的文件夹

作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0

本篇关键词:文件夹删除 vbNormal
黑客防线网安网讯:    OptionExplicit  PrivateSubCommand1_Click()  DimstrPathNameAsString  strPathName=""  strPathName=InputBox("请输入需要删除的文件夹名称∶","删除文件夹")  IfstrPathNa...
    OptionExplicit
  PrivateSubCommand1_Click()
  DimstrPathNameAsString
  strPathName=""
  strPathName=InputBox("请输入需要删除的文件夹名称∶","删除文件夹")
  IfstrPathName=""ThenExitSub  
  OnErrorGoToErrorHandle
  SetAttrstrPathName,vbNormal'此行主要是为了检查文件夹名称的有效性
  RecurseTreestrPathName
  Label1.Caption="文件夹"&strPathName&"已经删除!"
  ExitSub
  ErrorHandle:
  MsgBox"无效的文件夹名称:"&strPathName
  EndSub  
  SubRecurseTree(CurrPathAsString)
  DimsFileNameAsString
  DimnewPathAsString
  DimsPathAsString
  StaticoldPathAsString  
  sPath=CurrPath&""  
  sFileName=Dir(sPath,31)'31的含义∶31=vbNormal vbReadOnly vbHidden vbSystem vbVolume vbDirectory
  DoWhilesFileName<>""
  IfsFileName<>"."AndsFileName<>".."Then
  IfGetAttr(sPath&sFileName)AndvbDirectoryThen'如果是目录和文件夹
  newPath=sPath&sFileName
  RecurseTreenewPath
  sFileName=Dir(sPath,31)
  Else
  SetAttrsPath&sFileName,vbNormal
  Kill(sPath&sFileName)
  Label1.Caption=sPath&sFileName'显示删除过程
  sFileName=Dir
  EndIf
  Else
  sFileName=Dir
  EndIf
  DoEvents
  Loop
  SetAttrCurrPath,vbNormal
  RmDirCurrPath
  Label1.Caption=CurrPath
  EndSub
    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-14944-1.html
网站维护教程更新时间:2012-04-03 01:16:53  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer