Android Question Check If File Exists On FTP Server

[SpinBower]

Hi, I have a button that when pressed needs to check if there is a file on the server that this specified in a text field. Is this possible?

 

[sanduro]

NET library , FTP Send command, use this LIST command

http://www.b4x.com/android/help/net.html

http://www.cs.cf.ac.uk/Dave/Internet/node123.html#SECTION00665400000000000000

 

[SpinBower]

NET library , FTP Send command, use this LIST command

http://www.cs.cf.ac.uk/Dave/Internet/node123.html#SECTION00665400000000000000

Ok thanks! But I don't think that's what I need. What I need is for a user to input a username and a pass then when they click submit it will check in the users folder on the server is a file exists with the name "username.txt" username will be the variable for the text field.

 

[sanduro]

it is exactly what you need lol

on button_click event call SendCommand (Command As String, Parameters As String)

SendCommand ("LIST", youruserfiekd.text & ".txt")

 

[SpinBower]

it is exactly what you need lol

on button_click event call SendCommand (Command As String, Parameters As String)

SendCommand ("LIST", youruserfiekd.text & ".txt")

Ok cool! So let's say the user doesn't exist, will it return something so the app can tell the user that it doesn't exist?

 

[sanduro]

dont be lazy and read those link I sent , everything is there

if i write you the code it will be my code and not yours, and read Erel's tutorial about FTP

 

[Erel]

You can also call FTP.List and handle the ListCompleted event. It will return all files in the specified folder.

 

[SpinBower]

So I have this:

How do I use the text field as the txt name in the list command?

Sub Globals
Dim Username As EditText
End Sub

Sub Login_Click
FTP.List("/public_html/users/Username.txt")
End Sub

Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
    Log(ServerPath)
    If Success = True Then
        RemoveViews
        Activity.LoadLayout("main")
    End If
End Sub

 

[margret]

Change the FTP_ListCompleted to this:

Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
    Log(ServerPath)
    If Success = True Then
        For i = 0 To Files().Size -1
            If Files(i).Name.Contains(Username.Text.Trim) Then
                'User File Found On Server
                RemoveViews
                Activity.LoadLayout("main")
            Else
                Msgbox("User Not Found...", "NOTICE")
            End If
        Next
    End If
End Sub

 

[SpinBower]

Change the FTP_ListCompleted to this:

Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
    Log(ServerPath)
    If Success = True Then
        For i = 0 To Files().Size -1
            If Files(i).Name.Contains(Username.Text.Trim) Then
                'User File Found On Server
                RemoveViews
                Activity.LoadLayout("main")
            Else
                Msgbox("User Not Found...", "NOTICE")
            End If
        Next
    End If
End Sub

Thanks!

 

[SpinBower]

Sorry but it returns with an error

Parsing code. 0.00
Compiling code. Error
Error compiling program.
Error description: Missing parameter.
Occurred on line: 77
For i = 0 To Files().Size -1
Word: (

 

[SpinBower]

I figured it out.

 

[DonManfred]

To give this thread a "completed" you can share the solution back to others...

 

[DonManfred]

Sorry but it returns with an error
Error description: Missing parameter.
Occurred on line: 77
For i = 0 To Files().Size -1

i think it must be

For i = 0 To Files.Length -1

or

For i = 0 To Files.Size -1