| Вопрос: Где ошибка? | Добавлено: 26.08.08 15:04 |
Автор вопроса:  10dey
|
|
Указывает на ошибку в первой строке, проверяю все вроде нормально, может в глазах пыль космическая?
Dim FSys As New FileSystemObject Private Sub Form_Load() Set qn = FSys.GetFile("D:\2\attributes\FileAtribs2.vbp") List1.AddItem "Имя файла " & qn.Name List1.AddItem "Полный путь " & qn.Path List1.AddItem "Дата создания " & qn.DateCreated List1.AddItem "Дата модификации " & qn.DateLastModified List1.AddItem "Дата последнего доступа " & qn.DateLastAccessed List1.AddItem "Размер файла " & qn.Size End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 26.08.08 17:19 |
|
dim qn as object
|
||
Страница: 1 |