Public Sub WriteFreeSpaceToStream(stream As System.IO.StreamWriter, _
      driveName As String)
        Try
            stream.Write(GetFreeSpaceFromDrive(driveName))
 
        Catch ex As System.ArgumentNullException
            ' Mögliche Exception in GetFreeSpaceFromDrive im Konstruktor von 
            ' System.IO.DriveInfo.
 
        Catch ex As System.ArgumentException
            ' Mögliche Exception in GetFreeSpaceFromDrive im Konstruktor von 
            ' System.IO.DriveInfo.
 
        Catch ex As System.ObjectDisposedException
            ' Mögliche Exception in der Write-Methode von 
            ' System.IO.StreamWriter.
 
        Catch ex As System.IO.IOException
            ' Mögliche Exception in der Write-Methode von 
            ' System.IO.StreamWriter.
 
        End Try
    End Sub
 
    Public Function GetFreeSpaceFromDrive(driveName As String) As Long
        Try
            Dim drive As New System.IO.DriveInfo(driveName)
            Return drive.AvailableFreeSpace
 
        Catch ex As System.UnauthorizedAccessException
            ' Mögliche Exception beim Abrufen der Eigenschaft 
            ' AvailableFreeSpace.
 
        Catch ex As System.IO.IOException
            ' Mögliche Exception beim Abrufen der Eigenschaft 
            ' AvailableFreeSpace.
 
        Catch ex As Exception
            Throw
        End Try
 
        Return 0
    End Function