<<< 返回 access911.net 编程静态资料库索引页

如何实现遍历文件夹中的所有文件

 

作者:cg1  摘自:  录入:cg1  时间:2003-4-20  浏览人次:1814


专题地址:http://access911.net/fixhtm/74FAB21E13DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


如何实现遍历文件夹中的所有文件

--------------------------------------------------------------------------------
把下面放到模块中
Option Explicit


Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
(ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
(ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long


Public Const MAX_PATH = 260
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public C.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/74FAB21E13DC.htm

 


上一篇:API调用公共对话框(Common Diaglog)文件属性/打印端口/颜色/复制磁盘/格式化磁盘

下一篇:如何让你的程序在任务列表隐藏 

2017年2月22日生成静态资料