|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
on error resume
Next
Set
objDialog=CreateObject(
"UserAccounts.CommonDialog"
)
objDialog.Filter=
"仅支持xls格式文件|*.xls"
objDialog.InitialDir="C:\"
intResult=objDialog.ShowOpen
If
intResult=0
Then
Wscript.Quit
Else
If
Right(objDialog.FileName,3)=
"xls"
Then
Wscript.Echo objDialog.FileName
Else
Wscript.Echo
"你选择的文件格式不支持"
Wscript.Quit
End
If
End
If
|
