When I put the following code in a click event of button I received a error 1923. I had the same code you did in the init of the form, and RASDIAL call
like oIP.RasDial('mydun'). You wouldn't know what this means would you?
thanks
>Aaron Chu,
> I have tried it, no problem. Below is the sample code which may help u to solve ur problem(this code is in one of the command button in my form).
>
>o.cFTPServer=AllTrim(thisform.txtIPAddress.Value)
>o.cFTPSource=AllTrim(thisform.txtSource.Value)
>o.cFTPTarget=AllTrim(thisform.txtTarget.Value)
>*o.nBinary=1
>o.cUsername=AllTrim(thisform.txtUser.Value)
>o.cPassword=AllTrim(thisform.txtPassword.Value)
>
>nError=-1
>nError=o.FTPSendFile()
>MessageBox(str(nError), 0)
>if nError=0
> MessageBox("Ok", 0)
>else
> DO CASE && Begins loop
>
> CASE nError=12003
> MessageBox("File not found!", 0)
>
> OTHERWISE
> MessageBox("General Fail.", 0)
>
> ENDCASE && Ends loop
>
>endif
>
>More information for u, you must also type the following command in the Init Event in the form :
>
>SET PROCEDURE TO c:\chen\temp\westwind\wwUtils ADDITIVE
>SET CLASSLIB TO c:\chen\temp\westwind\wwIPStuff ADDITIVE
>
>PUBLIC o, nError
>
>o=createobject("wwIPStuff")
>
>
>Hope this will help you.
Some days it's not worth chewing through the leather straps ...