Страница: 1 |
Вопрос: Где ошибка? | Добавлено: 26.08.08 15:04 |
Автор вопроса: ![]() |
Указывает на ошибку в первой строке, проверяю все вроде нормально, может в глазах пыль космическая?
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 |
|