FTP download a number of files with same extension

I am creating a ftp application which will download some files on the server with the same extension (*.ack). I am using WinInet API to implement the ftp and using FileSystemObject to access the files on the server. However, i do not know how to automate the downloading of a number of .ack files from the server, meaning when the .ack files are available on the server side, the program will download them one by one onto local machine. Please help.

See if this can help:

' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
MyName = Dir ' Get next entry
Do While MyName <> "" ' Start the loop.
' Use bitwise comparison to make sure MyName is Not a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) <> vbDirectory Then
If Right(MyPath & MyName, 4) = ".ack" then
' copy your file here
End If
End If
MyName = Dir ' Get next entry
Loop