88228asd
Сообщений: 14
Оценки: 0
Присоединился: 2011-10-26 21:12:42.546666
|
Долго искал код для получения списка всех локальных дисков на VB 6, судя по описнию то, но как использовать незнаю помогите
Option Explicit
Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32.dll" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
'Private Const DRIVE_UNKNOWN As Long = 0
'Private Const DRIVE_NO_ROOT_DIR As Long = 1
Private Const DRIVE_REMOVABLE As Long = 2
'Private Const DRIVE_FIXED As Long = 3
'Private Const DRIVE_REMOTE As Long = 4
Private Const DRIVE_CDROM As Long = 5
'Private Const DRIVE_RAMDISK As Long = 6
Private mLetters(25) As String * 3
Private mCount As Long
Public Sub GetRemDriveLetters()
Dim DrivesStr As String 'lpBuffer
Dim DrivesStrLen As Long 'nBufferLength
Dim DrivesArr() As String 'ALL Drives Array
Dim drvType As Long '= GetDriveType
Dim i As Long
mCount = 0
DrivesStrLen = GetLogicalDriveStrings(0, vbNullString)
DrivesStr = Space(DrivesStrLen)
Call GetLogicalDriveStrings(DrivesStrLen, DrivesStr)
DrivesArr = Split(DrivesStr, vbNullChar)
For i = 0 To UBound(DrivesArr) - 2
Select Case GetDriveType(DrivesArr(i))
Case DRIVE_REMOVABLE ', DRIVE_CDROM
mLetters(mCount) = DrivesArr(i)
mCount = mCount + 1
End Select
Next
End Sub
|
Как использовать код (VB 6) - 
