Тема: VBS: сортировка по длительности видеофайлов
Решил сделать сортировку по длительности видеофайлов. Вот длительность видеофайла я получил
For Each File in Folder.Files
Set oFileDetailsReader = New cFileDetailsReader
With oFileDetailsReader
.OpenFile File
dlit= .GetDetail(27)
End With
Next
Class cFileDetailsReader
Private oFSO, oShellApp, oFolder3, oFolderItem
Private Sub Class_Initialize()
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShellApp = CreateObject("Shell.Application")
End Sub
Sub OpenFile(FilePath)
With oFSO.GetFile(FilePath)
Set oFolder3 = oShellApp.NameSpace(.ParentFolder.Path)
Set oFolderItem = oFolder3.ParseName(.Name)
End With
End Sub
Function GetDetail(Index)
GetDetail = oFolder3.GetDetailsOf(oFolderItem,Index)
End Function
Function GetDetailName(Index)
GetDetailName = oFolder3.GetDetailsOf(0,Index)
End Function
End Class
а как сравнить с заданной величиной не пойму. Наверно, надо преобразовать полученную длительность в секунды, а потом сравнивать. Но как преобразовать в секунды?