您当前位置:网站首页 >> 编程开发 >> Visual Basic >> 在Visual Basic中删除带子文件夹的文件夹

在Visual Basic中删除带子文件夹的文件夹

2013-12-04 10:35:24 来源:奇库斯(QCOOLS) 浏览:1905
关键字:Visual,Basic,删除,带子文件夹,文件夹

内容提要:

    OptionExplicit 
  PrivateSubCommand1_Click()
  DimstrPathNameAsString
  strPathName=""
  strPathName=InputBox("请输入需要删除的文件夹名称∶","删除文件夹&

  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



发表评论
网名:
评论:
验证:
共有0人对本文发表评论查看所有评论(仅供表达个人看法,并不表明本站同意其观点或证实其描述)
赞助商链接