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

Iska · Отправлено: **21:22, 18-05-2018** | #2

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

Код:

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 · Отправлено: **09:56, 19-05-2018** | #3

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