'*** v3.A*** www.dieseyer.de ******************************* 

' 

' Datei:  laufwerksbuchstabefrei.vbs 

' Autor:  dieseyer@gmx.de  

' Auf:    www.dieseyer.de 

' 

' Gibt den ersten freien Laufwerksbuchstaben zurück. 

' 

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

 

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl 

 

MsgBox "Erster freier Laufwerksbuchstabe:   """ & LwFrei() & """   ", , Wscript.ScriptName 

 

WScript.Quit 

 

'*** v3.A*** www.dieseyer.de ******************************* 

Function LwFrei() 

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

 

  Dim fso         : Set fso       = CreateObject("Scripting.FileSystemObject") 

  Dim i 

 

  For i = 65+2 to 90 

    If not fso.DriveExists( Chr( i ) & ":" ) Then LwFrei = Chr( i ) & ":" : Exit Function 

  Next 

 

End Function ' LwFrei()