Set objShell = CreateObject("WScript.Shell")
 
 ' -- 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(".")

  For Each File In Fldr.Files
     objShell.SendKeys File
     objShell.SendKeys "{ENTER}"
  next