home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 November / PCW9911.BIN / sharewar / prx / wscripts / Eject.exe / Eject.vbs
Encoding:
Text File  |  1999-08-11  |  594 b   |  19 lines
  1. set shell=CreateObject("Shell.Application")
  2. Set Laufwerk=ScanFolder(17, "(E:)")     'Laufwerksbuchstaben anpassen
  3. Laufwerk.invokeVerb("A&uswerfen")
  4. Set Laufwerk=ScanFolder(17, "(F:)")     'Laufwerksbuchstaben anpassen
  5. Laufwerk.invokeVerb("A&uswerfen")
  6.  
  7. Function ScanFolder(vDir, Element)
  8.   set folder = Shell.NameSpace(vDir)
  9.   For i = 0 to Folder.Items.Count-1
  10.     If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
  11.       Set ScanFolder=folder.items.item(i)
  12.       exit for
  13.     End If
  14.   Next 
  15.   If Not ISObject(Scanfolder) Then
  16.      Wscript.Quit
  17.   End IF
  18. End Function
  19.