Public Function PrintSerialNumberDisks()
Dim fs, dc, D, s As String
On Error Resume Next
s = ""
' Получаем информацию о файловой системе
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each D In dc
Debug.Print D.DriveLetter & ": серийный номер: " & D.SerialNumber & ";"
Err.Clear
Next D
End Function
|