您的位置: 首页 > 软件教程 > Visual Basic教程专题 > 在Visual Basic中删除带子文件夹的文件夹

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

7.8分
出处:网络 时间:2011-04-25

您可能感兴趣的话题: Visual Basic  

核心提示:SetAttrstrPathName,vbNormal此行主要是为了检查文件夹名称的有效性 

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

网友评论
精品软件课程
更多 >
C++是一种静态数据类型检查的,支持多重编程... [详细]
Java,是由Sun Microsystem... [详细]
C语言是一种面向过程的计算机程序设计语言。多... [详细]
Oracle Database,又名Orac... [详细]
Visual Basic.NET是从 Vis... [详细]
Visual C++微软公司的C++开发工具... [详细]