'************************************************
' File:Dialog.vbs (WSH sample in VBScript)
' Author:(c) G. Born
'
' Using the shell dialog box to select a folder
'************************************************
Option Explicit
' Flags for the options parameter
Const BIF_returnonlyfsdirs = &H0001
Const BIF_dontgobelowdomain= &H0002
Const BIF_statustext = &H0004
Const BIF_returnfsancestors= &H0008
Const BIF_editbox= &H0010
Const BIF_validate = &H0020
Const BIF_browseforcomputer= &H1000
Const BIF_browseforprinter = &H2000
Const BIF_browseincludefiles = &H4000
Dim wsh, objDlg, objF
' Get Application object of the Windows shell.
Set objDlg = WScript.CreateObject("Shell.Application")
' Use the BrowseForFolder method.
' For instance: Set objF = objDlg.BrowseForFolder _
' (&H0, "Select the folder to copy", &H10, "C:\Born")
Set objF = objDlg.BrowseForFolder (&H0, _
"Select the folder to copy", _
BIF_editbox + BIF_returnonlyfsdirs)
' Here we use the first method to detect the result.
If IsValue(objF) Then
MsgBox "Selected folder: " & objF.Title
Else
MsgBox "Canceled"
End If
' Here we use TypeName to detect the result.
If InStr(1, TypeName(objF), "Folder") > 0 Then
MsgBox "Selected folder: " & objF.Title
Else
MsgBox "Canceled"
End If
Function IsValue(obj)
' Check whether the value has been returned.
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then
IsValue = False
Else
IsValue = True
End If
On Error GoTo 0
End Function
'*** End
' File:Dialog.vbs (WSH sample in VBScript)
' Author:(c) G. Born
'
' Using the shell dialog box to select a folder
'************************************************
Option Explicit
' Flags for the options parameter
Const BIF_returnonlyfsdirs = &H0001
Const BIF_dontgobelowdomain= &H0002
Const BIF_statustext = &H0004
Const BIF_returnfsancestors= &H0008
Const BIF_editbox= &H0010
Const BIF_validate = &H0020
Const BIF_browseforcomputer= &H1000
Const BIF_browseforprinter = &H2000
Const BIF_browseincludefiles = &H4000
Dim wsh, objDlg, objF
' Get Application object of the Windows shell.
Set objDlg = WScript.CreateObject("Shell.Application")
' Use the BrowseForFolder method.
' For instance: Set objF = objDlg.BrowseForFolder _
' (&H0, "Select the folder to copy", &H10, "C:\Born")
Set objF = objDlg.BrowseForFolder (&H0, _
"Select the folder to copy", _
BIF_editbox + BIF_returnonlyfsdirs)
' Here we use the first method to detect the result.
If IsValue(objF) Then
MsgBox "Selected folder: " & objF.Title
Else
MsgBox "Canceled"
End If
' Here we use TypeName to detect the result.
If InStr(1, TypeName(objF), "Folder") > 0 Then
MsgBox "Selected folder: " & objF.Title
Else
MsgBox "Canceled"
End If
Function IsValue(obj)
' Check whether the value has been returned.
Dim tmp
On Error Resume Next
tmp = " " & obj
If Err <> 0 Then
IsValue = False
Else
IsValue = True
End If
On Error GoTo 0
End Function
'*** End
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“Windows Script Host之用vbs实现[浏览文件夹]功能”评论...
稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!
昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。
这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。
而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?
更新动态
2024年05月14日
2024年05月14日
- 《饿殍:明末千里行》行将就木的日月山河
- 【古典音乐】卡拉扬《马勒·大地之歌》2013[FLAC+CUE/整轨]
- KOKIA《EVOLVEtoLOVE20周年精逊4CD【FLAC】
- 李娜(昌圣法师)-《唱经给你听.念佛礼仪》[APE]
- 前《龙腾世纪》编剧谈EA用AI做游戏:他们的兴奋是绝望的哀嚎
- 世界公认最丑的鱼登热搜 科普:其实是人为被迫毁容
- 网易新作合约要求测试者不准说坏话:现已撤回并道歉
- 【原神】V4.6攻略 | 全角色突破用讨伐材料汇总
- 【原神】V4.6攻略 | 4.6版本下半抽卡建议
- 【原神】V4.6攻略 | 那维莱特的一条龙机制介绍、养成及配队
- 郑智化.1995-游戏人间【飞碟】【WAV+CUE】
- 群星.1999-唱好香港【STAREAST】【WAV+CUE】
- 美宝.2013-从目的地出发【金牌大风】【WAV+CUE】
- 新生 New Life
- 站长 Chief of Station