说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

指定文件夹-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
指定文件夹-VB资料

大家看仔细了,是指定文件夹,不是指定文件。指定文件夹很简单,用通用对话框就行了。但是指定文件就不同了。下面是
实现的方法。

声明

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

Private Const BIF_RETURNONLYFSDIRS = 1
Private Const MAX_PATH = 260



Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)

Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long

Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long

Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long

代码

Public Function BrowseForFolder(hWndOwner As Long, sPrompt As String) As String

Dim iNull As Integer
Dim lpIDList As Long
Dim lResult As Long
Dim sPath As String
Dim udtBI As BrowseInfo


With udtBI
.hWndOwner = hWndOwner
.lpszTitle = lstrcat(sPrompt, "")
.ulFlags = BIF_RETURNONLYFSDIRS
End With

lpIDList = SHBrowseForFolder(udtBI)

If lpIDList Then
sPath = String$(MAX_PATH, 0)
lResult = SHGetPathFromIDList(lpIDList, sPath)
Call CoTaskMemFree(lpIDList)
iNull = InStr(sPath, vbNullChar)

If iNull Then
sPath = Left$(sPath, iNull - 1)
End If

End If

BrowseForFolder = sPath

End Function

用法

sDirectoryName = BrowseForFolder(Me.hWnd, "请选择目录")
Facebook Q1财报:营收25.02亿美元、59%来自于移动 黑客们盯上了卫星,IOActive的惊人发现 开发汽车应用之前,你必须了解的7件事 埃森哲:智能电视潮流,势不可挡 直接拿来用!Facebook移动开源项目大合集 高大上Hadoop技术培训:Hadoop在企业中的应用实战 【走近讲师】新浪丛磊:通过MAE构建企业内部私有PaaS平台 API增长新趋势 消息应用类独占鳌头 软件项目为何会失败? 严澜:搭建高可用的MongoDB集群(二) 微软、思科、Google、Facebook等联合推出CII 狙击“Heartbleed” 这是个神奇的国度:细数五大印度裔IT牛人CEO Atmel CMO Sander Arts眼中的创客运动 Unity“三巨头”:全心全意为开发者服务 全球移动广告现状报告:哪种平台、应用最赚钱? 《近匠》Smart Wallit,钱包找不到了?给它“打个电话”吧 Mozilla新CTO:JavaScript、 Firefox OS专家Andreas Gal 李彦宏发布百度大数据引擎,及与谷歌、亚马逊等类似项目对比 大数据领域,实时打击欺诈犯罪的4个战场 一周消息树:谷歌Project Ara,将开启下一个智能手机时代 数据恢复服务商的6个最佳实践 【走近讲师】谭晓生:魔高一尺道高一丈,360基于大数据的网络攻击检测 一周热点:摩尔定律让位于贝索斯定律 阿里巴巴集团CTO王坚确认出席第六届中国云计算大会 【走近讲师】青云甘泉:混合云的构建及其对企业的帮助 RadiumOne创始人兼CEO因家暴被公司解雇 3D打印狂潮:可检测皮肤疾病的低价手机显微镜 浅谈导航设计,开发者必备的十大实用技巧 【云先锋 41】上海越诚:基于云服务的建站类iService软件超市 董西成:Hadoop将在高速发展和完善中扩大优势! 【走近讲师】 华云数据郁珉:公有云市场八仙过海 价格不是唯一标准! 哪位有flash mx的汉化包?多谢了 MSSQL打开企业管理器后所有的数据都公开了,有没有办法能设立权限啊 出现了一个错误,搞不定哦help,在线 字符型变量如何转化为整型 为什么滚动条不工作? 请问 sqlserver2000中有可以把数据提出 , 输出到文本文件中的存储过程吗 那位大侠知道:如何返回webservice自身类的一个或多个实例? QuickReport是否可以套打?如何套打? 这段话看得太糊涂,请英语佳的大虾翻译一下 很诚恳的想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 急急:谁能告诉我,tomcat4.1.18+sqlserver2000连接池如何配置、具体配置测试!我想把分全给他如果能的话 高分,简单问题.关于网格控件(在线等!) 触发器失败,是怎么回事啊?拜托。在线等待。。。 急需测试数据 关于连接的下载问题 在属性页中,各子页中类成员函数如何相互调用? 急!!!重载决策失败,原因是没有可访问的“Fill”可以用这些参数调用,怎么解决? 如何获取用户本地机的分辨率? 菜鸟的问题!!!在线等待! 请问一下印度做软件的报价~~~?? 急急~~ 求求求!!~~ 给满100分!! 关于WinRunner中遇到的难题,请高手帮忙! 请大家帮忙推荐几款linux下比较好用的看jpeg图和看mpeg4比较好用的软件! 请问数据库应用程序如何制作安装程序? 笔记本突然出现很多马赛克,然后死了,大概是什么原因? 各位大虾请进 求:0,1,-1的N长度组合算法 各位问一个比较少见的问题100分相送,急急急!!! 这样的条件判断语句要怎么写?(很简单的) 一款很不错的电子图书制作、资料管理软件 在-卢-<<利用XML实现通用WEB报表打印>>时报:未将对象引用设置到对象实例 DBEdit如何限制输入格式? 简单问题 ★★★狂急!请问怎样取得文件的创建日期!在线等!在线结贴!★★★ 初学xml,很简单的问题,就是不会,各位近来看看!一行代码搞不定… 有没有用于unix下c开发的dbx调试图形界面的工具? 哪位有tar 和 gzip 命令参数的详细中文介绍 jsp网站测试,欢迎大家测试 提问 请问有没有直接可以HTML(XHTML、SHTML)生成XML-XSL!!的工具 进程外组件的关于注册的问题? jsp中怎样生成静态页面 请问:如何返回webservice类的一个或多个实例? 怎样触发另一个窗口中的javascript函数? 谁能提供一些检测内存泄露的工具或方法 如何将 FoxBase 中的数据导入到 SQL Server 中? 求助:API操作注册表出现奇怪问题 请问如何改变windows xp中的用户的登陆顺序 有问题:如何通过页面下载附件? 求助:VB生成安装文件的问题 下面的程序怎样优化?(着急) 怎么样在C++ Builder 的Form上显示文字!我不要用控件,要直接显示在Form上 如图所示,固定的竖直轨道CD是光滑的四分之一圆弧,其最低点C的切线水平,半径R=0.3m.光滑水平面上,长L=2m的平板车上表面与C登高.车的左端A处放一质量m=1kg的小物块,物块与小车间的动摩擦因数 hypermesh划分的壳单元(shell63),对于两个component上的单元,可以做一个连接么? 作文 父母的奋斗史这种作文该怎么写才比较风趣.写作思路!中间我自己写最好 给出开头 境界究竟是何界?所以事物 vertify,confirm.certify之间用法有什么区别如题,例句:this result merely ____earilier american studies.填哪个,它们三者之间又是用如何应用的 脂质体 拍电镜用什么染色,即用什么负染剂 如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦如图所示甲、乙两个都是3/4圆弧轨道均固定在水平面上,半径为r,不计一切摩擦.将a、b两小球分别从两轨道右侧正 核电厂设备分级中 1E的字面含义是什么?是什么单词的缩写吗? 西南地区水能资源开发条件 谁能给我一些初二物理的题目?麻烦各位大虾了 请问在hypermesh里面怎么将材料属性赋值给单元啊? 分析某地水能资源的开发条件以及降水特点及成因如何答从哪几个方面? 题目来问我,科学 秦山核电站能抗几级地震? 细胞生物学中什么叫冰冻断裂电镜技术(分值:4分) 题目来问我,科学的 hypermesh中怎么建立弹簧单元 什么是电镜冰冻蚀刻(freeze-etching)技术 AB是两个地震观测点,他们相距200千米,A测得在AB两点连线的左侧32°方向上有地震B测得在AB两点连线的方向左侧43°方向上有地震,请你根据图形,计算出震中点C到观测点B的距离 核电站与地震是否有必要担心 冰冻断裂和冰冻蚀刻技术可用于研究细胞膜内部结构,是对还是错? 超声波去眼袋的优势有哪些? 螃蟹吃高粱—— (写歇后语) HyperMesh 材料属性中密度是那个单词 p/e值与p/b如何计算,如何根据p/e与p/b值分析股票内在价值 爱情的最高境界是什么样求大神帮助 请教一道关于判断电势高低的题有一用均匀导线做成的正方形线框ABCD(以左上角为顶点A,右上角为顶点B),正方形的一半放在和纸面垂直向里的匀强磁场中,当磁场的磁感应强度均匀增强时,试 股票是什么? 入秋的高梁,老来红 什么是核电筹建处 洛论兹力永远不做功吗? 有没有英语超级好的人.马上考英语了. 俄罗斯冬宫介绍 抛物线准线、焦点点P是抛物线Y2=2X上的一个动点,则点P到(0,2)的距离与点P到该抛物线准线的距离之和的最小值为多少? 爱到什么程度,就是最高境界. 冬宫怎么样 抛物线的准线和焦点表达 高粱开花——(歇后语)求大神帮助 冬宫高度是多少米? 关于四川地震的作文400—500字 爱情的最高境界是什么啊? 冬宫的描述 动作电位如何沿神经元传导 cf里哪个区人最多!哪个区好点? 冬宫什么形状 光的折射 透镜 填空1.用照相机拍摄相片时,景物到镜头的距离要____________,所成的像是一个____________________________像. 一位同学看到闪电开始计时,经3秒后听到雷鸣声,则打雷处距该同学多远?这种问题需要考虑光的传播速度吗? 女的能活多少岁拜托各位了 3Q 从神经元两端向中间传导的两个动作电位相遇后为什么会抵消 爱的最高境界究竟是什么? ug中的面相交是什么意思 要如何处理 同学们我想问哈,生物里的生态营养结构是不是指是食物网呢?还有,在碳循环过程中,碳的形式是答有机物还是二氧化碳呢,要分什么情况啊? 在同一地点看到闪电之后三秒听到打雷,问打雷地点距离多少? 一辆车在公路上匀速行驶,一人看见路程碑的数字是AB(A、B是1—9的数字,单位是:千米)1小时后他又看见一块路程碑的数字是BA.又过1小时,再看见一块路程碑的数字是A0B(0是数字0).问:汽 一道碳氧循环的初中生物题是不是所有的箭头指向的是二氧化碳库?即A是不是里面所有生物 BEFD箭头指向的是分解者?此道理在题目中是否适用? 谁能介绍下confirm用法 质量为2 kg的飞行物,在距地面高度为 19.6 m处以速度为 1=5 m/s水平飞行,质量为 3 ×10-2 kg的子弹以水平速度 2= 300 m/s击中飞行物, 1与 2沿同一直线,且击中后子弹没有穿出,不计空气阻力,试求 一次闪电 经过4秒听见雷声 问闪电在多元的地方 核电,核能发电站,1E级与非1E级指的是什么,有什么区别?核电,核能发电站,1E级与非1E级指的是什么,有什么区别? 为什么叫做溶融状态 两名法国记者在马里遭绑架遇害 遗体抵商家应对中央禁令推便宜年历 省出回扣日本官员爆料:自卫队军演目标是攻击中一客机在蒙特利尔机场失火被迫疏散 致不想脱外套 美国3岁女童被托儿所长活日本一17岁少年将伙伴推下河 称没有在柬埔寨感受“今日中国”2014放假安排最早12月定 “只调两岸产业合作谋新局“有保有放”俄大胆盗贼偷警察大楼 部分武器及文件日媒:安倍上任后已打13次高尔夫 展德国拒绝为斯诺登提供庇护 避免影响德朴槿惠恐无意与安倍会晤 日方宣称极度美参众两院大佬不宽恕斯诺登 将派“安印尼巴厘岛男子咖啡地中发现2000多美国新泽西一商场发生枪击事件 暂无人英内阁会议为防监听禁用iPad 高官美新泽西州商场发生枪击 在场民众描述美国西部山区蕴含创业潜力 或成下一个美威州两飞机3000米高空相撞 11德国拒绝为斯诺登提供庇护 避免影响德中共中央政治局召开会议红红火火迎新春巴布亚新几内亚 发生8级地震广东经济运行稳中向好说假话做伪证8位行为人被重罚潘从明:带队飞奔的“火车头”我市降低医保“两定机构”申报门槛再清理规范一批中介服务事项港华燃气前海设公司 加快分布式能源布前海至翠亨明年有望开通水上航线节前理财收益微升至4.07%潮州市原市长卢淳杰被移送审查起诉市查违办关于加强2017年春节假期查平凡的力量也能令人感动骚扰中国记者 日右翼何谈“言论自由”全力加速打造“深圳质量”升级版继续深化改革为广东发展提供有力司法保修宪草案议会过关 土总统制或成现实年味正浓 祝福满溢资金拦截率和返还数全国第一马景涛小二十一岁娇妻同健身伙伴斗臀
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘