网站导航免费论文 原创论文 论文搜索 原创论文 网学软件 学术大家 资料中心 会员中心 问题解答 原创论文 大学论文导航 设计下载 最新论文 下载排行 原创论文 论文源代码
返回网学首页
网学联系
最新论文 推荐专题 热门论文 素材专题
当前位置: 网学 > 编程文档 > VB > 正文

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

来源:http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 14/07/10

鉴于大家对VB十分关注,我们编辑小组在此为大家搜集整理了“在Visual Basic中删除带子文件夹的文件夹”一文,供大家参考学习

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

  • 上一篇资讯: VB操作LotusNotes数据库
  • 网学推荐

    免费论文

    原创论文

    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号