VBS 文件选择框,选择Excel文件

VBS 文件选择框,选择Excel文件

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
上一篇:JSTL中<c:set>标签的用法


下一篇:类库探源——System.Exception