Right-click send to create a shortcut to a custom location

Set unNamedArguments =  
set WshShell = ("") 
Set objFSO = CreateObject("") 
strFolder = "d:\temp\" 'There must be a symbol "\"
for count = 0 to -1 Step 1 
    filename = (count) 
    Set objFile = (filename)  
    set oShellLink = (strFolder & (filename) & ".lnk") 
     = filename 
     = 1 
     = (filename) 
      
NEXT