kısayol script´ini çalıştırabilme

arkadaşlar başka bir sitedeki bir arkadaşımdan kısayol script´inin nasıl oluşturulduğunu öğrendim..
fakat cevabı tam olarak alamadım.....


************
Option Explicit

Dim WSHShell, n, p, t, cn, vbdefaultbutton
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCUSoftwareMicrosoftWindowsCurrentVersionPoliciescomdlg32Placesbar"
t = "Kisayol olustur"

Dim place, pl, c
c = 1

For Each place in Array("Place0","Place1","Place2","Place3","Place4")
pl = p & place

On Error Resume Next
n = WSHShell.RegRead(pl)
If Err Then n = ""

On Error GoTo 0
cn = InputBox("Kisayol adresini giriniz" & c, t, n)
If cn <> "" Then WSHShell.RegWrite pl, cn

c = c + 1
Next

*****************


yukarıda yıldızlar ile hapsettiğim kod visual basic kodu...


ilk olarak bu kodu herhangi bir yazı editöründe yazıp tırnak içerisinde vbs uzantılı olarak kaydetmemi söyledi ve tamam bunu yaptım...kısayol scripti çalıştı...aşağıda script gözükmekde...

şimdi ben bu scripti max´in save as´ının yolunu girmem,göstermem,artık herne deniyorsa gerekmekde,***o script´e save as´ın kısa yolunu nasıl tanımlayabilirim.

daha doğrusu script´de kısayol adresini giriniz diyor...3dmax´in save as´ının kısayol adresi nedir...?

[img]http://www.tr3d.com/dosyalar/6IEVCzS3O.jpg[/img]