如何使用vba获取一个文件夹下所有视频文件的总长度

weiyingde

这么说，不能统计时长，与音视频文件格式无关，是吗?是由于文件本身无时长属性是吗？

早睡不早起

Shell32太强大了，可以获取所有的属性，学习了，感谢。

韦杰强

赞一个 留着日后需要的时候看

amoygirl

duquancai 发表于 2017-10-11 02:07
Sub GetFileDuration()
    Dim O As Object, fd As Object, F As Object
    Set O = CreateObject("S ...

请教，使用F.Name得到的是一个不带后缀的文件名，这要怎么变成带有后缀的呢？？

zhihaizhiai

duquancai 发表于 2017-10-12 18:19
Sub GetFileDuration()
    Dim O As Object, fd As Object, F As Object
    Set O = CreateObject("S ...

照着您这个试成功了。还有2个问题请教您：1.如何让文件夹是选取的，而不是固定的"F:\音视频\汽车音乐\新歌6")。2.如果这个文件夹下还有子文件夹，子文件夹中也有很多视频文件，怎么一并读出来。

x-xx-xx

weiyingde 发表于 2017-10-12 21:40
这么说，不能统计时长，与音视频文件格式无关，是吗?是由于文件本身无时长属性是吗？

我电脑要把时长改为长度,仅供参考

x-xx-xx

1. Sub S110_()
   
2.     '
   
3.     Dim 编号01_Shell
   
4.     Dim 编号02_文件夹
   
5.     Dim 编号03_文件
   
6.     Dim 编号04_第几个标题
   
7.     Dim 编号05_标题
   
8.     Dim 编号06_
   
9.     Dim 编号07_
   
10.     Dim 编号08_
    
11.     Dim 编号09_
    
12.     Dim 编号10_
    
13.     '
    
14.     Set 编号01_Shell = CreateObject("Shell.Application")
    
15.     Set 编号02_文件夹 = 编号01_Shell.Namespace("D:\BaiduNetdiskDownload\新建文件夹")
    
16.     '
    
17.     For Each 编号03_文件 In 编号02_文件夹.Items
    
18.         '
    
19.         编号04_第几个标题 = 0
    
20.         '
    
21.         Do While 编号04_第几个标题 < 100
    
22.             '
    
23.             编号04_第几个标题 = 编号04_第几个标题 + 1
    
24.             '
    
25.             编号05_标题 = 编号02_文件夹.GetDetailsOf(编号02_文件夹.Items, 编号04_第几个标题)
    
26.             '
    
27.             If 编号05_标题 = "长度" And 编号02_文件夹.GetDetailsOf(编号03_文件, 编号04_第几个标题) <> "" Then
    
28.                 '
    
29.                 MsgBox 编号03_文件.Name & "文件的时长：" & 编号02_文件夹.GetDetailsOf(编号03_文件, 编号04_第几个标题)
    
30.                 '
    
31.                 Exit Do
    
32.                 '
    
33.             End If
    
34.             '
    
35.         Loop
    
36.         '
    
37.         If 编号04_第几个标题 = 100 Then
    
38.             '
    
39.             MsgBox 编号03_文件.Name & "文件无时长属性值！"
    
40.             '
    
41.         End If
    
42.         '
    
43.     Next
    
44.     '
    
45. End Sub
    

复制代码

1. Sub S111_()
   
2.     '------------------------------------------------------------
   
3.     Dim 编号01_Shell
   
4.     Set 编号01_Shell = CreateObject("Shell.Application")
   
5.     'Dim 编号01_Shell As New Shell32.Shell
   
6.     Dim 编号02_文件夹
   
7.     Dim 编号03_文件集合
   
8.     Dim 编号04_标题
   
9.     Dim 编号05_第几个标题
   
10.     Dim 编号06_标题个数
    
11.     Dim 编号07_数组()
    
12.     Dim 编号08_文件个数
    
13.     Dim 编号09_文件
    
14.     Dim 编号10_第几个文件
    
15.     Dim 编号11_数组()
    
16.     Dim 编号12_文件名称
    
17.     Dim 编号13_第几列
    
18.     Dim 编号14_
    
19.     Dim 编号15_
    
20.     Dim 编号16_
    
21.     Dim 编号17_
    
22.     Dim 编号18_
    
23.     Dim 编号19_
    
24.     Dim 编号20_
    
25.     '------------------------------------------------------------
    
26.     Set 编号02_文件夹 = 编号01_Shell.Namespace("D:\BaiduNetdiskDownload\新建文件夹")
    
27.     Set 编号03_文件集合 = 编号02_文件夹.Items
    
28.     编号08_文件个数 = 编号03_文件集合.Count
    
29.     '------------------------------
    
30.     编号06_标题个数 = 0
    
31.     '
    
32.     For 编号05_第几个标题 = 1 To 800 Step 1
    
33.         '
    
34.         编号04_标题 = 编号02_文件夹.GetDetailsOf(编号03_文件集合, 编号05_第几个标题)
    
35.         '
    
36.         If 编号04_标题 = "" Then
    
37.             '退出循环
    
38.             '
    
39.             Exit For
    
40.             '
    
41.         Else
    
42.             '继续
    
43.             '
    
44.             编号06_标题个数 = 编号06_标题个数 + 1
    
45.             '
    
46.         End If
    
47.         '
    
48.     Next
    
49.     '------------------------------
    
50.     Erase 编号11_数组
    
51.     ReDim Preserve 编号11_数组(1 To 1, 1 To 编号06_标题个数)
    
52.     '------------------------------
    
53.     编号06_标题个数 = 0
    
54.     '
    
55.     For 编号05_第几个标题 = 1 To 800 Step 1
    
56.         '
    
57.         编号04_标题 = 编号02_文件夹.GetDetailsOf(编号03_文件集合, 编号05_第几个标题)
    
58.         '
    
59.         If 编号04_标题 = "" Then
    
60.             '退出循环
    
61.             '
    
62.             Exit For
    
63.             '
    
64.         Else
    
65.             '继续
    
66.             '
    
67.             编号06_标题个数 = 编号06_标题个数 + 1
    
68.             '
    
69.             编号11_数组(1, 编号06_标题个数) = 编号04_标题
    
70.             '
    
71.         End If
    
72.         '
    
73.     Next
    
74.     '------------------------------
    
75.     'Worksheets("1").Activate
    
76.     'Worksheets("1").Cells.ClearContents
    
77.     'Worksheets("1").Range("B1").Resize(UBound(编号11_数组, 1), UBound(编号11_数组, 2)) = 编号11_数组
    
78.     '------------------------------------------------------------
    
79.     Erase 编号07_数组
    
80.     ReDim Preserve 编号07_数组(1 To 编号08_文件个数 + 1, 1 To 编号06_标题个数 + 1)
    
81.     '------------------------------
    
82.     For 编号13_第几列 = 1 To UBound(编号11_数组, 2) Step 1
    
83.         '
    
84.         编号07_数组(1, 编号13_第几列 + 1) = 编号13_第几列 & "." & 编号11_数组(1, 编号13_第几列)
    
85.         '
    
86.     Next
    
87.     '
    
88.     'Worksheets("1").Activate
    
89.     'Worksheets("1").Cells.ClearContents
    
90.     'Worksheets("1").Range("A1").Resize(UBound(编号07_数组, 1), UBound(编号07_数组, 2)) = 编号07_数组
    
91.     '------------------------------------------------------------
    
92.     编号10_第几个文件 = 0
    
93.     '
    
94.     For Each 编号09_文件 In 编号03_文件集合
    
95.         '
    
96.         编号10_第几个文件 = 编号10_第几个文件 + 1
    
97.         '
    
98.         编号12_文件名称 = 编号09_文件.Name
    
99.         编号07_数组(编号10_第几个文件 + 1, 1) = 编号12_文件名称
    
100.         '
     
101.     Next
     
102.     '------------------------------
     
103.     'Worksheets("1").Activate
     
104.     'Worksheets("1").Cells.ClearContents
     
105.     'Worksheets("1").Range("A1").Resize(UBound(编号07_数组, 1), UBound(编号07_数组, 2)) = 编号07_数组
     
106.     '------------------------------------------------------------
     
107.     编号10_第几个文件 = 0
     
108.     '
     
109.     For Each 编号09_文件 In 编号03_文件集合
     
110.         '
     
111.         编号10_第几个文件 = 编号10_第几个文件 + 1
     
112.         '
     
113.         '编号12_文件名称 = 编号09_文件.Name
     
114.         '编号07_数组(编号10_第几个文件 + 1, 1) = 编号12_文件名称
     
115.         '
     
116.         For 编号05_第几个标题 = 1 To 编号06_标题个数 Step 1
     
117.             '
     
118.             编号04_标题 = 编号02_文件夹.GetDetailsOf(编号09_文件, 编号05_第几个标题)
     
119.             '
     
120.             编号07_数组(编号10_第几个文件 + 1, 编号05_第几个标题 + 1) = 编号04_标题
     
121.             '
     
122.         Next
     
123.         '
     
124.     Next
     
125.     '------------------------------
     
126.     Worksheets("1").Activate
     
127.     Worksheets("1").Cells.ClearContents
     
128.     Worksheets("1").Range("A1").Resize(UBound(编号07_数组, 1), UBound(编号07_数组, 2)) = 编号07_数组
     
129.     '------------------------------------------------------------
     
130. End Sub
     

复制代码

yishang3

duquancai 发表于 2017-10-12 18:19
Sub GetFileDuration()
    Dim O As Object, fd As Object, F As Object
    Set O = CreateObject("S ...

好代码，学习了！如果要增加遍历文件夹和子文件夹该如何写呢？