• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• How to find the network with Ms Access code ( Visual basic )

How to find the network with Ms Access code ( Visual basic )

How to find the network with Ms Access code ( Visual basic )

API Declarations


Option Explicit

Private Declare Function GetDriveType Lib "kernel32" _
Alias "GetDriveTypeA" (ByVal nDrive As String) _
As Long

Private Declare Function GetLogicalDriveStrings Lib _
"kernel32" Alias "GetLogicalDriveStringsA" _
(ByVal nBufferLength As Long, ByVal lpBuffer _
As String) As Long

Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6



Rate How to find the network with Ms Access code ( Visual basic )

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

  
  Dim l&, Ergebnis&, x&, typ&
  Dim Puffer$, NetwerkAll$, Netwerk$, Omschrijving$

    List1 = Null
    
    Puffer = Space(64)
    l = 64
    Ergebnis = GetLogicalDriveStrings(l, Puffer)
    NetwerkAll = Left$(Puffer, Ergebnis)
    
    Do While x < Len(Puffer)
        x = InStr(Puffer, Chr$(0))
        If x Then
            Netwerk = Left$(Puffer, x)
            Puffer = Mid$(Puffer, x + 1, Len(Puffer))
            typ = GetDriveType(Netwerk)
            If typ <> 1 Then
                Select Case typ
                    Case 2: Omschrijving = "Diskette station"
                    Case 3: Omschrijving = "Harde schijf"
                    Case 4: Omschrijving = "Netwerk"
                    Case 5: Omschrijving = "CD-ROM"
                    Case 6: Omschrijving = "RAM-Disk"
                End Select
                
                Netwerk = UCase(Mid$(Netwerk, 1, 2))
                List1 = List1 & Netwerk & " " & Omschrijving & vbCrLf
            End If
        Else
            Exit Do
        End If
    Loop
End Sub