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

[shar9n@vk]

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



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

[shar9n@vk]

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





Код:

Код: Выделить всё

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, Да, спасибо