Dim Args, WSHShell, fso, f
Set Args = WScript.Arguments
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Args(0))
f.Attributes = f.Attributes Or 1
Set f = fso.OpenTextFile(Args(0) + "\Desktop.ini", 2, True)
f.Write "[.ShellClassInfo]" + vbCrLf
f.Write "IconFile=" & Args(1) + vbCrLf
f.Write "IconIndex=0" + vbCrLf
f.Close
Set f = fso.GetFile(Args(0) + "\desktop.ini")
f.Attributes = f.Attributes Or 2
f.Attributes = f.Attributes Or 4 |