WAV-->AAC with Quicktime (WIN), convert 500 files with quicktime Options

[spirit303]

i need help

how do i convert my 500 WAV files into AAC (mp4) with the best quality encoder apple quick time 6.3 for !windows! ?
i don' wanna open each file and export it. it will keep me goin for years !!!

please tell me how to do it

thank u guys

[richard123]

You appear to be right about AppActivate. I'm thinking of invoking and then exiting QT within the callQt routine. Here's my current revision, btw:

CODE

'Batch QuickTime by frdakota@hotmail.com
' updated by richard 3 July 2003

Function WavList(Path)
 Dim fso, f, f1, fc
 Dim i, w

 Set fso = CreateObject("Scripting.FileSystemObject")
 Set f = fso.GetFolder(Path)
 Set fc = f.Files

 w = 0
 For Each f1 In fc
    If LCase(Right(f1.name, 3)) = "wav" Then
      Wav(w) = Path & "\" & f1.name
      w = w + 1
    End If
 Next

 set fso = nothing
 WavList = w
End Function

Function CallQuickTime(Path)
 Dim fso, mp5

 ' find a way of grabbing focus

 WScript.Sleep 5000
 WshShell.SendKeys "%FO"
 WScript.Sleep 1000
 WshShell.SendKeys Path
 WScript.Sleep 1000
 WshShell.SendKeys "{ENTER}"
 WScript.Sleep 1000
 WshShell.SendKeys "{ESC}"
 WScript.Sleep 1000
 WshShell.SendKeys "%FE"
 WScript.Sleep 1000
 WshShell.SendKeys "{ENTER}"
 
 mp5 = Left(Path, Len(Path)-3) & "mp5"

 WScript.Sleep 9000

 Set fso = CreateObject("Scripting.FileSystemObject")
 While fso.FileExists(mp5)
 Wend

 set fso = nothing

End Function

Dim fileCount, List, Wav(255), wavCount

Path = "D:\cds\mA"
wavCount = WavList(Path)

If wavCount > 0 Then
 Set WshShell = WScript.CreateObject("WScript.Shell")

 WshShell.Run("D:\Progra~1\QuickTime\QuickTimePlayer.exe")
 WScript.Sleep 5000
 
 For i = 0 To wavCount -1
   CallQuickTime(wav(i))
 Next
 
 WshShell.SendKeys "%FX"
 Wscript.Echo("Done")
 
Else
 Wscript.Echo("No wav files found.")
End If

Wscript.Quit