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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - Формирование списка файлов с расширением exe в папке C:\Windows (http://forum.oszone.net/showthread.php?t=334904)

shar9n@vk

18-05-2018 21:00 2814412

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

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

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

Iska	18-05-2018 21:22 2814414

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

Код:

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

19-05-2018 09:56 2814451

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

Время: 01:29.