Цитирую: Для того, чтобы объектная модель FileSystemObject была полностью (не только
объекты, их свойства и методы, но и константы, определенные в перечислимых
типах этой модели) доступна приложению, рекомендуется включить в проект
ссылку на соответствующую библиотеку Microsoft Scripting Runtime
Прочитал очень дельную информацию по FSO. Согласился. Подключил.
Беру макрос следующего содержания, для выведения имен всех дисков
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub ShowDriveList()
On Error Resume Next
Dim fs As FileSystemObject, d As Drive, dc As Collection, _
s As String, n As String
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
Убираю: d As Drive, dc As Collection, заменяя на
И все работает...
Какие библиотеки можно подключить чтобы строго описывать эти типы переменных?
