Шаг 59 - Свойство Type.

Возвращает описание о типе папки или файла. Например файлы с расширением .TXT имеют описание "Text Document" .

object.Type

Параметры
object - всегда объект типа File или Folder.

Пример
Следующий код иллюстрирует использование Type свойства:

Sub ShowFileSize(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(filespec)
    s = UCase(f.Name) & " is a " & f.Type 
    MsgBox s, 0, "File Size Info"
End Sub
Hosted by uCoz