XPost: microsoft.public.access   
   From: clare.moe@nevergmail.com.invalid   
      
   Rico - sounds like you're making a reasonable presumed diagnosis ...   
   Have you looked for forums targeted to using APIs? I have extremely   
   limited experience working with APIs; I do recall having had some   
   success using advanced google searching of microsoft.com for   
   documentation of API calls in the past.   
      
   Happy Hunting!   
   --   
   Clif   
      
   "Rico"  wrote in message   
   news:DMzpm.44220$PH1.33225@edtnps82...   
   > Anyone?  Any clues at all?   
   >   
   > "Rico"  wrote in message   
   > news:DLwnm.43507$PH1.7095@edtnps82...   
   >> Hi All,   
   >>   
   >> I have an FTP routine in my A2K2 database that I am using to transfer   
   >> files. When I call the FtpFindFirstFile API, I get an error 12002   
   >> which is a timeout error.  I've removed the timeout from the FTP   
   >> server, but I still get this error.  I read that the files can can   
   >> only be enumerated once using this function and if it's called again,   
   >> it will produce an error.  I think this is what is happening, since   
   >> when I close the database and re-open it, I can run this function for   
   >> the first time without issue.   
   >>   
   >> My question is, how do I tell if the files / folders have been   
   >> enumerated once already and how can I reset this so I can enumerate   
   >> again?  This is the function that is giving me problems;   
   >>   
   >> Public Sub GetFileNames(Optional pRemoteDir, Optional pFileSpec)   
   >> 'Fill the FileNames collection with list   
   >> 'of files matching pFileSpec from server's   
   >> 'current directory   
   >>   
   >>    Dim hFind As Long   
   >>    Dim LastErr As Long   
   >>    Dim fdata As WIN32_FIND_DATA   
   >>    '   
   >>    'Bail out if server connection not established   
   >>    If m_hCon = 0 Then RaiseError errNotConnected   
   >>    '   
   >>    'Handle optional parameters   
   >>    If Not IsMissing(pRemoteDir) Then m_RemoteDir = pRemoteDir   
   >>    If Not IsMissing(pFileSpec) Then m_FileSpec = pFileSpec   
   >>    '   
   >>    'Handle empty properties   
   >>    If Len(m_RemoteDir) = 0 Then m_RemoteDir = "."   
   >>    If Len(m_FileSpec) = 0 Then m_FileSpec = "*.*"   
   >>    '   
   >>   
   >>    ClearFileNames   
   >>   
   >>    'Change directory on server   
   >>    Me.SetDir m_RemoteDir   
   >>    '   
   >>    'Find first file matching FileSpec   
   >>    fdata.cFileName = String(MAX_PATH, 0)   
   >>    'Obtain search handle if successful   
   >>    'FtpSetCurrentDirectory m_hCon, "."   
   >>   
   >>    hFind = FtpFindFirstFile(m_hCon, m_FileSpec, fdata, 0, 0)   
   >>    LastErr = Err.LastDllError   
   >>    If hFind = 0 Then   
   >>        'Bail out if reported error isn't end-of-file-list   
   >>        If LastErr <> ERROR_NO_MORE_FILES Then   
   >>            RaiseError errFindFirst   
   >>        End If   
   >>        'Must be no more files   
   >>        Exit Sub   
   >>    End If   
   >>    '   
   >>    'Reset variable for next call   
   >>    LastErr = NO_ERROR   
   >>    '   
   >>    'Add filename to the collection   
   >>    FileNames.Add Left(fdata.cFileName, _   
   >>        InStr(1, fdata.cFileName, vbNullChar, vbBinaryCompare) - 1)   
   >>    Do   
   >>        'Find next file matching FileSpec   
   >>        fdata.cFileName = String(MAX_PATH, 0)   
   >>        If InternetFindNextFile(hFind, fdata) = False Then   
   >>            LastErr = Err.LastDllError   
   >>            If LastErr = ERROR_NO_MORE_FILES Then   
   >>                'Bail out if no more files   
   >>                Exit Do   
   >>            Else   
   >>                'Must be a 'real' error   
   >>                InternetCloseHandle hFind   
   >>                RaiseError errFindNext   
   >>            End If   
   >>        Else   
   >>            'Add filename to the collection   
   >>            FileNames.Add Left(fdata.cFileName, _   
   >>                InStr(1, fdata.cFileName, vbNullChar,   
   >> vbBinaryCompare) - 1)   
   >>       End If   
   >>    Loop   
   >>    '   
   >>    'Release the search handle   
   >>    InternetCloseHandle hFind   
   >>   
   >> End Sub   
   >>   
   >> Thanks!   
   >> Rick   
   >>   
   >>   
   >   
   >   
      
      
      
   --   
   Clif   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)