on error resume next
Dim objShell, success, i, t
cnt = 0

Set objShell = CreateObject("WScript.Shell")

directory = inputbox("Enter Directory")


  ' -- Open Notepad & wait until is active
  objShell.Run "notepad"
  Do Until Success = True
      Success = objShell.AppActivate("Notepad")
      Wscript.Sleep 100
  Loop

  Set fso  = CreateObject("Scripting.FileSystemObject")
  Set Fldr = fso.GetFolder(directory)

  ' -- Get all files in the folder and put them on array
  For Each File In Fldr.Files
     cnt = cnt + 1
     Redim Preserve arFiles(cnt)
     Set arFiles(cnt) = File
  next

  objShell.SendKeys directory
  objShell.SendKeys "{ENTER}"

  ' -- Output the array
  For i = 1 to cnt
     Set f = fso.GetFile(arFiles(i))
     if UCase(fso.GetExtensionName(f)) = "PAS" then
         objShell.SendKeys arFiles(i) 
         objShell.SendKeys " - Arch bit -> " 
         objShell.SendKeys f.attributes
         objShell.SendKeys "{ENTER}" 
     end if 
  Next