天空网

查看: 229|回复: 0

VBS 删除文件夹

[复制链接]

 成长值: 18715

2153

主题

0

精华

1595

积分

管理员

UID
1

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

威望
0
贡献
267
资源币
1328
道具币
1335
好友
323
听众
1
收听
0

VIP勋章

发表于 2017-10-8 19:52:56 | 显示全部楼层 |阅读模式
  1. Option Explicit

  2. ' 通配符 ?:表示0或者1个字符   *:表示所有通用字符 .* 可以代表任意长度的任意字符 ?只能代表一个或零个任意字符
  3. DeleteFolders("C:\1\1*")

  4. Function DeleteFolders(SetFolName)
  5.         Dim FOS
  6.         Set FOS = CreateObject("Scripting.FileSystemObject")
  7.         FOS.DeleteFolder(SetFolName),true   'true 表示 不管文件夹是否为只读,都会被删除
  8.         Set FOS = Nothing
  9. End Function
复制代码


您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|天空网

GMT+8, 2018-8-15 21:12 , Processed in 0.382838 second(s), 37 queries .

2017 TNEKY 天空网
快速回复 返回顶部 返回列表