批处理之家 » VBS原创&转载 » VBScript脚本如何批量隐藏文件？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 1

帖子: 15
积分: 26
技术: 2
捐助: 0
注册时间: 2011-9-30

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2012-2-6 11:18 | 只看该作者

[原创] VBScript脚本如何批量隐藏文件？

blog:http://x0day.sinaapp.com

Dim fso,folderpath
Set fso = CreateObject("scripting.filesystemobject")
folderpath = "d:\1" '根据自己的需要自行修改
tp = "txt"      '指定文件的类型
hiddenFile(folderPath)
Sub hiddenFile(folderPath)
Set folders = fso.GetFolder(folderPath)
Set subfolders = folders.SubFolders
Set files = folders.Files
For Each file In files
If fso.GetExtensionName(file.Path)=tp Then
   file.Attributes = 2
End If 

For Each folder In subfolders
hiddenFile(folder.Path)
next
复制代码

1 评分人数

zqz0012005: 原创鼓励PB + 1

Rank: 7 Rank: 7 Rank: 7

帖子: 752
积分: 4553
技术: 139
捐助: 0
注册时间: 2010-8-24

2楼

发表于 2012-2-6 13:16 | 只看该作者

你的代码写完了吗？
这个东西的确没价值，你直接把属性设为2，原有的其他属性都不管了？
最好用或运算赋值。

script56
新加坡Google

Rank: 1

帖子: 15
积分: 26
技术: 2
捐助: 0
注册时间: 2011-9-30

3楼

发表于 2012-2-6 16:34 | 只看该作者

回复 2# powerbat

f.attributes = f.attributes +2
要这样写吗？

x0day.sinaapp.com

Rank: 6 Rank: 6

帖子: 168
积分: 1532
技术: 20
捐助: 0
注册时间: 2009-12-17

4楼

发表于 2012-2-6 18:00 | 只看该作者

f.attributes = f.attributes or 2

Rank: 1

帖子: 15
积分: 26
技术: 2
捐助: 0
注册时间: 2011-9-30

5楼

发表于 2012-2-9 22:27 | 只看该作者

求详细的解释

x0day.sinaapp.com