Private Sub Converter_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim sDrive As String = "X:"
        If MapDrive(sDrive, "\\Server1\share1") = True Then
            MsgBox("verbunden")
        End If
        If System.IO.File.Exists("X:\Ordner1\test.txt") Then
            MsgBox("Datei gefunden")
        End If
        If UnMapDrive(sDrive) Then
            MsgBox("getrennt")
        End If
    End Sub