Locate a File Using a File Open Dialog Box

ttx9n

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 

btbhs8t

这个源码不错啊

gyalp

啦啦啦啦啦德玛西亚

a75620618

还可以不错

mkonji

啦啦啦啦啦啦哈哈哈

errol123

谢谢分享，先下来用用

70r45_zs

啪啪啪生怕PSP怕

lsc54

还有什么好东西没

7jbiiz

啦啦啦啦啦啦啦啦！

rveqwdpw5

谢谢您的分享！