vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück
Rubrik: Dateisystem · Laufwerke   |   VB-Versionen: VB2005, VB200815.10.10
Netzlaufwerk verbinden und trennen ohne Windows API

Zwei Funktionen zum Verbinden und Trennen von Netzlaufwerken unter VB.NET - ohne dass man hierfür auf das Windows API zurückgreifen muss.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  19.932 
www.tools4vb.deSystem:  Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Vor längerer Zeit haben wir Ihnen bereits in einem anderen Tipp gezeigt, wie man ein Netzlauferk verbinden bzw. wieder trennen kann:
 Netzlaufwerk verbinden und trennen

Heute stellen wir eine alternative Möglichgkeit vor, die nicht auf die Windows API Funktionen zurückgreift.

''' <summary>
''' Erstellt ein Netzlaufwerk 
''' </summary>
''' <param name="Drive">Laufwerksbuchstabe</param>
''' <param name="UncPath">Freigegebenes Verzeichnis</param>
''' <param name="Username">Optional. Benutzername</param>
''' <param name="Password">Optional. Kennwort</param>
Public Function AddNetworkDrive(ByVal Drive As String, _
  ByVal UncPath As String, _
  Optional ByVal Username As String = "", _
  Optional ByVal Password As String = "") As Boolean
 
  Dim p As New Process()
  Try
    With p.StartInfo
      .FileName = "net"
      If Username.Length > 0 Then
        ' Netzlaufwerk mit Benutzername und Kennwort erstellen
        .Arguments = String.Format("use {0} ""{1}"" /user:""{2}"" {3}", _
          Drive, UncPath, Username, Password)
      Else
        ' Netzlaufwerk ohne Benutzername und Kennwort erstellen
        .Arguments = String.Format("use {0} ""{1}""", Drive, UncPath)
      End If
      .UseShellExecute = False
      .CreateNoWindow = True
    End With
    p.Start()
    Return True
 
  Catch ex As Exception
    Return False
  End Try
End Function
''' <summary>
''' Trennt das angegebene Netzlaufwerk
''' </summary>
''' <param name="Drive">Laufwerksbuchstabe</param>
Public Sub RemoveNetworkDrive(ByVal Drive As String)
  Dim p As New Process()
  Try
    With p.StartInfo
      .FileName = "net"
      .Arguments = String.Format("use " & Drive & " /DELETE")
      .UseShellExecute = False
      .CreateNoWindow = True
    End With
    p.Start()
  Catch ex As Exception
  End Try
End Sub

Aufrufbeispiel:

' Netzlaufwerk verbinden
Dim sDrive As String = "O:"
AddNetworkDrive(sDrive, "\\Rechnername\Freigabe")
' Laufwerk trennen
RemoveNetworkDrive(sDrive)

Dieser Tipp wurde bereits 19.932 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel