请教FINDFIRSTFILE,FINDNEXTFILE的问题

ajohnson 2003-08-30 06:48:58
请各位高手指点:
我想实现查找某文件夹下的所有同类型的文件,如(WIN98下WINDOWS文件夹中的所有INI文件,可是多个文件中只能查出2-3个INI文件,请问是为什么?
代码如下:
Dim lngReturn As Long
Dim strValue As String
Dim a As WIN32_FIND_DATA
Dim lngError As Long
lngReturn = FindFirstFile(Text1.Text, a)
Debug.Print lngReturn
Debug.Print a.dwFileAttributes
If lngReturn <> -1 Then
strValue = Left(a.cFileName, InStr(1, a.cFileName, Chr(0)) -1)
Text2 = strValue
End If

'继续查找下一个文件

If lngReturn <> -1 Then
Do While lngReturn <> 0
lngReturn = FindNextFile(lngReturn, a)
lngError = GetLastError
strValue = Left(a.cFileName, InStr(1, a.cFileName, Chr(0)) -1)
Text2 = Text2 & Chr(13) & strValue
Loop
End If

结果是WINDOWS下有很多INI文件,如WIN.INI.SYSTEM.INI.NETX.INI等,返回结果却只有一两个INI,问题出在哪里?

另外有问题请教:
If GetFileAttributes(path & DirName) And FILE_ATTRIBUTE_DIRECTORY then
是什么意思:
是当getfileattributes(path & dirname)的值返回为非0,也就是TRUE ,同时
LE_ATTRIBUTE_DIRECTORY的值也是非0时,才执行有关语句,还是怎么理解?
...全文
52 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
ajohnson 2003-08-31
  • 打赏
  • 举报
回复
不是啊,所有的INI都为ARCHIEVE属性,可是不知道为什么
sworddx 2003-08-30
  • 打赏
  • 举报
回复
是不是隐藏文件没搜索?

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧