联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
'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