
| Quote: | |
|
CODE: [Copy to clipboard]发现文本文件可以直接调用记事本打开,其他的如压缩文件以及长文件名的Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
objDialog.Flags = &H020
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
'Wscript.Echo objDialog.FileName
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run objDialog.FileName ,,true
End If
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |