Использование функции GetLogicalDriveStrings для получения строки содержащей список подключенных логических дисков
Declare Function GetLogicalDriveStrings Lib "kernel32" Alias _ "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long Public Function fnGetDrives() As String 'Возвращает строку содержащюю все подключенные диски Dim lngRet As Long Dim strDrives As String * 255 Dim lngTmp As Long lngTmp = Len(strDrives) lngRet = GetLogicalDriveStrings(lngTmp, strDrives) fnGetDrives = Left(strDrives, lngRet) End Function
Источник: Джеффри Рихтер "Windows для профессионалов 3-е издание" (Jeffrey Richter "Advanced Windows Third Edition") |
Просмотров: 6641
Ваш коментарий будет первым | | |