Simple DirectShow script for virtualdub

[streamking]

I've made this simple vbscript some time ago because I hated to create those .avs files each time. I could write an installer that does all the work if anyone likes, but this is very easy

- requirements: virtualdub, avisynth, directshow codecs

installation:
========
1) place a file called "DirectShow 4 VirtualDub.vbs" with the following lines into your virtualdub folder

Option Explicit

Dim q,vdubEXE,Arg,Argstr,fo,sh,f,file,pos,AVSfile,tcreate

q=Chr(34)

vdubEXE=Left(wscript.ScriptFullName,Len(wscript.ScriptFullName)-Len(wscript.ScriptName))+"VirtualDub.exe"

Set Arg = WScript.Arguments

Argstr=Arg.Item(0)

Set fo = CreateObject("Scripting.FileSystemObject") 
Set sh = CreateObject("Wscript.Shell")

Set f = fo.GetFile(Argstr)

file=f
AVSfile=file+".avs"
Set tcreate=fo.CreateTextFile(AVSfile,1)
tcreate.writeLine("DirectShowSource("+q+file+q+")")
tcreate.Close()
sh.run q+vdubEXE+q+" "+q+AVSfile+q,,True

fo.DeleteFile(AVSfile)

set fo = Nothing
set sh = Nothing

2) create a shortcut of this file on your desktop
3) give it a virtualdub icon and the name you want, for example (Vdub Dshow)

Now if you drop a .rm file or whatever on that icon a .avs is created next to it (with the same name) and virtualdub is opened with that file, when you are done and close virtualDub the file is removed.

[jagabo]

Or use VirtualDubMod and it's built in AviSynth DirectShowSource option. That will create the AVS script and open it.

[streamking]

that's nice, I even didn't know that existed.