Marco to make list of attributes for directory of movie file

[mk000]

I am using the code below to put a list of file names in column A. Can anyone add to subsequent columns info on duration (run time), resolution, codecs used (audio or video), or anything else?
Thanks!
MK


Sub ListOfFiles()
Dim lCtr As Long, strFile As String
Const strMyDir As String = "D:\movies\"

With Sheet1
lCtr = 1
strFile = Dir(strMyDir)
Do Until strFile = ""
.Cells(lCtr, 1).Value = strFile
lCtr = lCtr + 1
strFile = Dir()
Loop
End With

End Sub

 

[mk000]

Anyone???? I want to add in columns with additional info... resolution, files size, audio and video codecs used if possible, runtime...etc