Windows Script Host之用vbs实现[浏览文件夹]功能

'************************************************
' 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

赞 (0)

相关推荐

  • 用vbs实现防止计算机使用 LMHosts 文件

    用vbs实现防止计算机使用 LMHosts 文件

    问: 您好,脚本专家!如何防止计算机使用 LMHosts 文件? -- MJ 答: 您好,MJ.您知道,这是个有趣的问题,至少对"脚本专家"来说是这样.不是因为脚本难以编写:这实际上非常简单.困难的是(至少对我们来说)在 Windows GUI 中找到 LMHosts 设置:这是我们需要做的,以便我们可以验证脚本实际上起作用.在一段盲目的查找之后(这对"脚本专家"来说很寻常)我们最终找到了要找的东西: 以防您与"脚本专家"一样一窍不通(对于您来说

  • 通过vbs获取远程host文件并保存到指定目录

    复制代码 代码如下: Sub download(url,target) Const adTypeBinary = 1 Const adTypeText = 2 Const adSaveCreateOverWrite = 2 Dim http,ado Set http = CreateObject("Msxml2.ServerXMLHTTP") http.SetOption 2,13056 http.open "GET",url,False http.send Set

  • 使用vbs删除host文件域址内容

    要求:原先host里面已增加以下3行 202.102.101.105 intranet.corp 202.102.101.107 mail.intranet.corp 202.102.101.108 sip.intranet.corp 之后不需要此3行内容,所以运行以上vbs代码,来删除host文件此3行 '该脚本要求执行用户有本地管理员权限 Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnly = 1 Set fso

  • Windows Script Host之用vbs实现[浏览文件夹]功能

    '************************************************ ' 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 opt

  • Windows Script Host终止的解决方法

    RG-SA安全客户端出现"由于Windows Script Host终止或崩溃,主机完整性检查失败"的问题.     答:当使用SA安全客户端时出现"由于Windows Script Host终止或崩溃,主机完整性检查失败",请使登陆GSN软件维护区域http://nic.hnu.cn/images/stories/soft/scripchs.rar下载scripchs.rar,进行安装修复.

  • 浏览文件夹下面所有图片

    复制代码 代码如下: <% '+-----------------------------------+ '|     变量设置 '+-----------------------------------+ cTitle =   "所有上传图片(注:以下为图片文件夹下面所有图片,并非全部为有效图片!)"   '名字 cPicType =   "jpeg,jpg,gif,png,bmp"   '图片类型   (使用","将图片格式分开) cH

  • VBS合并一个文件夹里的TXT的实现代码

    复制代码 代码如下: Const ForReading = 1 'VBS的这句不能少. dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject("Scripting.FileSystemObject") '创建FSO对象 jiuw = inputbox("请输入源文件夹所在的路径(含文件夹名称)","请输入多个TX

  • VBA 浏览文件夹对话框调用的几种方法

    1.使用API方法  复制代码 代码如下: '[类型声明] Private Type BROWSEINFO hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type '[API声明] Private Declare Function SHGetPathF

  • js操作IE浏览器弹出浏览文件夹可以返回目录路径

    js操作IE浏览器弹出浏览文件夹可以返回目录路径

    如图所示: 可以返回目录路径. 操作如下: function BrowseFolder(){ try{ var Message = "请选择文件夹"; //选择框提示信息 var Shell = new ActiveXObject( "Shell.Application" ); var Folder = Shell.BrowseForFolder(0,Message,0x0040,0x11);//起始目录为:我的电脑 //var Folder = Shell.Bro

  • vbs实现压缩文件夹的脚本

    strComputer = "." Set objWMIService = GetObject("winmgmts:" _     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery _     ("Select * fro

  • VBS 批量读取文件夹内所有的文本到Excel的脚本

    复制代码 代码如下: 'This code is done by KangKang@ Option explicit 'This is optional, but better to use. Dim FolderPath,Folder Dim fso,File,Files Dim fileNums Dim FileString() Dim i Dim ii i=0 FolderPath="E:\TDDOWNLOAD\aa\" '**********************1.To c

  • 用vbs实现在启动 Windows 资源管理器时打开特定文件夹

    用vbs实现在启动 Windows 资源管理器时打开特定文件夹

    my-script.vbs "c:\scripts" 在文件夹路径的两端必须加双引号吗?本例中不需要.但是,如果路径中有空格,则必须加双引号.以下命令行将不起作用: my-script.vbs c:\documents and settings\kmyer 只要是向脚本传递包含空格的参数,就必须将整个参数括在双引号内(否则无需如此).换句话说: my-script.vbs "c:\documents and settings\kmyer" 这就是命令解释程序的工作方

  • VBS 显示“选择文件或文件夹”对话框的代码

    一.显示"选择文件"的对话框 问: 嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,供用户选择文件使用? 答:您好.| 如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没有内置这样的方法. 但如果您使用的是 Windows XP,情况就不同了.在 Windows XP 上,您可以使用"UserAccounts.CommonDialog" 对象向用户显示一个标准的"文件打开"对

随机推荐