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

指定文件夹-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, "请选择目录")
LiFi是否会取代WiFi? 1月浏览器排行:IE10突破1% Chrome连续3月下滑 Wine让Android也能运行Windows软件 Cory Ondrejka,是这位工程师拯救了Facebook! 三星争夺企业市场的三大痛点与对策 Xcode更新至4.6 支持iOS 6.1 工程师揭秘:NVIDIA如何锻造Android掌机 VMware掌控Puppet 老用户会被锁定吗? 试图领导创新:三星创新中心11亿美元建基金 基于WebRTC Chrome与Firefox实现视频通话 将OpenStack私有云部署到Hadoop MapReduce环境 Web设计师必备的10款最佳排版工具 诺基亚CEO谈平板计划 Android为候选系统 244亿美元!戴尔公司正式完成私有化 对抗苹果 Facebook或推Find My Friends应用 前谷歌工程团队负责人:如何打造一个完美的产品 好消息!Google Drive可存储共享JavaScript等网站 Android Rivers:用Kotlin语言写出的新闻应用 辞旧迎新 老牌游戏开发商的移动进化之路 iSuppli:硬盘市场持续萎缩 大数据应用成重要市场 全球最大校园Hackathon:失败后,你能学到什么? 走进Evasi0n,越狱黑客如何拿到iOS权限 提升服务扩展性和冗余的八个编码方向 分析数据预测未来?数据挖掘绝不是大公司的专利 揭秘LinkedIn数据科学家如何工作 为什么响应式设计对SEO有好处? SpaceX团队:想登陆火星吗?学好C++吧 可穿戴设备:越来越清晰的苹果iWatch 苹果设计师:开发者们的应用图标设计对了吗? AWS兴起之路:尚未成功 仍需努力 John Carmack:我们为什么不开发Linux游戏 请问在哪可以找到可以做简历封面的图片呀?后天就是招聘会啦,快快帮忙呀~~~ javaServlet的一个问题。急! DELPHI高手!-----300分 ASP开发问题,如何在用户提交注册信息时自动分配给它一个用户ID号? 我想在 Excel 中给文件字加双下划线,可是编译时提示变量没有定义 有谁能给我一份简单的COM代码? 有关interface??? 昨晚,初恋情人不经意的出现在梦中,你到底离你的初恋情人有多远,撒分了 一个昨天没搞明白的问题! redhat 7.2中如何设置代理服务器 求教高手一个Java中一直困扰我的问题,急!急!急! 谁能够给我个例子实现 Dll向应用程序单向通信 Dll->EXE?50分? 请问.......... 在数据窗口拖动垂直滚动条死机。只能ctrl+alt+del结束任务。倾听你的声音。 请教各位大虾两个Sql语句 哪里有visual studio.net下载? 那里有sql server 2000企业版下载的 xml的学习??????双儿 怎么比较两个LPTSTR字符串啊??? 语句“rs.Open sql,conn,1,1”中后边的两个数字参数是何意思? 如何获取datawindow中文本框内容? 请教公司大院网络系统设计方案要怎写?会遇到什么问题? 关于clientdataset的返回值问题 关于报表打印的问题!火急。。 这个世界上有多少C/C++程序员? 关于ARP广播域的问题????????????????、 请问什么服务器支持global.jsa 安装oracle数据库出错!!!!!!!!!!!! 如何在对话框的OnPaint()函数中得到该对话框的窗口大小? 一个看似简单却很棘手的问题,不得不请教各位。。。 哪里有将rm文件转换成avi或者mpg格式的软件? 关于ARP广播域的问题?????????????? 请问,,怎么设定mshflexgrid的属性,使其各列的宽度与数据源字段的宽度一致 请问这几个对象是否代表同一个对象? 菜鸟问题:如何跟随鼠标拉出一虚线矩形框?回复就有分! 高分寻Authorware v6.0 注册码 在数据窗口中有“部门”和“员工”两个列,分别采用各自的下拉数据窗口显示。如何使得“部门”改变时,“员工”显示与其对应的人员而不是“员工”表中所有人员。 怎样安装UNIX? 灌水加求救…… T-SQL中SELECT句中可不可以有存储过程。。。。。。。。这样为什么不行呢?(100分酬谢) MS SQL SERVER 有谁知道型号为CDU111-NE 的SONY光驱是多少速的吗? 谁对RTTTL格式文件了解,怎么把它转换成可以发送的二进制格式? 关于ORACLE存贮过程的迷惑,请各位大侠解惑! 请问如何向ActiveX控件发送一个自定义数据结构的指针 有没有好一点的ASP上传组件?? asp调用dll失败!!! 为何用了2个以上的单元有调用窗体就出现 access violat at address XXXXX in module的错误 请问有没有一些用来专门用作软件测试的测试软件? EPSONSTYLUS C20SX 型号的打印机支持NT4吗? 请问哪里有linux操作系统的源代码下载?谢谢 一个半小时 英语 one and a half hours 这个hour需要复数吗? sweet dumpling是什么意思``? 电瓶车的电池和气车的电池一样吗可以加汽车电瓶水吗如果可以是加原液还是加补充液呢谢谢谢 one hour and a half 的谓语是单数还是复数,one and a half hours 的谓语是单数还是复数我们老师说第一个是复数,第二个是单数, sweet rice dumplings什么意思 dumpling,dessert的美式音标 有两种硫酸,一种浓度为60%,另一种浓度为90%.现在要配制浓度为70%的硫酸300克,则应取60%的 硫酸多少克? sweet dumpling dumpling怎么读 有两种硫酸,一种浓度为60%,另一种浓度为90%.现在要配制浓度为70%的硫酸300克,问每种硫酸各取多少%B有两种硫酸,一种浓度为60%,另一种浓度为90%.现在要配制浓度为70%的硫酸300克,问每种硫酸各取 把50g溶质质量分数为98%的硫酸溶液稀释成20%的硫酸溶液,得到20%溶液多少克?加水多少克 Clootie dumpling 是什么东西?用英语怎么读? 一方0.5:1水泥砂浆等于多少公斤水泥、多少公斤砂 大理石地砖的厚度一般是多少? 电动车蓄电池是铅酸电瓶么? 要把30克质量分数为98%的浓硫酸稀释为20%的稀硫酸,需要水多少克 we usually eat a kind of rice dumpling called yuanxiao中called为什么加ed? 电动车铅酸电瓶可以加水吗 墙体均在室内地面以下60处设20厚1:2水泥砂浆掺3%防水剂作防潮层,防潮层必须连续贯通.怎么算防潮层?这句话通俗的怎么理解? Yuanxiao is a kind of rice _____.(dumpling)dumpling后面要加s吗 12v的电动车的电瓶(铅酸电池).1:一支光管(家里用的照明灯)是20W(电流参数无法提供)的.接在一个12v.14AH 的电动车电瓶(铅酸电瓶).请问:电瓶可以照明多长时间?我是用来照明的.最少能用5小时吗?2 防水剂要不要参水搅拌 配制1000毫升溶质质量分数为10%的稀硫酸,需要溶质质量分数为98%的浓硫酸多少毫升?同时需加入多少克水 is的i发音的音标是i还是e? one and a half 后面跟的名词用单数还是复数?其后跟的谓语动词用单数还是复数? we usually eat a kind of rice dumphing called yuanxiao. 如何分别音标/i/和/i:/在做题时如何分别的作用不是问意思啊 one and a half 后用谓语动词单数还是复数? 地砖上墙 怎么贴用地砖贴墙,请问,是不是必须用胶泥?可以在沙子水泥中掺入108胶代替吗?300mmX600mm的砖 there _(are\is) +some+不可数名词 98%的浓硫酸密度是1.84 30%的硫酸密度是1.22 求50%的硫酸密度是 英语中 half of 后是名词复数时/单数名词复数/单数名词是谓语动词应该用什么? 地板砖可以贴墙吗时间长会掉下来吗 1的立方+2的立方+3的立方+……至十的立方,和是多少?怎么算? 配制1000毫升溶质质量分数为10%的稀硫酸,需要溶质质量分数为98%的浓硫酸多少毫升?同时需加水多少克? 用什么贴地板砖比较薄我家在农村是二层小楼 因为盖的比较早 所以高度比较矮 是水泥地板比较潮湿 我现在想在贴层地板砖 用什么和地面水泥层黏贴比较好 越薄越好 因为楼层比较矮 1立方+2立方+3立方.+10立方一步一步写下来, hair与rice为什么不可数 想要配置500克溶质的质量分数为19.6%的稀硫酸,需要溶质的质量分数为98%的硫酸多少? 2毫升 密度为1.84克每立方厘米 质量分数是百分之九十八的浓硫酸 将它配20毫升溶液后 硫酸的物质的量浓度是 rice 和hair都是不可数名词,为什么可以a hair不可以a rice? 实验室需要配制1mol/L的硫酸100ml,需取用98%的浓硫酸多少毫升? one and a half years 谓语动词用单数还是复数?one year and aone and a half years 谓语动词用单数还是复数?one year and a half 谓语动词用单数还是复数? hair(不可数) 铅酸蓄电池、成都铅酸蓄电池、四川铅酸蓄电池什么牌子好?想购买铅酸蓄电池、四川成都铅酸蓄电池哪家的好,是什么牌子的,求助! one year and a half作主语 ,谓语动词用单数还是复数?在线哈,大家速度点~~~最好来几个例句解释下 hair可数不可数?回答:(可数 不可数)就可以了. 请问,铅酸蓄电池 铅的占比一般有多少,生产车用电瓶,需要什么等级的铅做为材料? one and a half apples&one apple and a half的谓语动词应该是复数还是单数? hair在什么情况下是可数名词,什么情况不可数? 汽车、电机车一般要使用铅酸蓄电池.某铅酸蓄电池用的酸溶液是溶质质量分数为30%的稀硫酸,先用1L溶质质量为98%的浓硫酸(密度为1.84g/cm3)配制该稀硫酸.问:(1)1L溶质质量分数为98%的荣 one and a half+复数名词作主语,谓语动词用什么形式 我现在要造房子,落地面积80平方,造三层现浇框架,需要多少水泥、黄沙和石子!没这经验!请懂朋友帮忙谢 a salty rice dumpling 中文是什么粽子? 水泥砂浆地坪宽1.5米、厚15公分怎样求每平方的用料水泥和沙子的配比是3:1 欲配制600克溶质质量分数为19.6%的稀硫酸,需要这中硫酸多少毫升?硫酸化学纯(CP)(500ML) 品名:硫酸 H2SO4 相对分子质量:98密度:1.84g/cm3 质量分数:98% rice dumpling 这个单词是"粽子"的单词么 是one and a half hours还是one and a half hour 实验室常用溶质质量分数为20%的稀硫酸.现配制这种硫酸500g,问需要多少毫升溶质质量分数为98%,密度为1.84g/cm^3的浓硫酸? 这音标是什么?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn