请教FINDFIRSTFILE,FINDNEXTFILE的问题
请各位高手指点:
我想实现查找某文件夹下的所有同类型的文件,如(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时,才执行有关语句,还是怎么理解?