| Вопрос: CD-ROM | Добавлено: 03.05.07 02:55 |
Автор вопроса:  Docal | Web-сайт: Doc-source.pp.net.ua | ICQ: 408802757 |
| Подскажите пожалуста как мне узнать не являетсали вибраний диск cd-rom? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #1 | Добавлено: 03.05.07 03:07 |
|
подключи библу SCRRUN.DLL References/(Microsoft Scripting Runtime)
Dim fs As New FileSystemObject Debug.Print fs.GetDrive("C"  .DriveType
Debug.Print fs.GetDrive("  ".DriveType
|
||
|
Номер ответа: 2 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 03.05.07 04:52 |
|
Option Explicit
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long Dim strDriver As String Public Function DriveType(Drive As String) As String Dim sAns As String, lAns As Long, sLable As String 'Приводим выбранный Drive к нормальному виду If Len(Drive) = 1 Then Drive = Drive & ":\" If Len(Drive) = 2 And Right$(Drive, 1) = ":" Then Drive = Drive & "\" sLable = Drive Drive = Left$(Drive, 1) & ":\" lAns = GetDriveType(Drive) Select Case lAns Case 2 sAns = "Вы выбрали дисковод - " & UCase(sLable) Case 3 sAns = "Вы выбрали винчестер - " & UCase(sLable) Case 4 sAns = "Вы выбрали удаленный винчестр - " & UCase(sLable) Case 5 sAns = "Вы выбрали CD-ROM - " & UCase(sLable) Case 6 sAns = "Вы выбрали RAM Disk - " & UCase(sLable) Case Else sAns = "Вы выбрали недоступный винчестр" End Select Form1.Caption = UCase(sLable) DriveType = sAns End Function Private Sub Drive1_Change() strDriver = Drive1.Drive Label1.Caption = DriveType(strDriver) End Sub |
||
Страница: 1 |