Nächsten freien Laufwerksbuchstaben ermitteln Diese Funktion ermittelt den nächsten freien Laufwerksbuchstaben und gibt diesen in der Form LW: zurück.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  15.424
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 2 Bewertung insgesamt: sehr gut Durchschnittliche Bewertung: 4.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Möchte man per Code bspw. ein Netzlaufwerk verbinden, benötigt man die Info, welcher Laufwerksbuchstabe noch nicht belegt ist.
Nachfolgender Funktion ermittelt den nächsten freien Laufwerksbuchstaben und gibt diesen in der Form LW: zurück.

Imports System.IO

''' <summary>
''' Gibt den nächsten freien Laufwerksbuchstaben zurück
''' </summary>
Public Function NextAvailDrive() As String
  ' alle logischen Laufwerke
  Dim sDrives As String = Join(Directory.GetLogicalDrives(), "")
  Dim sNextDrive As String = ""
 
  ' nach 1. nicht verwendetes Laufwerk suchen 
  ' beginnend ab C:
  For i As Integer = 68 To 90
    If Not sDrives.Contains(Chr(i) & ":") Then
      sNextDrive = Chr(i) & ":" : Exit For
    End If
  Next
 
  Return sNextDrive
End Function

Aufrufbeispiel:

Dim sNextDrive As String = NextAvailDrive()