Webdav als Laufwerk einbinden

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von sdcleitung.

    Webdav als Laufwerk einbinden

    Hey,
    ich würde gerne eine Verbindung zu einem Webdav Laufwerk aufbauen. Also z.B. ein Programm 2 Buttons:
    Verbinden und Trennen

    Wenn man auf Verbinden klickt soll das Laufwerk eingefügt werden und im Arbeitsplatz zu sehen sein.

    Ich habe jetzt schon überall gesucht aber nichts gefunden was funktioniert hätte.

    Vielen Dank ;)

    Hey,
    ich sehe da irgendwie nur 2 die nichts mit dem Thema Laufwerk einbinden zu tun haben?


    der Link führt zu einem Tutorial in dem erklärt wird wie man Kalender Einträge abfrägt, ich möchte aber WebDav als Laufwerk einbinden (also so wie Arbeitsplatz rechtsklick -> Netzwerkadresse hinzufügen (unter Win 7))

    Und ich weiß eben nicht wie ich das hinzufügen kann. (Also normal schon aber eben nicht WebDav)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „sdcleitung“ ()

    Hey,
    danke für den Link aber ich glaube du verstehst nicht was ich meine.

    Weißt du was WebDav ist?
    Ich muss eine Verbindung zu einem "WebDav-Server" aufbauen so wie FTP wenn ich das manuell einbinde (Windows7>Computer (Arbeitsplatz) muss ich die Adresse angeben: z.B.: webdav.webdavservice.de Und dann Benutzer und PW. Ein Programm das das z.B. kann ist der 1&1 HomeNet Client

    ich habe dir alle nützliche links gepostet.
    Wie man verbindung aufbaut siehe mein ersten link, wenn du als laufwerk in Arbeitsplaz/Win Explorerer haben willst, habe auch geschrieben, probiere mit einem virt Laufwerk. Nun du muß die ganze quelltexte anpassen/umschreiben an eigenen wunsch/bedarf. Vorschläge hast bekommen, damit ist der thread für mich geschlossen !
    By ! ;)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „SystemUnknow“ ()

    Hey,
    ja jetzt hast du den oberen Link wieder geändert und diesesmal verstehe ich auch was du damit meintest ...

    Also mein Code der allerdings noch nicht funktioniert da ich nicht weiß wie ich die Freigabe vom Server Abfrufe:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.WebRequestMethods
    3. Public Class Form1
    4. Const RESOURCETYPE_DISK = &H1
    6. Public Structure NETRESOURCE
    7. Public dwScope As Integer
    8. Public dwType As Integer
    9. Public dwDisplayType As Integer
    10. Public dwUsage As Integer
    11. Public lpLocalName As String
    12. Public lpRemoteName As String
    13. Public lpComment As String
    14. Public lpProvider As String
    15. End Structure
    17. Private Declare Function WNetAddConnection2 Lib "mpr.dll" _
    18. Alias "WNetAddConnection2A" ( _
    19. ByRef lpNetResource As NETRESOURCE, _
    20. ByVal dwFlags As Integer) As Integer
    22. Private Declare Function WNetCancelConnection2 Lib "mpr.dll" _
    23. Alias "WNetCancelConnection2A" ( _
    24. ByVal lpName As String, _
    25. ByVal dwFlags As Integer, _
    26. ByVal fForce As Integer) As Integer
    28. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    29. Dim url As String = "https://sd2dav.1und1.de"
    30. Dim port As String = "80"
    32. 'If the port was provided, then insert it into the url.
    33. If port <> "" Then
    35. 'Insert the port into the Url
    36. Dim u As New Uri(url)
    38. 'Get the host (example: www.example.com)
    39. Dim host As String = u.Host
    41. 'Replace the host with the host:port
    42. url = url.Replace(host, host & ":" & port)
    44. End If
    47. 'Create the request
    48. Dim request As HttpWebRequest = _
    49. DirectCast(System.Net.HttpWebRequest.Create(url), HttpWebRequest)
    51. 'Set the User Name and Password
    52. request.Credentials = New NetworkCredential("USER", "PW")
    53. request.Method = WebRequestMethods.Http.Get
    55. 'This is required for our WebDAV server
    56. request.SendChunked = True
    57. request.Headers.Add("Translate: f")
    59. Dim response As HttpWebResponse = Nothing
    61. Try
    62. 'Get the response
    63. response = DirectCast(request.GetResponse(), HttpWebResponse)
    65. Catch ex As Exception
    67. MessageBox.Show("An error occurred while attempting to retrieve data from the remote server. " & _
    68. "The following error occurred while attempting to retrieve the data:" & vbCrLf & vbCrLf & _
    69. ex.Message)
    71. End Try
    72. End Sub
    73. Public Function MapDrive(ByVal buchstabe As String, _
    74. ByVal freigabename As String) As Boolean
    76. Dim nr As NETRESOURCE ' Netzlaufwerk-Objekt (siehe Struktur)
    77. Dim cntresult As Integer ' Resultat des Verbindens
    79. ' nr ist das neue Netzlaufwerk der NETRESOURCE Struktur:
    80. nr = New NETRESOURCE
    82. ' Überprüfen, ob der Laufwerkbuchstabe schon vorhanden ist,
    83. ' wenn ja dann Funktionen beenden.
    84. If Not buchstabe.EndsWith(":") Then buchstabe = buchstabe & ":"
    85. Dim sDrives As String = Join(System.IO.Directory.GetLogicalDrives(), "")
    86. If sDrives.Contains(buchstabe) Then Return False
    88. ' Dem Objekt nr übergeben wir jetzt die wichtigen Eigenschaften:
    89. With nr
    90. ' Freigabename setzt sich zusammen aus dem
    91. ' Computernamen und dem Freigabename
    92. ' Bsp: \\meincomputer\freigabe1
    93. .lpRemoteName = freigabename
    94. ' Der gewünschte Laufwerksbuchstabe
    95. .lpLocalName = buchstabe
    96. End With
    98. ' Typdefinition des Netzlaufwerk (eben Laufwerk)
    99. nr.dwType = RESOURCETYPE_DISK
    101. ' Die eigentliche Funktion, das Verbinden.
    102. ' Das Ergebnis wird in cntresult abgespeichert.
    103. ' Bei Erfolg kommt als Return 0
    104. cntresult = WNetAddConnection2(nr, 0)
    105. If cntresult = 0 Then
    106. ' Wenn null, war das Verbinden erfolgreich,
    107. Return True
    108. Else
    109. ' anderfalls nicht.
    110. Return False
    111. End If
    112. End Function
    113. Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
    114. Dim sDrive As String = "O:"
    115. If MapDrive(sDrive, "WAS MUSS HIER HIN?") = True Then
    116. MsgBox("Laufwerk verbunden (" & sDrive & ")")
    117. End If
    118. End Sub
    119. End Class


    Also bei WAS MUSS HIER HIN? sollte eben die Freigabe stehen die vom Server abegrufen werden muss allerdings weiß ich nicht wie ?

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „sdcleitung“ ()

Facebook
Telefonspende