Здравствуйте, @RealMan@! Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Dim i, id, s For i = 0 To 25 s = Chr(i + 65) & ":" id = GetDriveType(s) Select Case id Case 2 Print "Drive " & s & " is removable" Case 3 Print "Drive " & s & " is fixed" Case 4 Print "Drive " & s & " is remote" Case 5 Print "Drive " & s & " is CD-ROM" Case 6 Print "Drive " & s & " is RAM disk" Case Else End Select Next
Ответ отправлен: 25.11.2004, 14:44 Отправитель: Licvidator Отвечает Miklucho
Здравствуйте, @RealMan@! Самый простой способ элементом управления Drive, свойство Drive. Еще в FSO можно сделать, извини щас правда под рукой ничего нет. Ответ отправлен: 25.11.2004, 05:25 Отправитель: Miklucho
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.