天空教学网

查看: 59|回复: 0

VBS 删除文件夹

[复制链接]

 成长值: 14275

2100

主题

0

精华

1396

积分

管理员

UID
1

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

威望
0
贡献
252
资源币
1144
道具币
1260
好友
242
听众
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
复制代码


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

本版积分规则

关闭

站长推荐 上一条 /1 下一条

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

GMT+8, 2017-10-23 21:25 , Processed in 0.373056 second(s), 38 queries .

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