首页 > 开发 > JS > 正文

Locate a File Using a File Open Dialog Box

2024-09-06 12:42:10
字体:
来源:转载
供稿:网友
Demonstration script that displays a File Open dialog box (open to the folder C:/Scripts), and then echoes back the name of the selected file.  Supported Platforms

Windows Server 2003
 No

Windows XP
 Yes

Windows 2000
 No

Windows NT 4.0
 No

Windows 98
 No


Script Code

代码如下:
Set objDialog = CreateObject("UserAccounts.CommonDialog") 

objDialog.Filter = "VBScript Scripts|*.vbs|All Files|*.*" 
objDialog.FilterIndex = 1 
objDialog.InitialDir = "C:/Scripts" 
intResult = objDialog.ShowOpen 

If intResult = 0 Then 
    Wscript.Quit 
Else 
    Wscript.Echo objDialog.FileName 
End If 
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表