Еще одна ошибка в реализации VBS...
Код:
dim FSO,Folder,Str
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("C:\Boot")
Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf
Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf
Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf
Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf
Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf
Str = Str & "Имя - " & Folder.Name & vbCrLf
Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf
Str = Str & "Путь - " & Folder.Path & vbCrLf
Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf
Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf
Str = Str & "Размер - " & Folder.Size & vbCrLf
Str = Str & "Тип каталога - " & Folder.Type & vbCrLf
MsgBox Str
Записываем этот код в файл test.vbs, запускаем... Получаем окошко с с аккуратно уложенной инфой.
Этот же код суем в триггера BooksCount... И - получаем окошко с непонятной билибердой...
Вообще то из всей этой кучи мне нужны лишь Folder.Size, Folder.DateCreated,Folder.DateLastModified .
Да, еще... в Win7 надо этот файл запускать с правами администратора
Вход
FAQ
Поиск
Пользователи
