███████VB在一个文件夹下 获得后缀为txt 的文件名

如何用VB在一个文件夹下获得指定后缀为txt的文件名?在线求!... 如何用VB在一个文件夹下获得指定后缀为txt的文件名?
在线求!
展开
 我来答
yhu53603fd94fe
2009-03-11 · TA获得超过7838个赞
知道大有可为答主
回答量:7079
采纳率:55%
帮助的人:2841万
展开全部
Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String, sFiles() As String, Obj As Object) As Long
Static lFiles As Long '文件数目
Dim sDir As String
Dim sSubDirs() As String '存放子目录名称
Dim lIndex As Long
On Error Resume Next
If Right(sPath, 1) <> "\" Then sPath = sPath & "\" '判断是否有"\",如果没有则添加
sDir = Dir(sPath & sFileSpec, 33)
'获得当前目录下文件名和数目
Do While Len(sDir)
lFiles = lFiles + 1
ReDim Preserve sFiles(1 To lFiles)
sFiles(lFiles) = sPath & sDir
sDir = Dir
Obj.Caption = sPath & sDir
DoEvents
Loop

End Function
参考一下,不懂留言
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式