HJÆLP! Internet Transfer Control

Download af filer:

Inet1.AccessType = icUseDefault
Dim b() As Byte
Dim strURL As String

' Presuming this is still a valid URL.
strURL = "ftp://ftpserver.dk/" & _
"myfolder/myfile.fil"

' Retrieve the file as a byte array.
b() = Inet1.OpenURL(strURL, icByteArray)
 
Open "C:\mineftpfiler\myfile.fil" For Binary Access _
Write As #1
Put #1, , b()
Close #1



Hvis du vil hente Dir listen:

Inet1.Execute "DIR"
'Vent på svar
Do While Inet1.StillExecuting
  DoEvents
Loop

'Læs svaret
vtData = Inet1.GetChunk(1024, icString)
a$ = ""
Do While LenB(vtData) > 0
  a$ = a$ & vtData
  vtData = Inet1.GetChunk(1024, icString)
Loop
GetValues$ = a$

/Jennemaan

Mit problem er, at jeg ikke kender navnet på de filer som skal downloades eller hvor mange der er!!!

Hvis jeg bruger den nederste - Dir-listen - får jeg så listet alle filer som ligger i den folder?

jep

/Jennemaan

Har lige prøvet det og kan ikke få det til at virke!!! Kan godt hente (GET) en specific fil fra ftp-serveren, men hvis jeg bruger DIR til at liste alle filer i folderen, så er vtData = ""  ?????

Prøv følgende i en commandbutton event på en form hvor du har en Inet1 og en textboks: text1

Dim a As String
Dim vtData
Inet1.AccessType = icUseDefault
Inet1.Protocol = icFTP
Inet1.RemoteHost = "ftp.microsoft.com"


Inet1.Execute , "DIR"
'Vent på svar
Do While Inet1.StillExecuting
  DoEvents
Loop

'Læs svaret
vtData = Inet1.GetChunk(1024, icString)
a = ""
Do While LenB(vtData) > 0
  a = a & vtData
  vtData = Inet1.GetChunk(1024, icString)
Loop

Text1.Text = a

Du har simplethen reddet min dag :-) Det virkede på formen og da jeg tog den samme kode og lagde tilbage i modulet, så virkede det også der :-)

Så du får helt sikkert dine point.

Bare et sidste spørgsmål: variablen a som holder filnavnene er det et array eller hvad ? Hvordan looper jeg igennem det?

a er en string.

Hvis du vil have lavet den om til et array bruger du blot

arFiles=Split(a,vbcrlf)

/Jennemaan

Du er genial :-) :-) mange tak! Her er dine point