Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Netzlaufwerk verbinden/trennen
Autor: Manuel
Datum: 08.09.02 16:42
Ich habe den folgenden Code-Auszug von dieser Seite: ' Netzlaufwerk verbinden/trennen (ohne Windows-Dialog) Private Declare Function WNetAddConnection Lib "mpr.dll" _ Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, _ ByVal lpszPassword As String, _ ByVal lpszLocalName As String) As Long Private Declare Function WNetCancelConnection Lib _ "mpr.dll" Alias "WNetCancelConnectionA" _ (ByVal lpszName As String, ByVal bForce As Long) _ As Long ' Fehler-/Rückgabe-Konstanten Private Const WN_SUCCESS = 0 Private Const WN_NET_ERROR = 2 Private Const WN_BAD_PASSWORD = 6 Public Function Drive_Connect(ByVal LocalDrive As String, _ ByVal NetworkPath As String, _ Optional ByVal ShowError As Boolean = False) As Boolean Dim lResult As Long lResult = WNetAddConnection(LocalDrive, _ vbNullString, NetworkPath) If ShowError And lResult <> WN_SUCCESS Then If lResult = WN_NET_ERROR Then MsgBox "Netzwerkfehler!" ElseIf lResult = WN_BAD_PASSWORD Then MsgBox "Ungültiges Passwort!" Else MsgBox "Unbekannter Fehler" MsgBox lResult End If End If Drive_Connect = (lResult = WN_SUCCESS) End Function ' Netzlaufwerk trennen Private Function Drive_Disconnect( _ ByVal LocalDrive As String, _ Optional ByVal ShowError As Boolean = False) As Boolean Dim lResult As Long lResult = WNetCancelConnection(LocalDrive, True) If ShowError And lResult <> WN_SUCCESS Then If lResult = WN_NET_ERROR Then MsgBox "Netzwerkfehler!" ElseIf lResult = WN_BAD_PASSWORD Then MsgBox "Ungültiges Passwort!" Else MsgBox "Unbekannter Fehler" End If End If Drive_Disconnect = (lResult = WN_SUCCESS) End Function ' Netzlaufwerk verbinden Private Sub Command1_Click() Drive_Connect "Z:", "\serverd", True End Sub Doch wenn ich den ausführe liefert er einen "Unbekannten Fehler" und lResult 1200 . Obwohl eigentlich alles funktionieren müßte oder? Außerdem würde mich sehr stark interessieren, ob man den Code auch in irgend einer Form so anpassen kann, dass man ein Netzlaufwerk zu einem Win 2000 Rechner aufbauen kann, bzw. das man irgendwie nicht nur ein Passwort, sondern auch einen Benutzer angeben kann. (Verbinden ALS "Tester" Passwort "Test" oder so ähnlich)

Netzlaufwerk verbinden/trennen	121	Manuel	08.09.02 16:42
Re: Netzlaufwerk verbinden/trennen	92	Manuel	09.09.02 14:52
einen Moment, bitte. Ich such's Dir gleich raus (oT)	475	Elwood	09.09.02 14:56
Re: einen Moment, bitte. Ich such's Dir gleich raus ...	500	Elwood	09.09.02 14:59
und hier das Beispiel:	559	Elwood	09.09.02 15:07
Re: und hier das Beispiel:	74	Manuel	09.09.02 17:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen