天空教学网

查看: 204|回复: 0

VBS 删除文件夹

[复制链接]

 成长值: 17005

2151

主题

0

精华

1584

积分

管理员

UID
1

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

威望
0
贡献
258
资源币
1326
道具币
1290
好友
303
听众
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-4-23 13:20 , Processed in 0.546740 second(s), 37 queries .

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