Android Question file uploading with filesize 0 kb

[manuaaa]

kindly help me,

After running the below mentioned commend the file is uploading but the file size is 0 kb. kindly help.



If comm.CheckConnection Then
currentfilesize = File.Size(File.DirInternal, "32556365.jpg")
PB.Visible = True
percent.Visible = True

Dim sf As Object = FTP.UploadFile(File.DirInternal, "32556365.jpg", False, "/Html/IMG/32556365.jpg")
Wait For (sf) FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("file was uploaded successfully")
Else
Log("Error uploading file")
End If

Else
MsgboxAsync ("No Internet Connection - Please check Net Connection", "Connection Error")
End If Log(File.DirInternal)
End Sub

 

[DonManfred]

1. Please use CODE Tags when posting code!
2. Which line you got in the LOG?

 

[teddybear]

kindly help me,

After running the below mentioned commend the file is uploading but the file size is 0 kb. kindly help.



If comm.CheckConnection Then
currentfilesize = File.Size(File.DirInternal, "32556365.jpg")
PB.Visible = True
percent.Visible = True

Dim sf As Object = FTP.UploadFile(File.DirInternal, "32556365.jpg", False, "/Html/IMG/32556365.jpg")
Wait For (sf) FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("file was uploaded successfully")
Else
Log("Error uploading file")
End If

Else
MsgboxAsync ("No Internet Connection - Please check Net Connection", "Connection Error")
End If Log(File.DirInternal)
End Sub

I guess you would like to upload file to httpserver using ftp client

 

[DonManfred]

[B4X] Tip: Always set FTP.PassiveMode to True

I've just wasted an hour trying to understand why a desktop program that I'm using for many months failed to upload a file to a FTP server. I realized that the only thing that was recently changed is that B4J was running with Java 10. Mistakenly I assumed that it is related to IPv6 handling (the...

www.b4x.com

 

[manuaaa]

I guess you would like to upload file to httpserver using ftp client

YES

 

[manuaaa]

1. Please use CODE Tags when posting code!
2. Which line you got in the LOG?

IN MY NET FOLDER THE FILE NAME IS SHOWING. WITH 0 KB FILE SIZE.

1. Please use CODE Tags when posting code!
2. Which line you got in the LOG?

If comm.CheckConnection Then
currentfilesize = File.Size(File.DirInternal, "32556365.jpg")
PB.Visible = True
percent.Visible = True

Dim sf As Object = FTP.UploadFile(File.DirInternal, "32556365.jpg", False, "/Html/IMG/32556365.jpg")
Wait For (sf) FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
Log("file was uploaded successfully")
Else
Log("Error uploading file")
End If

Else
MsgboxAsync ("No Internet Connection - Please check Net Connection", "Connection Error")
End If Log(File.DirInternal)
End Sub

 

[teddybear]

As DonManfred said Post #4, did you set passiveMode to true?

 

[DonManfred]

IN MY NET FOLDER THE FILE NAME IS SHOWING. WITH 0 KB FILE SIZE.

DO NOT SCREAM TO ME!

Upload a small project showing the problem