http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** 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()

http://dieseyer.de • all rights reserved • © 2011 v11.4