Shell "ftp -s:" & "C:\TRAN.BAT"

not sure on this line as I haven't really played with ftp.
did you try to shell the tran.bat file seperately to
see whether you are stuck on the ftp end or the shell?

Your create works fine so if you shell it, it should work...
'this will open and run the tran.bat and close the dos
'window when finished.

Wish I could be of more help but I am lost on ftp


Dim h As Long
h = Shell(Environ("COMSPEC") & " /C C:\Tran.bat")
DoEvents