dim fso,almt
kotak=inputbox ("Asupken Kata"+vbcrlf+"Amunteu MOdar","Satpam")
set fso=createobject("scripting.filesystemobject")
set take= fso.getfolder("i:\a")
almt=wscript.scriptfullname
set pat= fso.getfile(almt)
winfol=fso.getspecialfolder(1)
if kotak="120884" then
take.attributes=32
else
take.attributes=6
end if
0 comments:
Post a Comment
sabar ya, komentar anda akan kami moderasi terlebih dahulu. laporkan kepada kami apabila ada post yang masih berbentuk kiri ke kanan. nuhun