Inet execute method using LS for list

[hovercraft]

Sorry to be a pain, but I've looked for some documention on using inet ( msinet.ocx ) and have come up all but empty.
I'm trying to use inet to get a list of all files in a directory on a ftp server.

I'm using the following code to upload to the server and was wondering how the syntax should look to use ls instead of put or get.

Function UploadFile(ByVal HostName As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal LocalFileName As String, _
ByVal RemoteFileName As String) As Boolean
On Error GoTo ErrHandler

Dim FTP As Inet

Set FTP = New Inet
With FTP
.Protocol = icFTP
.RemoteHost = HostName
.UserName = UserName
.Password = Password
.Execute .URL, "Put " + LocalFileName + " " + RemoteFileName
Do While .StillExecuting
DoEvents
Loop
UploadFile = (.ResponseCode = 0)
End With

ExitHere:
On Error Resume Next
Set FTP = Nothing
Exit Function
ErrHandler:
Debug.Print Err, Err.Description
Resume ExitHere
End Function

Any assistance would be appreciated.
Thanks,
Hovercraft

 

[PHV]

The ftp syntax is:
ls remote-directory local-file

Note: be sure that the interactive prompting is off.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hovercraft]

Thanks PH,

If I understand, this would be:

Function GetFileList(ByVal HostName As String, _
ByVal UserName As String, _
ByVal Password As String, _
ByVal LocalFileName As String, _
ByVal RemoteDirectoryName As String) As Boolean
On Error GoTo ErrHandler

Dim FTP As Inet

Set FTP = New Inet
With FTP
.Protocol = icFTP
.RemoteHost = HostName
.UserName = UserName
.Password = Password
.Execute .URL, "ls " + RemoteDirectoryName + " " + LocalFileName
Do While .StillExecuting
DoEvents
Loop
ListFile = (.ResponseCode = 0)
End With

ExitHere:
On Error Resume Next
Set FTP = Nothing
Exit Function
ErrHandler:
Debug.Print Err, Err.Description
Resume ExitHere
End Function

 

[hovercraft]

I have found some info over at microsoft. They suggest to use "Dir" and then to use .GetChunk in order to get the file names.

I'm completely lost on this one.
How would I use .GetChunk inside of a function that only returns a boolean?

What I'm ultimatly trying to accomplish is just to copy all files from a ftp directory.

any suggestions?

Thanks,
Hovercraft

 

[PHV]

copy all files from a ftp directory
What about mput (or mget) ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hovercraft]

Well, see that seems to be my problem. I'm not sure if I can simply replace

.Execute .URL, "Put " + LocalFileName + " " + RemoteFileName

with

.Execute .URL, "MGet"

Is that all I have to do?

 

[PHV]

I'd try this:
.Execute .URL, "MGet *"

note: be sure that the interactive prompting is off

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[hovercraft]

Inet doesn't support MGet.

Do you have any other suggestions?