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

首頁 > 編程 > VBScript > 正文

VBS 顯示“選擇文件或文件夾”對話框的代碼

2019-10-26 18:04:33
字體:
來源:轉載
供稿:網友

一、顯示“選擇文件”的對話框

問: 嗨,Scripting Guy!有沒有什么方法可以讓我使用腳本向用戶顯示一個對話框,供用戶選擇文件使用?

答:您好。|
  如果您使用的是 Windows 2000,我們不知道實現此操作的方法,至少操作系統中沒有內置這樣的方法。
  但如果您使用的是 Windows XP,情況就不同了。在 Windows XP 上,您可以使用"UserAccounts.CommonDialog” 對象向用戶顯示一個標準的“文件打開”對話框。

      可以用類似以下代碼的腳本:

復制代碼 代碼如下:

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "All Files|*.*"
objDialog.InitialDir = "C:/"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
Wscript.Echo objDialog.FileName
End If

      這是一個小腳本,所以讓我們逐行進行解釋吧:

1)我們首先創建一個對 UserAccounts.CommonDialog 對象的對象引用(名為“objDialog”)。

2)接著,我們設置對話框的“篩選”屬性。我們要顯示所有文件,所以我們將篩選設置成這樣:
          objDialog.Filter = "All Files|*.*"

     假如我們只想顯示文本文件,那該怎么辦?在這種情況下,我們將使用以下篩選:
          objDialog.Filter = "Text Files|*.txt"

      您也許能夠看出它是如何運行的:我們為文件類型提供說明 (Text Files),然后插入一個豎線分隔符 (|),最后使用標準的通配符來指示所有 .txt 文件 (*.txt)。
      是不是想默認顯示 .txt 文件,然后為用戶提供查看所有文件的選項?那么可以使用以下代碼:
          objDialog.Filter = "Text Files|*.txt|All Files|*.*"

      試一試,您就明白我們的意思了。

3)然后,我們指定默認文件夾。
      默認情況下,我們希望對話框顯示位于驅動器 C 的根文件夾中的文件,所以我們這樣設置“InitialDir”屬性:
          objDialog.InitialDir = "C:/"

      希望顯示 C:/Windows 文件夾中的文件嗎?那么可以使用以下代碼:
          objDialog.InitialDir = "C:/Windows"

      不必擔心:這是一個真正的“文件打開”對話框,所以您可以隨意單擊,并且可以隨時停下來。您從 C:/Windows 開始并不意味著您只能打開該文件夾中的文件。

4)最后,我們使用下面這行代碼顯示對話框:

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 盱眙县| 阜城县| 克什克腾旗| 和顺县| 桂平市| 松阳县| 崇礼县| 耒阳市| 东港市| 尤溪县| 修武县| 锡林郭勒盟| 长海县| 通化县| 准格尔旗| 嘉荫县| 克什克腾旗| 杭锦后旗| 乌鲁木齐市| 车致| 琼中| 南平市| 留坝县| 大丰市| 衡山县| 城口县| 沂南县| 开阳县| 呈贡县| 饶河县| 公主岭市| 通城县| 蕲春县| 富裕县| 东阳市| 沂源县| 保靖县| 宝鸡市| 蒲江县| 阿巴嘎旗| 中超|