winsocket send file

Hej.

Jeg sender filer med Inet  (msinet.ocx)  Dér kan du sende en fil uanset størrelse, du holder forbindelsen 'i liveø med:

Do While Inet1.StillExecuting
    DoEvents
Loop

Måske skal der noget lignende til med winsock.  Hele kodestumpen:

  herfil = netsti & "kunder.dat"
  webfil = "kun" & webnr & ".dat"
  Inet1.RequestTimeout = 60
 
  On Error GoTo ingenweb2
  Inet1.Execute , "PUT " & herfil & " " & webfil
 
  Do While Inet1.StillExecuting
      DoEvents
  Loop
     
  Inet1.Execute , "CLOSE"
  X = MsgBox("Data er overført.", 64, "Medd. fra 'Gem på websted'.")

M.v.h. Jørn

mit problem var at jeg ikke brugte :

    Do
        DoEvents
    Loop Until complete = True

Private Sub Winsock_SendComplete()
complete = True
End Sub

Hej.

Virker det så nu?

ja..