Sub ShowDriveList
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub
Узнать букву, Диска 3.5, Дисковода, Жеского диска
Как можно программа узнать букву: Диска 3.5, Дисковода, Жеского диска и их названия?
Только мне кажется, что надо этот код засунуть между:
а то, если дисковод пуст, появляется ошибка 71 "Disk not ready" на строке n = d.VolumeName
P.S. ну или обработать её через if Err.Number = 71 then ....
Код:
On Error Resume Next
.....
On Error GoTo 0
.....
On Error GoTo 0
а то, если дисковод пуст, появляется ошибка 71 "Disk not ready" на строке n = d.VolumeName
P.S. ну или обработать её через if Err.Number = 71 then ....
Цитата: pavel55
Только мне кажется, что надо этот код засунуть между
Да это пример. Много еще чего надо засунуть, чтобы все работало, как следует. :D