Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run("Notepad")
Wscript.Sleep 3000
WshShell.AppActivate("Bez tytułu - Notepad")
WshShell.SendKeys("Dodanie tekstu po 3 sekundach")

Wygenerowanie skryptu VirtualDub z lista plików avi do polączenia

Set MyFiles = CreateObject("Scripting.FileSystemObject")
Set Folder = MyFiles.GetFolder(dir)
licznik = 0
Set WszystkiePliki = Folder.Files
For Each X in WszystkiePliki
plik = X.Path
line = scriptVCF & plik
if licznik = 0 Then
line = " VirtualDub.Open(" & Chr(34) & Replace(plik, "\", "\\") & Chr(34) & ");"
else
line = " VirtualDub.Append(" & Chr(34) & Replace(plik, "\", "\\") & Chr(34) & ");"
end if
scriptVCF = scriptVCF & line & vbNewLine
licznik = licznik + 1
Next

Dim objShell
Dim ssfDir
Dim objFolder
WScript.Echo("Wybierz katalog z plikami do polaczenia")

ssfDir = 0
set objShell = CreateObject("Shell.Application")
 set objFolder = objShell.BrowseForFolder(0, "Wybierz katalog", 0, ssfDir)
  if (not objFolder is nothing) then
   sDir = objFolder.Items().Item.Path
  end if
 set objFolder = nothing
set objShell = nothing

if sDir = "" then
 WScript.Quit()
end if