значит трабл где-то в коде... проверь цыклы.

Ответить

Вот к примеру код кнопки upload

Private Sub zLokUp_Click()
Dim i, X, d As Integer
Dim z, Y As Long
If session = 0 Or server = 0 Then
    MsgBox "You Are Not Connected! Please Click The Connect Button.", vbInformation, App.Title
    Exit Sub
End If
If ListView1.SelectedItem Is Nothing Then
MsgBox "No File Selected!"
Exit Sub
Else
X = 0
z = 0
txtInfo.SelText = Time & " > Colecting files information:" & vbCrLf
For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).Selected = True Then
          Y = ListView1.ListItems(i).SubItems(3)
          z = z + Y
           X = X + 1
               txtInfo.SelText = X & ".) " & ListView1.ListItems(i).Text & vbCrLf
               frmProg.List1.AddItem ListView1.ListItems(i).Text
               frmProg.List2.AddItem Y
               frmProg.Label2.Caption = "Soubor:       /" & X
               frmProg.Command3.Caption = "Upload"
               frmProg.Label4.Caption = "Bytes send:"
       End If
    Next i
frmProg.lbCelkem = z
frmProg.Show vbModal, Me
zRemRef_Click
End If
End Sub

Все объявления лежат в отдельном модуле.

После нажатия вот на эту кнопку аплоад, открывается окно, где типа отображается статус загрузки и все такое. Вот код этого окна

Option Explicit
Const sReadBuffer = 1024
Private hFile As Long

Private Sub Command1_Click()
If hFile <> 0 Then
InternetCloseHandle hFile
MsgBox "Opertion Aborted.", vbInformation
End If
End Sub

Private Sub Download()
   Dim sBuffer As String
   Dim FileData As String
   Dim Ret As Long, SentBytes As Long, sAllBytes As Long, z As Long
   Dim i As Integer, FF As Integer
   Dim Kam As String, Ode As String
   Dim Fs As Long, StartT As Long, t As Long, Cnt As Long, p As Long
   Dim spRate As Single

z = lbCelkem.Caption
spRate = 0
sAllBytes = 0
p = 0
With ProgressBar2
   .Value = 0
   .Min = 0
   .Max = z * 1.024
End With
lbLeft.Visible = True
lbLeft.Caption = z / 1024
lbLeft.Refresh
lbCelkem.Caption = Format(z, "### ### ###.##") & " Kb"
Command1.Enabled = True
    For i = 0 To List1.ListCount - 1
           Fs = List2.List(i)
           With ProgressBar1
                .Value = 0
                .Min = 0
                .Max = Fs * 1.024
            End With
            Label1.Caption = "Downloading File: " & List1.List(i) & " / " & Fs & " bytù."
            Label1.Refresh
            lbCount.Caption = i + 1
            lbCount.Refresh
            Ode = Klic & List1.List(i)
            Kam = strPath & List1.List(i)
            frmmain.txtInfo.SelText = Time & " >Finishing File Transfer..." & vbCrLf & " > Downloading from: " & Ode & ", to: " & Kam & vbCrLf
            frmmain.StatusBar1.Panels(2).Text = "Transfering File.Please Wait....."
              hFile = FtpOpenFile(server, Ode, GENERIC_READ, FTP_TRANSFER_TYPE_BINARY, 0)
                 If hFile = 0 Then
                   MsgBox "Can't open file path!", vbExclamation, "Invaild URL"
                   frmmain.txtInfo.SelText = Time & " > Can't open file path! Request canceled!" & vbCrLf
                  Exit Sub
            End If
              sBuffer = Space(sReadBuffer)
              FileData = ""
              SentBytes = 0
              StartT = GetTickCount

                Do
                    InternetReadFile hFile, sBuffer, sReadBuffer, Ret
                    If Ret <> sReadBuffer Then
                        sBuffer = Left$(sBuffer, Ret)
                    End If
                    FileData = FileData + sBuffer
                    SentBytes = SentBytes + Ret
         

Ответить

Ответить