Hej Alle
Jeg har et program hvor jeg skal have uploadet flere billeder til en ftp server samtidig.
Jeg bruger følgende kode:
Dim fa_id As Integer
Dim b_id As Integer
fa_id = rs("id")
b_id = 1
For i = 1 To main_form.lstFiler.ListItems.Count
arrExt = Split(main_form.lstFiler.ListItems.Item(i).Text, ".")
For t = UBound(arrExt) To UBound(arrExt)
fil_ext = arrExt(t)
Next
localfil = main_form.lstFiler.ListItems.Item(i).SubItems(1) & main_form.lstFiler.ListItems.Item(i).Text
remotefil = "public_html\\materiale\\fotoalbum\\" & fa_id & "_" & b_id & "_billede." & fil_ext
InetFTP.Execute , "Put " & localfil & " " & remotefil
b_id = b_id + 1
Next
Den uploader den første fil som ligger i main_form.lstFiler og så kommer den med denne besked
Run-time error '35764':
Still executing last request
Hvad gør jeg forkert??