ник: час
Dim D
Dim Dc As Object
Dim s As String
On Error Resume Next
Dim fs As New FileSystemObject
Set Dc = fs.Drives
For Each D In Dc
's = D.DriveType & " " & D
'MsgBox s
If D.DriveType <> 3 And D.DriveType <> 4 And D.DriveType <> 1 Then
End If
Next
|
D.DriveType - на разных компах выдаёт разные номера для накопителей.
То 1 - это дисковод дискеток, а если его нет - тада это флэшка.
Можэ есть другия способы?