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

如何得到某个目录下所有的文件名?

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-9-7  浏览人次:2333


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

 

简述:

 


问题:

如何得到某个目录下所有的文件名?

 

方法一:

可以用 dir 函数
' 以下举例如何获取某个目录下所有的excel文件名

Private Sub Command1_Click()
    Dim ff() As String
    Dim fn As Long
    Dim i As Long
    
    fn = TreeSearch("c:\", "*.xls", ff())
    
    Debug.Print "找到文件数目为" & fn
    For i = 1 To fn
        Debug.Print ff(i)
    Next
End Sub

'===========================================================
' 过程及函数名:  TreeSearch
' 版本号      :  --
' 说明        :  本过程利用归递DIR获取当前目录及所有子目录的文件名
' 引用        :  --
' 输入参数    :  sPath ,字符串,起始路径
'             :  sFileSpec ,字符串,文件扩展名匹配
'         .....................
...........

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

 


上一篇:如何关闭iis服务器缓存?

下一篇:Excel如何根据某单元格的文字表达式(公式)计算出结果?

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