Rubrik: Dateisystem · Laufwerke | VB-Versionen: VB.NET | 17.07.03 |
Laufwerk auf Existenz prüfen (VB.NET) Dieser Tipp zeigt, wie sich unter Berücksichtigung aller logischen Laufwerke prüfen lässt, ob ein bestimmtes Laufwerk existiert. | ||
Autor: Jürgen Hardt | Bewertung: | Views: 18.894 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Nachfolgende Funktion prüft unter Berücksichtigung aller logischen Laufwerke, ob ein bestimmtes Laufwerk existiert.
Imports System.IO Imports vb = Microsoft.VisualBasic.Strings Public Function DriveExists( _ ByVal sDriveLetter As String) As Boolean Dim sLogicalDrive As String Dim sLogicalDrives As String() sDriveLetter = vb.Left(sDriveLetter, 1) & ":\" sLogicalDrives = System.IO.Directory.GetLogicalDrives() For Each sLogicalDrive In sLogicalDrives If sLogicalDrive = sDriveLetter Then Return True End If Next End Function
Aufruf der Funktion:
If DriveExists("A") Then ...
Nachtrag von Wolf mit Schnuller:
Für das .Net-Framework Version 2 ist die Verwendung der DriveInfo-Klasse besser:
Public Function DriveExists(ByVal sDriveLetter As String) As Boolean Return New System.IO.DriveInfo(sDriveLetter.Substring(0, 1)).IsReady EndFunction