'v3.7*****************************************************      

' File:   CDdurchsuchen.vbs      

' Autor:  dieseyer@gmx.de       

'         dieseyer.de      

'      

' Das Skript sucht nach einem CD-Laufwerk und schreibt      

' eine Inhaltsliste, die durchsucht werden kann.     

' Oder man zieht eine Datei auf das Skript, die sich dann      

' durchsuchen lässt.     

'*********************************************************      

      

Option Explicit      

      

Dim WshShell, fso, FileOut, DriveList, i, CDlw 

Dim Liste, LstType, Text

 

LstType = ".txt" 

      

Set WshShell  = WScript.CreateObject("WScript.Shell")      

Set fso       = CreateObject("Scripting.FileSystemObject")      

Set DriveList = fso.Drives      

      

   For Each i in DriveList       

     if 4  = i.DriveType AND i.IsReady Then      

       CDlw = CDlw & vbTab & i.DriveLetter & ":"& vbTab & i.VolumeName & vbCRLF      

     End If          

   Next      

    

CDlw = "Die CD-Laufwerke enthalten folgende CD's:" & vbCRLF & vbCRLF & CDlw     

CDlw = CDlw & "Von welchem Laufwerk soll eine Inhaltsliste erzeugt werden?"     

CDlw = InputBox( CDlw, WScript.ScriptName)    

      

If CDlw = "" then    

  MsgBox ". . . das ist das Ende!", , Wscript.ScriptName     

  Wscript.Quit     

End If     

  

CDlw = Left( CDlw, 1) & ":"  

  

Set i = fso.GetDrive( CDlw )   

  

' if   4  = i.DriveType AND    i.IsReady Then  

if not 4  = i.DriveType OR not i.IsReady Then  

  MsgBox UCase( CDlw ) & " ist kein CD-Laufwerk!" & vbCRLF & vbCRLF & ". . . das ist das Ende!", , WScript.ScriptName   

  Wscript.Quit  

End If  

 

Liste = i.VolumeName 


 

if fso.FileExists( Liste & "1" & LstType ) then  

 

      Text = "Zu der CD   " & Liste & "   in Laufwerk   " & UCase( CDlw ) & "   existieren folgende Inhaltslisten:" & vbCRLF & vbCRLF  

 
 
  For i = 1 to 9  

    if fso.FileExists( Liste & i & LstType ) then   

      Text = Text & Liste & i & LstType & vbCRLF  

    End If  

  Next  

      Text = Text & vbCRLF 

      Text = Text & "[JA]"   & vbTab & "  Eine weitere Datei anlegen (notfalls eine Löschen)." & vbCRLF  

      Text = Text & "[Nein]" & vbTab & "  Alle Dateien löschen und eine   " & Liste & "1" & LstType & "   erstellen." & vbCRLF  

 
 
  Text = MsgBox Text, 3 + 32, WScript.ScriptName  

Else

  Liste = Liste & "1" & LstType 

End If 

 

 MsgBox CDlw & " ist ein CD-Lw.", , WScript.ScriptName