Windows Script Host之用vbs实现[浏览文件夹]功能
导读：收集整理的这篇文章主要介绍了Windows Script Host之用vbs实现[浏览文件夹]功能，觉得挺不错的，现在分享给大家，也给大家做个参考。 '*****************...
收集整理的这篇文章主要介绍了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 您可能感兴趣的文章:
- 用vbs实现防止计算机使用 LMHosts 文件
- 通过vbs获取远程host文件并保存到指定目录
- 使用vbs删除host文件域址内容
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： Windows Script Host之用vbs实现[浏览文件夹]功能
本文地址： https://pptw.com/jishu/609592.html