I'm looking for a solution for my ftp problem...
On the PC everything works fine, But on the PDA not.
Internet works. Connection is open...
This is my code;
Sub Globals
Dim datumfile
Dim datum
Dim csvbestand
csvbestand=AppPath & "\livaadje.csv"
End Sub
Sub App_Start
frmmain.Show
Msgbox("1")
ErrorLabel (errHandler)
ftp.New1
Msgbox("2")
WaitCursor(true)
ftp.Open("","","")
Msgbox("3")
If ftp.IsFTPConnected Then
If FileExist (csvbestand) Then
FileDel(csvbestand)
End If
Msgbox("4")
ftp.GetFile("livaadje.csv",csvbestand)
Msgbox("5")
WaitCursor(false)
Msgbox("6")
ftp.Close
Msgbox("7")
Else
Msgbox("8")
End If
Msgbox("9")
Return
ErrHandler:
Msgbox("a")
End Sub
On the PC no worry's. On the PDA i come as far as Msgbox("4")
.
Please give me a clue!
On the PC everything works fine, But on the PDA not.
Internet works. Connection is open...
This is my code;
Sub Globals
Dim datumfile
Dim datum
Dim csvbestand
csvbestand=AppPath & "\livaadje.csv"
End Sub
Sub App_Start
frmmain.Show
Msgbox("1")
ErrorLabel (errHandler)
ftp.New1
Msgbox("2")
WaitCursor(true)
ftp.Open("","","")
Msgbox("3")
If ftp.IsFTPConnected Then
If FileExist (csvbestand) Then
FileDel(csvbestand)
End If
Msgbox("4")
ftp.GetFile("livaadje.csv",csvbestand)
Msgbox("5")
WaitCursor(false)
Msgbox("6")
ftp.Close
Msgbox("7")
Else
Msgbox("8")
End If
Msgbox("9")
Return
ErrHandler:
Msgbox("a")
End Sub
On the PC no worry's. On the PDA i come as far as Msgbox("4")
.
Please give me a clue!