Prüfen, ob Laufwerk bereit und Schreibzugriff möglich ist Diese Funktion prüft, ob das angegebene Laufwerk existiert und bereits ist und prüft optional auch, ob auf dem Laufwerk Schreibzugriffe möglich sind.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  17.033
www.tools4vb.de	System:  WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Unser heutiger Tipp zeigt eine Möglichkeit, wie man prüfen kann, ob ein bestimmtes Laufwerk existiert und bereit ist und ob darauf auch Schreibzugriffe möglich sind.

''' <summary>
''' Prüft, ob das angegebene Laufwerk bereit ist und ob darauf geschrieben werden kann
''' </summary>
''' <param name="sDrive">Laufwerksbuchstabe in Form von A:, C: usw.</param>
''' <param name="bCheckWriteAccess">True, wenn auch Schreibzugriff geprüft werden soll</param>
''' <returns>True bei Erfolg, bzw. False wenn Zugriff nicht möglich</returns>
Public Function IsDriveReady(ByVal sDrive As String, _
  Optional ByVal bCheckWriteAccess As Boolean = False) As Boolean
  Try
    Dim oDrive As New System.IO.DriveInfo(sDrive)
    Dim bSuccess As Boolean = oDrive.IsReady
    ' auch prüfen, ob Schreibzugriff möglich
    If bCheckWriteAccess Then
      oDrive.VolumeLabel = oDrive.VolumeLabel
    End If
    Return bSuccess
  Catch ex As Exception
    Return False
  End Try
End Function

Beispielaufrufe:

' Laufwerk bereit?
If IsDriveReady("J:") Then ...

' Prüfen, ob auf Laufwerk J: auch Schreibzugriffe möglich sind
If IsDriveReady("J:", True) Then ...