home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 May / PCWorld_2005-05_cd.bin / software / vyzkuste / zastupci / zastupci.exe / !pcwSendHere.vbs next >
Encoding:
Text File  |  2005-03-13  |  607 b   |  20 lines
  1. Set MyShell = CreateObject("Wscript.Shell")
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. mySendTo = MyShell.SpecialFolders("SendTo")
  4. n=wscript.Arguments.count -1 
  5. On error resume next
  6. for x = 0 to n
  7. drop=WScript.Arguments.Item(x)
  8. set file=Myfiles.Getfile(drop)
  9. If err > 0 then set file=MyFiles.GetFolder(drop)
  10. Name=inputbox("Jak se mß zßstupce jmenovat?",,file.name)
  11. If Name<>"" then
  12.     linkname=mySendTo &"\" & name & ".LNK"
  13.      Set link=MyShell.createshortcut(linkname)
  14.    link.targetpath=drop
  15.     link.save
  16. else
  17.     myshell.run "explorer.exe /n," & mySendto
  18.     wscript.quit
  19. end if
  20. next