Executing CMD file within VB Script in an ActiveX task in DTS

I have an ActiveX task in a DTS package (SQL Server 2000) that is building a .cmd file that I wish to then execute from within the script.  The code I have is shown below. The data shown in the msgbox is correct (an example would be:
  C;\WINNT\TEMP\Equipment.cmd

The contents of the cmd file executes ftp.exe with parameters, including pointing to a script file in the same (temp) folder.

If I go to the TEMP folder and double-click on the .cmd file it works properly, but it appears that DTS never executes it. Some of the files I am trying to transfer are 100MB in size and the function appears to exit immediately after displaying the message box, and nothing is transferrred.

Is there another way I should be coding this?Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:

Function ExecuteShellProgram(CommandFileName)
	Dim poShell, poProcess, status
 
	msgbox "Executing " & CommandFileName
 
	Set poShell = CreateObject("WScript.Shell")
	Set poProcess = poShell.Exec(CommandFileName)
	...
End Function