Список файлов в директории

Option Explicit
On Error Resume Next 
Dim FolderPath ' folder to be searched for files
Dim objFSO
Dim objFolder
Dim colFiles
Dim objFile

FolderPath = "c:\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(FolderPath)
Set colFiles = objFolder.Files

For Each objFile in colFiles
    Wscript.Echo objFile.Name, objFile.Size & " bytes"
   	WScript.Echo VbTab & "created: " & objFile.DateCreated 
    WScript.Echo VbTab & "modified: " & objFile.DateLastModified
Next

Возможные свойства файлов - Attributes - атрибуты файла (например только чтение или скрытый) DateCreated - дата создания файла DateLastAccessed - Дата последнего доступа к файлу DateLastModified - Дата последнего изменения Drive - буква диска с двоеточием Name - имя файла без пути ParentFolder - Родительская папка для файла (без пути) Path - Полнй путь к файлу ShortName - имя в формате MS-DOS (8:3) ShortPath - Путь версии 8:3 Size - Размер в байтах Type - тип файла согласно реестру (например Word или Excel)

Также интересно:

Интересное на сайте: 
0
Голосов пока нет

Оставить комментарий