excel查找文件夹里子文件夹里是否有视频文件

想请教一下如下要求要怎么实现

2025-04-27 03:53:02

推荐回答（1个）

回答1：

如题，现在想计算所有视频文件的总长度，我不想一个个地加，我觉得vba应该能解决此问题，请大家帮帮忙。
请参考：
Function GetFolderSize(FolderSpec As String) As Long
Dim FSO As Object
Dim F As Object
Dim F1 As Object
Dim FC As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(FolderSpec)
Set FC = F.Files
For Each F1 In FC
If InStr(1, F1.Name, ".WMV", vbTextCompare) Then
GetFolderSize = GetFolderSize + F1.Size
End If
Next
End Function
Sub Example()
MsgBox GetFolderSize("F:\Pictures\Microsoft") & "byte"
End Sub