vb 的API这个PB怎么调？？FindFirstFile

entertcl 2003-09-15 10:02:16

FUNCTION ulong FindFirstFile(ref string lpFileName,ref WIN32_FIND_DATA lpFindFileData) LIBRARY "kernel32.dll" ALIAS FOR "FindFirstFileA"

VB是这样的

...全文

43 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

entertcl 2003-09-15

打赏
举报

FindFirstFile 成功后FindNextFile 通过什么接下去引用？？

entertcl 2003-09-15

打赏
举报

WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

是什么意思，在哪里声明？？

entertcl 2003-09-15

打赏
举报

在线等

不爱动的熊 2003-09-15

打赏
举报

FUNCTION ulong FindFirstFile(ref string lpFileName,ref WIN32_FIND_DATA lpFindFileData) LIBRARY "kernel32.dll" ALIAS FOR "FindFirstFileA"Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

找指定目录的所有文件,文件搜索，代码简单，不用api，纯pb代码。

说明：利用STL中的queue来存储文件夹名，文件，总共有两个队列，实现非递归来查找指定的文件。其实就是找到一个文件夹就加入文件夹队列，找到了指定文件就加入文件队列当在当前文件夹已经搜索完，就让文件夹队列里的队头文件夹名出队列。直到文件夹队列为空。结果放在d:\\scan_result.txt,你也可以自己修改输出的路径

FindFirstFile函数功能描述,及改函数的用法，示例代码

易语言API取文件目录列表源码,FindFirstFile,FindNextFile,FindClose

使用VC6.0控制台编写监视U盘插入，并且遍历U盘文件，作为初学者学习使用，结构明了，很多可以省略的地方我也按照标准模式写出来，方便初学者理解，大神绕道。（文件类型自己需要调试）