作者suhorng (飞扬)
站内Programming
标题Re: [问题] love letter virus 档案隐藏修正问题
时间Sun Sep 14 18:25:43 2008
attrib -h XXXXX.mp3
// -h是去除隐藏属性 另外还有-r解除唯读属性 -a解除保存属性 -s解除系统属性
至於递回所有的资料夹啊 譬如：
Option Explicit
Dim fsys As Object, iws As Object
Sub AttribH(dir_curr)
Dim dir_sub As Object, dir_subs As Object, p As String
p = dir_curr.Path
If Right(p, 1) <> "\" Then p = p + "\"
iws.Run "attrib.exe -h """ + p + "*.mp3"""
Set dir_subs = dir_curr.SubFolders
For Each dir_sub In dir_subs
AttribH dir_sub
Next
End Sub
Sub Main()
Set fsys = CreateObject("Scripting.FileSystemObject")
Set iws = CreateObject("WScript.Shell")
AttribH fsys.GetFolder(".")
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.137.66.166
1F：→ tropical72:请问这是 VB 语法吗？谢谢指教 123.195.189.79 09/14 22:10