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 |
技术改变世界!
--狂诗绝剑