会python真的可以为所欲为0(回)
353天前
这里还有人吗1(回)
538天前这里还有人吗0(回)
538天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
763天前到处都是羊，不想上班0(回)
843天前
鸽子
0(回)
847天前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 |
