国产探花免费观看_亚洲丰满少妇自慰呻吟_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 

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 新巴尔虎左旗| 田林县| 东至县| 萍乡市| 德江县| 泾阳县| 旌德县| 济南市| 绥德县| 平原县| 乐至县| 沙湾县| 玛纳斯县| 英吉沙县| 新丰县| 黄石市| 日照市| 遂川县| 青冈县| 拉萨市| 巨野县| 互助| 海丰县| 敦煌市| 蓬莱市| 西华县| 牟定县| 都昌县| 合江县| 开阳县| 山阳县| 临安市| 泗阳县| 彰化县| 精河县| 资源县| 龙岩市| 清镇市| 江孜县| 咸阳市| 鄂温|