请教高手,用什么函数或方法能得到已知文件夹下的未知文件名啊?谢谢回答!! (zjn12 )

zjn12 2003-12-11 11:17:14
内容如上:
...全文
50 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
zyl910 2003-12-11
  • 打赏
  • 举报
回复
未知文件名???

你通过什么标准判定什么是“未知文件名”
zjn12 2003-12-11
  • 打赏
  • 举报
回复
谢谢,帮助,我试试
SoHo_Andy 2003-12-11
  • 打赏
  • 举报
回复
'查找特定路径下某种类型文件,将名称保存在数组中,Ubound(数组)的值即为文件个数
Sub aaa()
Dim strFileName() As String
Dim FileName As String
Dim j As Long
j = -1
FileName = Dir(你的路径 & "*.*")
Do While FileName <> ""
If FileName <> "." And FileName <> ".." Then
j = j + 1
ReDim Preserve strFileName(j + 1)
strFileName(j) = FileName
End If
FileName = Dir ' 查找下一个文件。
Loop
End Sub
'搜索文件夹
Public Sub ShowFloder(strDir As String, objDir As Object)
On Error Resume Next
Dim lngCount As Long
Dim i As Long
Dim strPath As String


With objDir
.Path = strDir
lngCount = .ListCount
For i = 0 To lngCount - 1
.Path = strDir

strPath = .List(i) ''取得当前子目录

'获得一个目录字符串
'可以在此调用查找文件函数

Call ShowFloder(strPath, objDir) ''递归寻找
Next
End With
End Sub

7,785

社区成员

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

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