For Each Drive In LogicalDrives <findfile.htm>()

<findfile.htm>()

    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

    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

Das muß doch irgendwie gehen!

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