'senden des befehls dir
 
private sub comDir_click()
     INet1.Execute , "Dir"
end sub
 
'nach dem senden vom Server tritt Status 12 ein.
Private Sub Inet1_StateChanged(ByVal State As Integer)
     if State = 12 then
          dim varGetChunk as Variant
          dim strGetChunk as String
          dim bolGetChunk as boolen
          dim strName as String
          dim intPosBeg as Integer: intPosBeg = 1
          dim intPosEnd as Integer
 
 
         varGetChunk = INet.GetChunk(1024, 0)
         Do While Not bolGetChunk
               strGetChunk  = strGetChunk & varGetChunk
               varGetChunk = INet.GetChunk(1024, 0)
               if len(varGetChunk) = 0 then
                       bolGetChunk = True
              end if 
         Loop
 
         if strGetChunk <> "" then
         bolGetChunk = False
         Do While Not bolGetChunk
                intPosEnd = instr(intPosBeg, strGetChunk, chr(13))
                strName = mid(strGetChunk, intPosBeg, intPosEnd - intPosBeg)
                'nun hab ich den Datei, bzw. den Folder-Namen
                if mid(strName, len(strName), 1) = "/" then 'prüfen ob datei 
                ' oder folder
                           'hier in TreeView adden
                end if
                'hier in alles in ein ListView adden.
                intPosBeg = intPosEnd + 2 '+2 sind diese 2 platzhalter
                if intPosBeg >= len(strGetChunk) then
                         bolGetChunk = False
                end if
         Loop
         end if
end if
End Sub

Private Sub Command1_Click()
Inet1.URL = " ftp://" & Text1.Text
Inet1.UserName = Text2.Text
Inet1.Password = Text3.Text
Inet1.Execute , "Dir"
End Sub
 
Private Sub Command2_Click()
End
End Sub
 
Private Sub Form_Load()
Me.Width = 7000
Me.Height = 6500
Label1.Caption = "URL"
Label2.Caption = "User"
Label3.Caption = "Pass"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Command1.Caption = "Verbinden"
Command2.Caption = "Beenden"
Label1.Left = 100
Label1.Top = 300
Label2.Left = 100
Label2.Top = 800
Label3.Left = 100
Label3.Top = 1300
Label4.Left = 3200
Label4.Top = 2000
RichTextBox1.Left = 100
RichTextBox1.Top = 2000
RichTextBox1.Height = 2500
RichTextBox1.Width = 3000
Text1.Left = 1000
Text1.Top = Label1.Top
Text2.Left = 1000
Text2.Top = Label2.Top
Text3.Left = 1000
Text3.Top = Label3.Top
Text4.Left = 100
Text4.Top = 4600
Text4.Width = 6000
Command1.Left = Text1.Left + Text1.Width + 100
Command1.Top = Text1.Top
Command2.Left = Me.Width - (Command2.Width + 200)
Command2.Top = Me.Height - (Command2.Height + 500)
End Sub
 
Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then
Dim varGetData As Variant
Dim strGetData As String
Dim bolGetData As Boolean: bolGetData = False
 
varGetData = Inet1.GetChunk(1024, 0)
Do While Not bolGetData
strGetData = strGetData & varGetData
varGetData = Inet1.GetChunk(1024, 0)
If Len(varGetData) = 0 Then
bolGetData = True
End If
Loop
Label4.Caption = strGetData
RichTextBox1 = strGetData
Text4 = strGetData
End If
End Sub