VBS 选择文件夹框

on error resume Next

Const MY_COMPUTER=&H11&

Const WINDOW_HANDLE=0

Const OPTIONS=0

‘设置我的电脑为根目录

Set objShell=CreateObject("Shell.Application")

Set objFolder=objShell.Namespace(MY_COMPUTER)

Set objFolderItem=objFolder.Self

strPath=objFolderItem.Path

Set objShell=CreateObject("Shell.Application")

Set objFolder=objShell.BrowseForFolder(WINDOWS_HANDLE,"选择一个文件夹：",OPTIONS,strPath)

If objFolder Is Nothing Then

Wscript.Quit

End If

Set objFolderItem=objFolder.Self

objPath=objFolderItem.Path

If objPath="" Then

Wscript.Quit

Else

Wscript.Echo objPath

End If

VBS 选择文件夹框

时间： 2024-10-12 08:55:45

VBS 选择文件夹框的相关文章

GetOpenFileName 选择文件夹的解决方法

某些环境下(如WIN PE)windows自带的选择文件夹api不能使用或者体验不佳.现在利用GetOpenFileName的回掉参数实现了选择文件夹选择功能. #include <Windows.h> #include <CommCtrl.h> #include <locale.h> #include <shlwapi.h> LONG g_lOriWndProc = NULL; #define ID_COMBO_ADDR 0x47c #define ID_

选择文件夹，路径选择

选择文件夹,路径选择, SelectDirectory #include "FileCtrl.hpp" const SELDIRHELP = 1000; void __fastcall TForm1::Button1Click(TObject *Sender) { String Dir = "C:\\Program Files\\CodeGear"; if (SelectDirectory(Dir, TSelectDirOpts() << sdAllow

C# 选择文件夹选择文件

选择文件 1 //选择文件 2 OpenFileDialog dialog = new OpenFileDialog(); 3 dialog.Multiselect = true;//该值确定是否可以选择多个文件 4 dialog.Title = "请选择文件夹"; 5 dialog.Filter = "所有文件(*.*)|*.*"; 6 if (dialog.ShowDialog() == System.Windows.Forms.DialogResult.OK)

弹出打开/保存文件对话框选择文件夹对话框

打开/保存文件对话框: CFileDialog::CFileDialog( BOOL bOpenFileDialog, //为TRUE则显示打开对话框,为FALSE则显示保存对话文件对话框 LPCTSTR lpszDefExt = NULL, //默认的文件扩展名 LPCTSTR lpszFileName = NULL, //默认的文件名 DWORD dwFlags = OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT, //设定风格 LPCTSTR lpszFilt

C#选择文件、选择文件夹、打开文件（或者文件夹）

转载自:http://www.cnblogs.com/zhlziliaoku/p/5241097.html 1.选择文件用OpenDialog OpenFileDialog dialog = new OpenFileDialog(); dialog.Multiselect = true;//该值确定是否可以选择多个文件 dialog.Title = "请选择文件夹"; dialog.Filter = "所有文件(*.*)|*.*"; if (dialog.ShowD

MFC技术实现选择文件夹的对话框

由于MFC自带的CFileDiag是只能选择文件的,无法定制只能选择文件夹的对话框.然后当你仅仅需要操作文件夹,批量操作文件时,你需要用WIN32API实现,以下贴出制做该对话框的函数 void CQQICKView::OnMmm() { // TODO: Add your command handler code here CString m_FileDir; BROWSEINFO bi; ZeroMemory(&bi, sizeof(BROWSEINFO)); bi.hwndOwn

Windows--MFC选择文件对话框和选择文件夹对话框

选择单个文件对话框: 1 CString strFile = _T(""); 2 3 CFileDialog dlgFile(TRUE, NULL, NULL, OFN_HIDEREADONLY, _T("Describe Files (*.jpg)|*.jpg|All Files (*.*)|*.*||"), NULL); 4 5 if (dlgFile.DoModal()) 6 { 7 strFile = dlgFile.GetPathName(); 8 } 选

java 选择文件夹对话框

java swing 选择文件夹对话框 import java.io.File; import javax.swing.JFileChooser; public class Test2 { public static void main(String[] args) { JFileChooser jf = new JFileChooser(); jf.setSelectedFile(new File("c:\\我的报表.xls")); int value = jf.showSaveDi

C# winform文件批量转编码选择文件夹

C# winform文件批量转编码选择文件夹打开指定目录 private void btnFile_Click(object sender, EventArgs e) { OpenFileDialog fileDialog = new OpenFileDialog(); fileDialog.Multiselect = true; fileDialog.Title = "请选择文件"; fileDialog.Filter="所有文件(*.*)|*.*"; if