
CODE: [Copy to clipboard]'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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |