I have automated transferring a file in EXTRA! but my code (see below) does not work in Reflection Desktop.

No error messages appear when this is run. It just sits.

Any assistance is GREATLY appreciated!

DSN = userid + ".jclextrc." + FullName + ExtensionName
DSN = "'" + DSN + "'"
FTP = False
Do Until FTP = True
Sess0.FileTransferScheme = "Text Default"
Sess0.FileTransferHostOS = 1
DSNDestination = DestPath + FullName + ".TXT"
Application.Wait (Now + TimeValue("0:00:01"))
Recv = Sess0.ReceiveFile(DSNDestination, DSN) ' '(DSNDestination,DSN)
Lag = False
Do Until Lag = True
If Recv Then
FTP = True
Lag = True
End If
Application.Wait (Now + TimeValue("0:00:02"))
Loop
Loop