home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 September / PCW0999.ISO / sharewar / prx / tipdaten / dsvbs.exe / s.vbs < prev   
Encoding:
Text File  |  1999-07-08  |  611 b   |  20 lines
  1. Set pcw = Wscript.CreateObject("Wscript.Shell")
  2. Set n = WScript.CreateObject ("Scripting.FileSystemObject")
  3. liste="c:\exe.lst"
  4.  
  5. input=ucase(inputbox("Datei angeben: " & chr(13) & chr(13) & "Beispiel: poledit" & chr(13) & "Eindeutiger: xyz.doc" & chr(13), "Starter",,1800,1000))
  6. if input="" then wscript.Quit
  7.  
  8. Set dat = n.OpenTextFile (liste)
  9.  
  10. Do
  11.   zeile = dat.ReadLine
  12.      i=instr(ucase(zeile),input)
  13.   if i>0 then
  14.   q=pcw.Popup(ucase(zeile) & " starten?",10, "Starter: ", 3)
  15.   if q=6 or q=-1 then pcw.Run (chr(34)&zeile&chr(34)),1
  16.   end if
  17.  
  18. loop While dat.AtEndOfStream <> True and q <> 2
  19.  
  20.