VB获取指定文件下指定后缀文件的个数代码,VB.Net代码库,德仔网

代码语言

代码分类

【VB.Net】 VB获取指定文件下指定后缀文件的个数

作者: / 发布于2011/1/12/ 1399

<div>
Private Sub iCount(ByVal fileFolder As String, ByVal fileSuffix As String)
On Error Resume Next
Dim sSave As String, Ret As Long, r As Long, rtn As Long, iFile As Long
Dim fol, fso, fil, fils, s, f, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder(fileFolder) '文件夹名字及路径
Set fils = fldr.Files
iFile = 0
Me.Cls
For Each fil In fils
s = s & fil.Name
aa = midstr & "\" & fil.Name
If Right(aa, 7) = fileSuffix Then
songname = aa
i = InStrRev(songname, "\")
If i > 0 Then
bb = Mid(songname, i + 1) ' 获取文件名
Print bb
iFile = iFile + 1
End If
End If
Next
MsgBox "共有" & Str(iFile) & " 个" & fileSuffix & "文件"
End Sub

</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　后缀文件　

同语言下

可能有用的

贡献的其它代码Label