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

指定文件夹-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, "请选择目录")
首席数据官:一个属于你的时代已经来临 盘点2013年Facebook七大最受欢迎的hack 见证中国开源的力量:“开源力量”2013年度庆典活动亮点汇总 专访APU13讲师、西电朱虎明:概念难以理解成异构编程最大阻力 盘点2013:21款最优秀的开源数据库 苹果三星再次谈判,欲和解所有侵权案 应对iOS in the Car,Google将携手奥迪推Android车载系统 10个技巧让你更轻松地使用AWS 《近匠》第04期:移动开发技术访谈,多看科技CTO王毅——阅读未来 2013年Linux领域重要事件回顾 2013年12月操作系统份额:Windows XP跌破30%大关 Linux小幅上涨 Snapchat存安全漏洞 460万用户信息被窃 年底广告高峰:AdMob团队支招“马上赚钱” 从远程调用框架认识Zookeeper 盘点Hadoop生态圈:13个让大象飞起来的开源工具 【开源推荐】Ejoy2D:“风魂”游戏引擎作者云风的又一力作 Web应用在IE11里的实际使用性能 回顾2013年十个值得关注的WordPress设计主题 为什么Google眼镜注定会失败? 2013移动开发工具盘点:最火原型设计工具 2013年12月份浏览器份额:IE 11暴涨3倍 【PPT集萃】十位一线专家分享Spark现状与未来(二) 2014年,怎么做产品才能获得成功? 年末新游盘点:2014年移动游戏四大趋势 IDC:全球有1850万程序猿 4成爱好者在写代码 PHP开发框架流行度排名:Laravel居首 2013年度最强AngularJS资源合集 研发周报:回顾2013、技术栈的选择、开源成趋势 TIOBE 2014年1月编程语言排行榜:Transact-SQL力挫Objective-C 夺得桂冠 IBM:这五个智能技术的发展,将会改变我们生活 一周消息树: 微软的2013,Surface的2014 如果我用一个Winsock(index)控件数组。Winsock(1)、Winsock(2)同时调用一个延时函数会出什么问题吗? 已知表中字段ID的值,如何定位到这个字段? 谁知道为什么会出这种错误fatal error C1004: unexpected end of file found 小小问题,也有小小的分,不成敬意。 visio ,rose ,ERwin 他们各自的用途是什么,有什么区别呀? Oracle安装的问题——寻求帮忙!!!! 请问Crystal(水晶)报表如何对TextBox进行动态绑定字段? 如何设定mapx图层的颜色 对汇编的渴望! 谁有Asp做的网站?100分奉上! 都进来看看 vc新兵问函数调用菜鸟问题 紧急求救!!!! 谁有delphi关于ado编程 的资料啊(要详细一点的) TreeView的问题,很实在的问题。 关于在PB上实现错误事件处理!!! 关于组件的停靠 用VB.NET连接数据库老是连不了,快精神分裂了,救命啊! 关于SendMessage(高分相送,紧急) 急!!!高手进! 在查找结果中如果某一字段的值相等,只取出其中一条的问题! squid的安装问题???????????????????? SQL语句问题? 冒昧求救,光驱不能使用,不能boot 我的主机总收到外面发的广告信息? 高分求助急!!! 见鬼了,我添加一个TServerSocket控件,然后编译出现:Declaration terminate incorrectly 有谁知道用哪款打印机比较好呢? 按钮BitBtn1上有图片,在图片上写字的问题。(在先给分!) cystal reports 8.5 english显示繁体问题,急,等待 Unix下用什么源代码检测工具比较好? 我的电脑出什么问题了?各位帮帮忙 界面导航如何分类? 怎样得到本机的网卡号??? %¥#问个小问题,知道的都来抢分啊 谁知道哪儿有支持认证的SMTP组件下载? 有什么软件能查看PE文件的? ADO问题!!!! 100分求购最简单的串口程序!需要详细注释! 怎么给大家份呀?to wyz_csdn等(500分诚征wav 转换到MP3的源程序(VC++的例子)) 在directshow中,不知道怎样对播放的画面的亮度进行控制? 如果深愛的人要離開你,是變心還是死亡好一點?(讨论) 贴了二次为什么没有人指教? 戒水快两年了,如今回来看看,物不是人非啦 新手一问 关于datagrid 修改数据的问题,帮我看看,多谢 谁有这两本书,请帮忙发到我的邮箱里,100分相送 到底应该怎么办? 大家好,如何打开DLL文件? 建议成立一个程序员协会 关于IE中图片的保存 离子迁移的实验中尿素和硫酸的作用是什么? c面金属 锈我的笔记本电脑鼠标板左面有锈点,是因为手掌出汗引起的吧,才买半年的本本,这个算不算保修范围内啊?还有我的本本喇叭总是有杂音,就像喇叭上面有东西,听歌时不一定什么音就 电风扇功率越大是不是风力就越大呢?为什么?请问二楼 怎么使产生的风能在功率中所占比例越大呢?请问三楼 为什么大口径风扇,风量大,风速小呢?为什么小口径风扇,风量小,风速大 判断题,我做对了吗 尿素包合实验中要N2保护,请问如何操作? 如何不用其他试剂分离KNO3和KCL的混合物?要用到溶解度的知识,两者都要保留. 判断题对了吗? 赤橙黄绿青蓝紫下一句 “概念的内涵增加它的外延就小了”怎么解释? 判断题,对了吗, 麻烦那位高手帮我解释:彦是什么意思? 义的含义,内涵,外延 要精确,好的追分 鱼鳍在游泳中的作用实验答案 一级水、二级水、三级水的主要区别并与纯净水的区别 内涵 外延 这两个概念的含义或定义是什么?还有什么是政策? 淘气把一些苹果放到底面半径是10厘米的圆柱形容器里清洗,这时水面上升了4厘米,这些苹果的体积是 把一个苹果完全浸入一个长为20厘米、宽为15厘米的长方体容器中,水面升高2.5厘米,这个苹果的体积是多少? 节约与浪费作文作文题为 一个胖子满桌子都是食物,一边吃一边看这旁边只有几碟小菜的瘦子 卤族元素的递变性是怎么来着? 实验室一级用水和三级用水有什么区别吗 安全是最大的节约,事故是最大的浪费作文能起什么题目? 卤族元素结构的相似性和递变性如何决定了性质的相似和递变? 一个长方体的宽是长的4/5,长是高的1/2,已知它的宽8厘米.求这个长方体的体积. 珍惜时间的作文600字先写怎么浪费后写怎么节约 六爻,晚上十二点二十一分,问事(感情)能行吗,得临卦,感激不尽.我看《周易》卦辞没太明白. 哪支蜡烛燃烧得更旺?现象第一种:燃烧需要氧气,杯中的氧气是有限的,过一会儿,杯中氧气燃尽,自然熄灭.第二种:氧气虽然是无限的,但是热空气往上流,又因为有一个出口,因气压流入的氧气 什么时候填扩散作用,呼吸作用,呼吸运动 科学 研究鱼鳍的功能与作用 ,实验材料 实验步骤 实验结论 拓展应用 ,都说一下,求求了,我急啊, 哪只蜡烛燃烧的更旺 关于节约的作文可以取什么题目最好最好 关于节约的作文 观察鱼鳍的功能的实验步骤1设计的实验步骤2实验观察到的结论 几道有机化学鉴别题,能解决几道解决几道哈,1.环丙烷、环己烷、环己烯2.环丙烷、苯、甲苯3.乙醚、正丁醇、戊烷4.乙醚、丁醇、苯酚5.丙酮、戊二酮6.乙醛、2-戊酮、3-戊酮7.果糖、葡萄糖 肺泡进行气体交换.组织处的气体扩散和四心房简图连接图 英语翻译《笑府·夫夫》:“有与小官人厚者,及长为之娶妻,讲过通家不避.一日撞入房中,适亲家母在.问女曰:“何亲?”女答曰:‘夫夫.’”好像是说同性恋的吧? 那支蜡烛燃烧得更旺现象与结论 房间晒不到太阳,潮湿怎么办 某烯烃与氢气加成后得到的饱和烃是2,4-二甲基戊烷 ,该烯烃可能的结构有几种?请画出所有符合条件的化合物的结构式. 二氧化碳加-氧化碳等于什么 哪些物质可以用浓硫酸干燥?能具体地说出写中学常有的物质吗? 第三部答案是1.7*10^-5 请问下 是怎么算出来的... 三碳化合物可以被氧化成co2么 鸡不下蛋晒了太阳多久会下蛋 甘油三脂4.11(参考值是0.56-1.70)低密胆固醇1.31(参考值是2.07-3.1)葡萄糖7.60(参考值是3.3-5.56)怎么治疗 孝经全文的白话文解释有知道的吗? 求路遥的平凡的世界的读后感,要600字以下的哦 曲突徙薪文言文答案是神吗 求《孝经》全文及翻译 路遥的《平凡的世界》读后感(600字左右,初二水平)最好不要网上抄,急用,好的加100分以上. 英语翻译【师父,我一直以为活动定在周六,就把所有的事情推到了周日,刚才才得知活动改为周日.实在对不起,不能参加了,希望能理解,但要知道,我的心和大家在一起】 孝经·开宗明义章全文. 在双臂电桥的使用中,为什么要把被测电阻坐成四端电阻的形式? 一个长方体容器长宽都是2厘米向容器里倒入5.5升水再把苹果放水中,这时水深15厘米,这个苹果的体积是多少?急 金属上锈了怎么办? 电桥法测电阻时电桥上的按键开关为什么要触按 渗透试验使用尿素会怎么样本来是使用蔗糖溶液,如果用尿素会怎么样呢? 金属去锈金属由于腐蚀生锈,应该如何去除啊?有人建议用稀盐酸,但试过会反弹,用完反而生锈更严重.这应该如何处理? 数人饮之不足,一人饮之有余中的有余是什么意思?如果有余的意思是剩的话 为什么还要画蛇?画蛇赢的那个人喝不是还会剩吗? 把两升水倒入一个长方体的容器,水的高度是十厘米,把一个苹果浸入水中水面升高了二厘米,这个苹果的体积是多少? 为金属去锈的办法手镯上衔接部分的金属生锈了,影响美观.分不清是钢还是合金.希望有知道去锈办法的高人指点一二.总之是要用酸是吧?可乐是碳酸……那么雪碧也行吧……天外飞仙你确定 电风扇的风力能调小吗?就是在最小档时候,风力也比较大的,看能不能调小风速 20家网贷平台陷兑付危机 投资人面临疑百度帮新客户侵权 百度老客户状告百美国国务卿克里促埃及政府勿延长全国紧局势动荡民众对政治改革灰心 埃及再现缅甸发生沉船事故 载有70人船只仅8民调显示超3/4德国人认为美国国安局美国国务卿克里促埃及政府勿延长全国紧局势动荡民众对政治改革灰心 埃及再现南华早报:“监听事件”削弱美国软实力外媒:十八届三中全会或为“革命性”改美研发新型间谍机 可一小时内到达全球地方接力大部门制改革 简政放权与加强未来中国3.9亿农民将市民化 城市越国务院将专项督查最低生活保障政策落实美国国务卿克里促埃及政府勿延长全国紧最新消息:孙杨已经被带离下城交警大队未来中国3.9亿农民将市民化 城市越e融在线:“三大亮点”开启个人网上信杭州开元中学今年101岁 杭城百岁学国务院将专项督查最低生活保障政策落实浙大教授昨演示\"隐身衣\" 鱼缸还旗袍风靡!可这些歪果明星几人能hol号称被苹果山寨的深圳佰利究竟啥来头,社评:印尼海军向我渔船开枪 中国怎么贾静雯小女儿戴豹纹帽子超可爱 梧桐妹百度糯米6周年:技术化O2O加速厦门新华社评论员:增强核心意识 确保集中音乐的独家记忆:杜嘉班纳发布春夏新品津巴布韦总统支持中国在南海问题上的立扫码下载齐鲁壹点,齐鲁晚报请您当“情关注临沂车改:车改后,驾驶员何去何从做齐鲁晚报小报童挣“第一桶金”,你来山东省委组织部公布干部考察预告从明仁药业看“互联网+”时代传统企业“天才”王阳明和“笨鸟”曾国藩在子女江豚最大生存危机是“饿” 100万尾公益其实很简单 让星星的孩子不再孤单沪黄浦滩名苑将推出月租服务 日停车费上海地铁查短板补漏洞 为迪士尼保驾护通勤时间趋于平均 申城市民:上海城市8岁娃报5门补习班成绩没起色 挨妈打沪3家银行首批试点投贷联动 降低信贷
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘