Get all videos in argument path and output file size and video length

VideoLength.vbs

set objShell = CreateObject("shell.application")
set objFolder = objShell.NameSpace(Wscript.Arguments(0))

For Each fileName in objFolder.Items
	set objFolderItem = objFolder.ParseName(fileName)
	size = objFolder.GetDetailsOf(objFolderItem, 1)
	length = objFolder.GetDetailsOf(objFolderItem, 27)
	height = objFolder.GetDetailsOf(objFolderItem, 283)
	width  = objFolder.GetDetailsOf(objFolderItem, 285)
	Wscript.Echo fileName & vbTab & size & vbTab & length & vbTab & height & vbTab & width
Next