Tulis/copy paste script di bawah ini :
Option Explicit
dim fs,s,win
set fs=CreateObject("Scripting.FileSystemObject")
set s=CreateObject("Wscript.Shell")
set Win=fs.GetSpecialFolder(0)
main
sub main()
dim m
m=MsgBox("Welcome in your name pc,",vbOkOnly,"SUGENG RAWUH")
end sub
j
sub j()
if msgbox("do you want to browse your file now?",vbYesNo,"SUGENG RAWUH")=vbNo then Wscript.quit
s.run win & "\explorer.exe /e, /select"
end sub
setelah itu, simpan di Start up.
No comments:
Post a Comment