[evry1falls]

Hello,
I have this project as attached,
i want to open (Directory) and display its content in the listbox .. but it is not working ....
i believe that everything is correct but im missing something .
Please see my project and suggest me an answer to try it ...

 FTP.zip (39.03K)
Number of downloads: 182

[BobRodes]

Again, please post your relevant code directly (don't just put all of it here), for the reasons I gave in your other thread.

[evry1falls]

Ok, here is my code :
1) The event Inet1_StateChanged, return the connection status.

Private Sub Inet1_StateChanged(ByVal State As Integer)
Istate = State
Select Case Istate
    Case Is = 1
        Label6.Caption = "The control is looking up the IP address of the specified host computer. (icHostResolvingHost)"
    Case Is = 2
        Label6.Caption = "The control successfully found the IP address of the specified host computer. (icHostResolved)"
    Case Is = 3
        Label6.Caption = "The control is connecting to the host computer. (icConnecting)"
    Case Is = 4
        Label6.Caption = "The control successfully connected to the host computer. (icConnected)"
    Case Is = 5
        Label6.Caption = "The control is sending a request to the host computer. (icRequesting)"
    Case Is = 6
        Label6.Caption = "The control successfully sent the request. (icRequestSent)"
    Case Is = 7
        Label6.Caption = "The control is receiving a response from the host computer. (icReceivingResponse)"
    Case Is = 8
        Label6.Caption = "The control successfully received a response from the host computer. (icResponseReceived)"
    Case Is = 9
        Label6.Caption = "The control is disconnecting from the host computer. (icDisconnecting)"
    Case Is = 10
        Label6.Caption = "The control successfully disconnected from the host computer. (icDisconnected)"
    Case Is = 11
        Label6.Caption = "An error occurred in communicating with the host computer. (icError)"
    Case Is = 12
        Label6.Caption = "The request has been completed and all data has been received. (icResponseCompleted)"
    Case Else
        Label6.Caption = "Unknown State"
End Select
End Sub

Note : (Istate) Variable was defined in module level (Public) to be heard in the whole project as String .


2) Form_Load event code opens (Log.txt) and pick up my stored info (HostURL,UserName,PassWord) .

3) The Connect button : Now here is my main problem, so far i'm able to connect to the (FTP://) using this code :

Private Sub Label9_Click()
'make sure remote server provided
If Text1.Text = Trim("") Then
    Label6.Caption = ("Please choose a remote server")
    Text1.SetFocus
    Exit Sub
End If
'Login/Connect Code
Inet1.AccessType = icDirect
Inet1.URL = Text1.Text
Inet1.UserName = Text2.Text
Inet1.Password = Text3.Text
Inet1.RequestTimeout = 40
Inet1.Execute , "DIR"
Do While Inet1.StillExecuting
    DoEvents: DoEvents: DoEvents
Loop
'////////////////////////////////////////////
Inet1_StateChanged (Istate)
'///////////////////////////////////////////
Select Case Check1.Value
    Case Is = 1
                Open App.Path & "/log.txt" For Output As #Nfile
                        Print #Nfile, Text1.Text
                        Print #Nfile, Text2.Text
                        Print #Nfile, Text3.Text
                        Print #Nfile, Check1.Value
                Close #Nfile
    Case Is = 0
                Exit Sub
End Select
End Sub

- It returns the connection status fine (Connected), but doesn't return any data from the server (FTP://) , so i've created another label_click event to display the Main Dir of the (FTP://) .

4) The event that displays Main Dir of the (ftp://) under the Label10_Click event :

Private Sub Label10_Click()
'make sure remote server provided
If Text1.Text = Trim("") Then
    Label6.Caption = ("Please choose a remote server")
    Text1.SetFocus
    Exit Sub
End If
'Make sure you are connected.
If Istate <> 12 Then ' Connected
    Label6.Caption = "sorry, you did not full successfully recieved a responce from the server."
    Exit Sub
End If
'Make Sure List is Empty (not to load data twice)
If List4.ListIndex <> -1 Then Exit Sub
'Get List of all files
StrDir = ""
List4.Clear
Do
DoEvents
Loop Until Not Inet1.StillExecuting
Data1 = Inet1.GetChunk(1024, icString)
Data = Data + Data1
StrDir = Data
Entry = Split(StrDir, vbCrLf, , vbTextCompare)
    XX = 0
 Do While XX < UBound(Entry)
        If Trim$(Entry(XX)) <> "" Then
            List4.AddItem Entry(XX)
        End If
        XX = XX + 1
    Loop
    If List4.ListCount = 0 Then
        List4.ListIndex = -1
    Else
        List4.ListIndex = 0
    End If
    End Sub

- To tell you the truth i did not come up with all of the (Label10) code i just worked around some other codes to get the result i needed, anyway it displays the Main Dir of the (ftp://), now when i try to execute any other ftp command, it just doesn't display anything for me, and when i try to work around this problem i get duplications in the (list4) displayed data.

- My problem is that i did not put the GetChunk code in the right place, coz it carries the same executed data everytime i try to change the Inet1 Command.

- I dunno where did i go wrong !

[BobRodes]

This complicated bit of code might give you some ideas. Note also this, which explains how GetChunk works. GetChunk gets a chunk of a BLOB, in your case a chunk of 1024 bytes. Then, the next time you call GetChunk, it will get the next 1024 bytes of your BLOB, and so on. You only call it once in your proc, and then everything starts over again. So, you're managing to start over each time you call GetChunk.

Most code loops around Getchunk until there isn't any data left. That might give you something to work through.

[evry1falls]

Thanx, that really helped

[BobRodes]

Outstanding.

[maheshsanka]

evry1falls, on 04 May 2012 - 09:39 AM, said:

thanks, that really helped

Hi,

i am also facing same problem. May i know how you solve it

[maj3091]

Try reading through the links that Bob posted in regards to the OP's original problem.

If that doesn't help you, then open a new thread, showing your code and explaining the particular problem you have.