Формирование списка файлов с расширением exe в папке C:\Windows

[shar9n@vk]

Ребят, объекты и их свойства в VBS для меня темный лес, помогите пожалуйста создать довольно простую программу, если в этом разбираться. Заранее спасибо.

Напишите программу, которая покажет в окне сообщений все файлы с расширением exe в папке C:\Windows.

[Iska]

Лабораторка?

Option Explicit

Const WindowsFolder = 0

Dim strResult
Dim objFile


strResult = ""

With WScript.CreateObject("Scripting.FileSystemObject")
For Each objFile In .GetSpecialFolder(WindowsFolder).Files
If StrComp(.GetExtensionName(objFile.Name), "exe", vbTextCompare) = 0 Then
strResult = strResult & objFile.Name & vbCrLf
End If
Next
End With

WScript.Echo strResult

WScript.Quit 0

[shar9n@vk]

Iska, Да, спасибо