vbs選擇文件夾效果代碼
來源:易賢網(wǎng) 閱讀:1432 次 日期:2016-07-21 14:27:17
溫馨提示:易賢網(wǎng)小編為您整理了“vbs選擇文件夾效果代碼”,方便廣大網(wǎng)友查閱!

不用組件的話有兩種辦法:

set objFile = CreateObject("SAFRCFileDlg.FileOpen")

Set objShell = CreateObject("Shell.Application")

本blog里都有示例。

如果調(diào)用vb組件,可以是:

flag = &h200

whichone = OpenFile("Choose a File!", "C:\", "Everything|*.*|TextFiles|*.TXT|Word-Documents|*.DOC", 2, flag)

MsgBox "Raw data returned: " & whichone

' Split up multi selection result:

' space is used as separator:

whichone = Split(whichone, " ")

' field index 0 contains path information:

path = whichone(0)

' list all the files:

' how many files were selected?

filecount = UBound(whichone)

if filecount=0 then

' just one file selected!

MsgBox "You selected one file: " & whichone(0)

' check status of Read Only checkbox

' is bit 1 set or cleared?

' works only if just one file was selected!

MsgBox "Returned flag: " & flag

if (flag and 1) then

' (flag and 1)<>0, transforms to true

' bit is set!

MsgBox "ReadOnly selected!"

else

MsgBox "ReadOnly not selected!"

end If

' check whether selected file is of default type (txt)

if (flag and 1024) then

MsgBox "selected file is no txt file!"

else

MsgBox "selected file is of default type!"

end if

else

' more than one file selected!

MsgBox "You selected " & filecount & " files!"

for x = 1 to UBound(whichone)

list = list & path & whichone(x) & vbCr

next

MsgBox list

end If

function OpenFile(title, dir, filter, index, flags)

set comdlg = CreateObject("MSComDlg.CommonDialog")

comdlg.filter = filter

comdlg.FilterIndex = index

comdlg.Flags = flags

comdlg.MaxFileSize = 260

comdlg.CancelError = false

comdlg.DialogTitle = title

comdlg.InitDir = dir

' set txt as default

comdlg.DefaultExt = "txt"

comdlg.ShowOpen

OpenFile = comdlg.filename

' important: return flag status so your main script can

' check it:

flags = comdlg.Flags

end function

更多信息請查看腳本欄目
上一篇:vbs的sort排序
易賢網(wǎng)手機(jī)網(wǎng)站地址:vbs選擇文件夾效果代碼
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!

2025國考·省考課程試聽報(bào)名

  • 報(bào)班類型
  • 姓名
  • 手機(jī)號
  • 驗(yàn)證碼
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 加入群交流 | 手機(jī)站點(diǎn) | 投訴建議
工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務(wù)許可證:(云)人服證字(2023)第0102001523號
云南網(wǎng)警備案專用圖標(biāo)
聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關(guān)注公眾號:hfpxwx
咨詢QQ:526150442(9:00—18:00)版權(quán)所有:易賢網(wǎng)
云南網(wǎng)警報(bào)警專用圖標(biāo)