[Iska]

Скучно что-то… Пробуйте:

читать дальше »

Код:

Option Explicit

Const Hidden = 2
Const System = 4


Dim strSourceFolder

Dim objFile
Dim objWshShell


strSourceFolder = "E:\Песочница\0373"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FolderExists(strSourceFolder) Then
		Set objWshShell = WScript.CreateObject("WScript.Shell")
		
		For Each objFile In .GetFolder(strSourceFolder).Files
			If objFile.Attributes And Hidden Or objFile.Attributes And System Then
				objWshShell.Run "notepad.exe """ & objFile.Path & """"
			End If
		Next
		
		Set objWshShell = Nothing
	Else
		WScript.Echo "Source folder [" & strSourceFolder & "] not found."
		WScript.Quit 1
	End If
End With

WScript.Quit 0