[DllImport("wininet.dll", SetLastError = true, CharSet = CharSet.Auto)]
static extern IntPtr FtpFindFirstFile(IntPtr hConnect,
string searchFile, ref WIN32_FIND_DATA findFileData,
int flags, IntPtr context);
Declare Function FtpFindFirstFile Lib "wininet.dll" _
(ByVal hConnect As IntPtr, ByVal searchFile As String, _
ByRef findFileData As WIN32_FIND_DATA, ByVal flags As Integer, _
ByVal context As IntPtr) As IntPtr
None.
For VB.net FtpFindFirstFile will {or May} return the folder and not a file.
Using
bRet = InternetFindNextFile(hFind, pData)
after FtpFindFirstFile will then return a file. For VAX servers the return string
may contain other information e.g. Date modified. This means you will need to parse
the text to just get the file name. Placeing the InternetFindNextFile in a do loop
will allow you to obtain a list of all the files in the server folder.
Note pData here is the storage defined by WIN32. I have placed
the structure I used in this structure information page.
Do
'
bRet = InternetFindNextFile(hFind, pData)
'
If Not bRet Then
Procces the error here and quit
Else
Pos = InStr(pData.cFileName, " ") ' The file name should be at the start of the line
If Pos > 0 Then
strItemName = Trim(Left(pData.cFileName, Pos)) ' Get the file name
End If
' Add the name to a list - Could be a list box as below or Text box
Form1.List_Files.Items.Add(strItemName)
Loop
'
InternetCloseHandle(hFind) ' close the handle.
End Sub
Do you know one? Please contribute it!
Direct Link: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wininet/wininet/FtpFindFirstFile.asp