获取文件夹内文件名不准确，望找错！

ynjxw

以下代码是获取某文件夹内文件名并写入表的代码，但是每次都少一条记录（也就是少一个文件名），我检查了N遍，还是找不到错在哪里？求帮忙！

Function GetFileList(strFilePathName As String) As String        
Dim strDir As String
    If Dir(strFilePathName) = "" Then
        GetFileList = ""
        Exit Function
    End If
    strDir = Dir(strFilePathName)
    Do
    strDir = Dir
        i = i + 1
        If strDir = "" Then Exit Do
        Dim rs As DAO.Recordset
        Set rs = CurrentDb.OpenRecordset("select * from 调取文件名;")
        With rs
            .AddNew
            !文件名 = Mid(strDir, 1, InStr(strDir, ".") - 1)
            !文件类型 = Mid(strDir, InStr(strDir, ".") + 1, Len(strDir))
            .Update
        End With
                rs.Close
        Set rs = Nothing
    Loop
End Function

hjb016

你这个代码的do loop是干嘛用的呢?好像没发现什么问题.是不是还有其他的代码

t小宝

strDir = Dir(strFilePathName)
这一行已经找到一个文件了，下面
Do
    strDir = Dir
就到第二个了

ynjxw

哦，原来是这样

ynjxw

怎样分离最后一个“.”后面的内容（也就是后缀）。
用  Mid(strDir, InStr(strDir, ".") + 1, Len(strDir))  如果文件名中包含“.”的话就会发生分离的数据错误  

hjb016

一般我是倒循环字符串,找最后一个斜杠"\"

ynjxw

可以讲详细点吗？或例子（代码）

hjb016

for j=len(strDir) to 1 step -1
       if mid(strDir,j,1)="." then
              !文件名 = Mid(strDir, 1, j- 1)
              !文件类型 = Mid(strDir, j + 1)         
              exit for
       end if
next

hjb016

我觉得你那个循环,好像没必要用的.你一次就传一个参数过来.有必要循环吗?

ynjxw

感谢！