FtpFindFirstFile

See more:

VB

Internet

Alright, the issue is the FtpFindFirstFile command. My goal is to get a directory listing of the current directory on the mainframe server.
The command runs fine, but returns nothing. The connection is made fine, and I can use FtpGetFile to download a file. It abends when it gets to the setting of the variable "sFileName" because of the cFileName of pData being Nothing. The commented out Left command above it is the example I went off of to get it to work in VB.NET.

The real question here is why PDATA is not being populated with anything.

sFilter comes in with "*"
connect comes in with my connection number

I'm lost at this point.

Private Structure WIN32_FIND_DATA
       Public dwFileAttributes As Integer
       Public ftCreationTime As Long
       Public ftLastAccessTime As Long
       Public ftLastWriteTime As Long
       Public nFileSizeHigh As UInteger
       Public nFileSizeLow As UInteger
       Public dwReserved0 As Integer
       Public dwReserved1 As Integer
       Public cFileName As String
       Public cAlternate As String
   End Structure

Public Function GetDirectoryListing(ByVal sFilter As String, ByVal connect As Integer) As IList
        Dim hFind As Long
        Dim nLastError As Integer
        Dim dError As Integer
        Dim pData As WIN32_FIND_DATA
        Dim sFilename As String
        Dim mDirCol As IList = Nothing
        hFind = FtpFindFirstFile(connect, sFilter, pData, INTERNET_FLAG_RELOAD Or INTERNET_FLAG_NO_CACHE_WRITE, 0&)
        nLastError = Err.LastDllError
        If hFind = 0 Then
            If (nLastError <> ERROR_NO_MORE_FILES) Then
                MsgBox("oh snap")
                Me.Close()
            End If
            Return Nothing
            Exit Function
        End If
        dError = NO_ERROR
        Dim bRet As Boolean
        'sFilename = Left(pData.cFileName, InStr(1, pData.cFileName, "(1, 0)", vbBinaryCompare) - 1)
        sFilename = Mid(pData.cFileName, 1, InStr(1, pData.cFileName, "(1, 0)", vbBinaryCompare) - 1)