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:	Views:  17.887
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.