home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / simple7a / ftpbas.bas < prev    next >
Encoding:
BASIC Source File  |  1999-10-06  |  2.2 KB  |  94 lines
  1. Attribute VB_Name = "ftpbas"
  2. Global IsGood As Boolean
  3. Global PubData As Variant
  4. Global User As String
  5. Global Passwd As String
  6. Global Host As String
  7. Global Port As String
  8. Global GoOnline As Boolean
  9. Public Sub LogIn()
  10. If Not GoOnline Then
  11.    Exit Sub
  12. End If
  13. DoEvents
  14. On Error Resume Next
  15. If User <> "" Then
  16.    frmMain.Inet1.Execute , "CLOSE"
  17.    While frmMain.Inet1.StillExecuting
  18.       DoEvents
  19.    Wend
  20. End If
  21. On Error GoTo 0
  22. If Dir(App.Path & "\login.dat", vbNormal) = "" Then
  23.    MsgBox "No Login Data present!"
  24.    Exit Sub
  25. End If
  26. Open App.Path & "\login.dat" For Input As #1
  27. Line Input #1, Host
  28. Line Input #1, User
  29. Line Input #1, Passwd
  30. Line Input #1, Port
  31. Close #1
  32. frmMain.Label2.Caption = "Connecting to Host"
  33. frmMain.Inet1.Protocol = icFTP
  34. frmMain.Inet1.RemoteHost = Host
  35. frmMain.Inet1.UserName = User
  36. frmMain.Inet1.Password = Passwd
  37. frmMain.Inet1.RemotePort = Port
  38. frmMain.Inet1.RequestTimeout = 45
  39. While frmMain.Inet1.StillExecuting
  40.    DoEvents
  41. Wend
  42. frmMain.Label2.Caption = "Connecting - Getting Files List"
  43. While frmMain.Inet1.StillExecuting
  44.    DoEvents
  45. Wend
  46. On Error Resume Next
  47. RefreshServer
  48. frmMain.Label2.Caption = "File List Complete - Ready"
  49. frmMain.Label4.Caption = Host
  50. GoOnline = False
  51. End Sub
  52.  
  53. Public Sub RefreshServer()
  54. frmMain.List1.Clear
  55. frmMain.Inet1.Execute , "LS"
  56. tstErr = Err
  57. If tstErr <> 0 Then
  58.    MsgBox Error(tstErr) & " - Closing FTP Connection"
  59.    frmMain.Label2.Caption = Error(tstErr)
  60.    frmMain.List1.Clear
  61.    On Error Resume Next
  62.    frmMain.Inet1.Cancel
  63.    If frmMain.Inet1.StillExecuting Then
  64.       DoEvents
  65.    End If
  66.    Exit Sub
  67. End If
  68. On Error GoTo 0
  69. While frmMain.Inet1.StillExecuting
  70.    DoEvents
  71. Wend
  72. IsGood = True
  73. PubData = ""
  74. While IsGood
  75.     newdata = frmMain.Inet1.GetChunk(1024)
  76.     If Len(newdata) <> 0 Then
  77.         PubData = PubData & newdata
  78.     Else
  79.         IsGood = False
  80.     End If
  81. Wend
  82. myfiles = PubData
  83. For i = 1 To Len(myfiles) - 1
  84.    k = InStr(i, myfiles, vbCrLf)
  85.    tmpfile = Mid(myfiles, i, k - i)
  86.    If Right(tmpfile, 1) = "/" Then
  87.       tmpfile = "*[" & Left(tmpfile, Len(tmpfile) - 1) & "]"
  88.    End If
  89.    frmMain.List1.AddItem tmpfile
  90.    i = k + 1
  91. Next i
  92.  
  93. End Sub
  94.