It's surprisingly easy to create a command-line interface to your application: example usages could be application updates, maintenance routines, anything that doesn't require a user interface.

As an example create a file called vfp.cmd somewhere in the default path (e.g. the system32 directory for local admins or at install) and add the following:

@cscript //nologo "%~dpn0.vbs" %*

This executes a script which is on the same drive, the same path, has the same name as the cmd file, has the extension vbs, and passes all the command line arguments to the script host.

Then create a file in the same directory as the .cmd file called vfp.vbs with these contents:

dim i, oVFP
i = 0

wscript.echo "Arguments:"

do while i < wscript.arguments.count
	wscript.echo wscript.arguments(i) & "(" & i & ")"
	i = i + 1
loop

set oVFP = createobject("VisualFoxpro.Application")
wscript.echo "VFP File path:"
wscript.echo oVFP.DefaultFilePath

Once this has been done, open a command prompt and type

vfp foo bar

to see the results. Your script could process the arguments itself, or it could pass them to your application or COM server depending on the requirements.

Leave a Reply

Your email address will not be published. Required fields are marked *