home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 May / PCWorld_2001-05_cd.bin / Software / Vyzkuste / tiptrik / tiptrik.exe / !SendHere.vbs next >
Text File  |  2000-08-18  |  949b  |  36 lines
  1. Set MyShell = Wscript.CreateObject("Wscript.Shell") 
  2. Set MyFiles = CreateObject("Scripting.FileSystemObject")
  3. win = MyFiles.GetSpecialFolder(WindowsFolder)
  4. sendto=win & "\Sendto\"
  5.  
  6. n=wscript.Arguments.count
  7. on error resume next
  8.  
  9. drop=WScript.Arguments.Item(0)
  10. set file=Myfiles.Getfile(drop)
  11. if err > 0 then set file=MyFiles.GetFolder(drop)
  12. name=inputbox("Zadejte jmΘno zßstupce",,file.name)
  13. if name<>"" then
  14.     linkname=sendto & name & ".lnk"
  15.     set link=myshell.createshortcut(linkname)
  16.     link.targetpath=drop
  17.     link.save
  18. else
  19.     Set Folder = Myfiles.GetFolder(sendto)
  20.     Set AlleDateien = Folder.Files
  21.         For Each X in AlleDateien
  22.             Set file = MyFiles.GetFile(X)
  23.             liste=""
  24.             For Each Y in AlleDateien
  25.             liste=liste & chr(13) & chr(10) & y.name
  26.             Next    
  27.         frage=myshell.popup(liste,,ucase(x.name) & " --- odstranit ze slo₧ky SendTo?",3)
  28.         if frage=2 then wscript.quit
  29.         if frage=6 then file.delete            
  30.     Next
  31. end if
  32.  
  33.  
  34.  
  35.  
  36.