'zh159@bbs.cn-dos.net zh159@bbs.blueshow.net
Path = "D:\MP3"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Path)
For Each strFileName in objFolder.Items
name = objFolder.GetDetailsOf(strFileName, 0)
time_ = objFolder.GetDetailsOf(strFileName, 21)
if not time_ = "" then str = str & name & " = " & time_ & vbCrLf
Next
WScript.Echo str