
CODE: [Copy to clipboard]Set oOFS=WScript.CreateObject("Scripting.FileSystemObject")
Set mydir=oOFS.GetFolder("D:\10000")
Set myfiles=mydir.Files
For Each file In myfiles
If LCase(Right(file.name,3))="txt" Then MsgBox file.Name
Next
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |