Public Sub Y_Laufwerk_anbinden()

    '----------< Y_Laufwerk_anbinden() >-------------

    Dim objNet As Object

    Set objNet = CreateObject("WScript.Network")

    On Error Resume Next

    objNet.MapNetworkDrive "y:", "\\CodeDocu.com@SSL\DavWWWRoot\\Verwaltung \Reporting\Reporting\"

    Shell "explorer.exe /e, Y:\", VbAppWinStyle.vbMaximizedFocus

    '----------</ Y_Laufwerk_anbinden() >-------------

End Sub