国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > 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 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 呼图壁县| 新丰县| 边坝县| 定兴县| 望城县| 万山特区| 义乌市| 房产| 如东县| 玉环县| 武隆县| 岳西县| 金溪县| 天水市| 灵台县| 大冶市| 剑阁县| 灵宝市| 鲁山县| 桐乡市| 丰台区| 杂多县| 双城市| 班玛县| 南京市| 莱芜市| 区。| 轮台县| 河西区| 台州市| 松阳县| 新昌县| 松江区| 乾安县| 宁远县| 昌吉市| 张北县| 河间市| 宿迁市| 花垣县| 广安市|