Does anyone know the best way to get a list of files in a directory?

Currently I am using the following, but am getting an error occasionally...

    strDirPath = GetUserSetting("Import_Folder")

    If Right$(strDirPath, 1) <> "\" Then
        strDirPath = strDirPath & "\"
    End If

    If GetAttr(strDirPath) = vbDirectory Then
        strFileName = Dir(strDirPath, vbDirectory)
        Do Until Len(strFileName) = 0
            ' Exclude ".", "..".
            If (strFileName <> ".") And (strFileName <> "..") Then
                ' Make sure we do not have a sub-directory name.
                If (GetAttr(strDirPath & strFileName) _
                    And vbDirectory) <> vbDirectory Then

                    Set rs = New ADODB.Recordset
                    strSQL = "SELECT file_PK FROM D_Files WHERE file_FilePath = '" & strDirPath & strFileName & "'"
                    rs.Open strSQL, cn
                    If rs.BOF And rs.EOF Then
                        LoadFile (strDirPath & strFileName)
                    End If
                End If
            End If
            strFileName = Dir()
        Loop
    End If

I got it from the Microsoft Site - in case anyone is wondering.

Thanks

Mike
EchoVue.com

__________________
Mike
EchoVue.com

What line gets the error?

You might also want to check this out:

search drive



Boyd
"Hi Tech Coach"
Access Based Accounting/Business Solutions developer.
http://www.officeprogramming.com