vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 
zurück

In diesem Forum haben Sie die Möglichkeit Kommentare, Fragen und Verbesserungsvorschläge zu den im [email protected] gelisteten Tipps und Workshops zu posten.

Hinweis:
Ein neues Thema kann immer nur über die jeweilige Tipps & Tricks bzw. Workshop Seite eröffnet werden!

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen zu Tipps & Tricks und Workshops im [email protected]
Tipp 264: Laufwerks-Pfad nach UNC-Pfad und umgekehrt 
Autor: NoRoutine
 Tipp anzeigenDatum: 17.06.21 15:24

Hallo,
ich hoffe ja, dass [email protected] noch gepflegt wird.
Heute habe ich den Tipp 264 für mich entdeckt und eingebaut.
Dabei sind mir zwei Dinge aufgefallen:
1. In der Function DrivePath ist ein Relikt verborgen. In der Zeile
 For Each Drive In LogicalDrives <findfile.htm>()
ist der Teil
<findfile.htm>()
überflüssig und erzeugt einen Syntaxfehler.
2. Die gleiche Funktion ist fehlerhaft, weil lokale Laufwerke, die keine UNC-Namen haben, nicht von der Prüfung ausgeschlossen werden. Das habe ich mit einer Abfrage des Drive Types gelöst. Definition:
    Private Declare PtrSafe Function GetDriveType Lib "kernel32" Alias _
      "GetDriveTypeA" ( _
            ByVal nDrive As String) As Long
 
' GetDriveType return values
Const DRIVE_REMOVABLE = 2
Const DRIVE_FIXED = 3
Const DRIVE_REMOTE = 4
Const DRIVE_CDROM = 5
Const DRIVE_RAMDISK = 6
Die Abfrage wird in die Schleife, die die Laufwerke abgleicht, integriert:
    For Each Drive In LogicalDrives
        If GetDriveType(Drive) = DRIVE_REMOTE Then
            UNC = UNCPath(Drive, True)
            If InStr(1, Path, UNC, vbTextCompare) = 1 Then Exit For
        End If
    Next Drive
NoRoutine

Das muß doch irgendwie gehen!

Beitrag wurde zuletzt am 17.06.21 um 15:26:02 editiert.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Tipp 264: Laufwerks-Pfad nach UNC-Pfad und umgekehrt209NoRoutine17.06.21 15:24

Sie sind nicht angemeldet!
Um einen neuen Beitrag schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2022 [email protected] 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