Diese Funktion sucht den Server (Domain) über das Vorhandensein des Vergleichswertes (sFolder) ' Die Function (fsoMyServer_Ex) sucht den Server(Domain) über das Vorhandensein ' des Vergleichswertes (sFolder) ' ' Parameter ' sFolder <Byval> : [optional] Verzeichnis ' sServer <ByRef> : [Rückgabe] '\\MyServer' (String) ' : ' : > 0 , Server gefunden, Übereinstimmung ' : = 0 , ungültig ' Function fsoMyServer_Ex(Optional ByRef sServer As String, _ Optional ByVal sFolder As String) As Integer Dim B As Boolean Dim iTyp As Integer Dim nErr As Long Dim errMsg As String Dim sPath As String Dim sServ As String Dim fso As Object Dim D As Variant Const cFSO As String = "Scripting.FileSystemObject" On Error GoTo Err_fso Set fso = CreateObject(cFSO) ' Vergleichswert If sFolder = "" Then sFolder = "\Firma\Daten" ' default Verzeichnis Else sFolder = UCase(sFolder) End If With fso ' durchlaufe Auflistung Laufwerke For Each D In .Drives iTyp = D.DriveType ' nur Server ' 0= UnKnownType ' 1= Removable ' 2= Festplatte [Fixed] If iTyp = 3 Then ' 3= Server [Remote] (Domain) ' 4= CDRom, 5= Ram sServ = D.ShareName sServ = UCase(sServ) sPath = sServ & sFolder If .FolderExists(sPath) Then ' vergleiche enthält 'sFold' If InStr(1, sPath, sFolder) Then sServer = sServ B = True Exit For End If End If End If Next D End With fsoMyServer_Ex = B Exit_fso: Set fso = Nothing Exit Function Err_fso: With Err nErr = .Number errMsg = .Description .Clear End With MsgBox nErr & vbCr & errMsg, vbCritical, "fsoMyServer_Ex" Resume Exit_fso End Function Dieser Tipp wurde bereits 9.332 mal aufgerufen.
Anzeige
![]() ![]() ![]() (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. |
Neu! sevCommand 4.0 ![]() Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Tipp des Monats ![]() Dennis Hemken Computer der gegenwärtigen Domäne auslesen Alle Namen der Computer der gegenwärtigen Domäne (LDAP) auslesen Access-Tools Vol.1 ![]() Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
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. |