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

指定文件夹-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, "请选择目录")
eBay基础设施的成功经验,我们该如何复制? 自定义富媒体广告:NativeX SDK 5.0发布! WunderBar:零硬件开发基础也能接入物联网! 深入解析:分布式系统的事务处理经典问题及模型 从世纪互联、华云数据和金石易服的发展服路径观察IDC产业发展 SA:2014移动运营商、终端和应用十大关键趋势 使用modern.IE来设计更现代化的网页 全国顶级域名根服务器21日下午疑遭黑客攻击 影响巨大 苹果下一代iPhone的十大预测 《近匠》第07期,专访《恶魔塔防》团队,看俄国复杂深奥的游戏文化 代码托管网站GitHub的总裁和CEO进行职位互换 使用Chromebook的五个指南 云中游终极声明:热酷侵权,有种正面回答少打太极 背后故事:英特尔Edison中国研发 内部评审中曾三次被拒 全栈工程师会是未来的发展趋势吗? 大数据整理:囊括分片、存储方法、扩展等多个方面 物联网 ,下一个云计算市场 一位数据挖掘工程师眼中的“大数据与企业的数据化运营” 揭开“iOS in the Car”的神秘面纱 与Apple对峙:法律途径,并非是我想要 Halfbrick新作市场表现低迷:前作辉煌难续 专访豌豆荚:融资,会给技术团队带来哪些影响? 前端开发必备 40款优秀CSS代码编写工具推荐 新环境下的新体验是互联网硬件火热的根本原因 信息安全救星 ——变形代码产品ShapeShifter AWS启动大规模降价,引领行业降价潮流 Windows 8.1 Update 1最新版的截图再遭曝光 2013年软件领域因缺陷导致的五大事件 专访AMD技术高管 详解Kaveri技术性能及新开发特性 网络的东西南北:从SDN到网络虚拟化 Bug让Chrome浏览器成了窃听器 关于CHM文件的菜鸟问题 各位帮帮忙,我的程序重要用定时器,怎么做呀? 为什么没法看贴子? 如何在PB8。0上创建可执行文件,,,,,,(请详细一点) 关于TStrings怎样去取值? 如何编程更改IP? 谁来帮帮我!!!!! 生成密码字典,有什么好主意呢?说说好么? 有关c++中何时分配内存的问题 急救!! 请教:有关列表框 谁有win98操作培训讲义,给我发一份到—— win2000下如何对并口进行操作? 请教IBM Open Class Libraries的问题 小弟高分求“Linux 0.02版”的源代码! 理解csdn,以后再不发政治问题的贴了。我的名字也马上改。 什么是流???(笑话) 讨论.net平台上的软件开发,请教高手 书和方法! 斑竹不要删这个帖子,别人给我做了一个FLASH网站,我放50分给他的:) 为什么看不到 关于拷贝函数 最老的帖子是什么呀?第一张帖子是谁发的呀? 我想使上下结构的网页框架位置不可以调(上方的导航条固定). WebLogic过期了,在线等待! 高手手请进!文本文件数据库表的问题?????? NOTES中如何实现这样的语句? 老板拿枪指着我,关于开共享,十万火急!! treeview控件中节点上鼠标右键点击的事件如何处理,急?!! WORD中使用VBA的一个问题 200分讨论,不够加分.关于QQ后台数据库设计如何实现,如何将好友的表关连,做到最小的数据冗余...... 请各位帮帮忙,很急! word 索引 求购或合作开发:中小型超市进销存、酒店管理源代码! 为什么我没见过panda_w、Kevin_qing两位版主,他们很忙么 有关软件项目管理的问题 初学者的低级问题,如何将字符串变为ASCII? 谁给我文章,我给谁分 有没有人能破解www.spedia.net里的spedia.exe啊? 着急!!!!!!!!!! 三维字符数组的问题?或二维数组合成三维数组,实现动态访问? 关于在VC里实现一些C++函数的功能的问题 如何开发鼠标指针??? 毕业了,都不知道以后会怎样,散分啊,基本上,来者有分! 我是一个新来的,记得刚来时这里是多么的友善,我呆一天都不想下去,但大伙都看看现在!!我一分钟都不想在灌水,大伙都退让一步吧,求你 我们和别的网站合作了个页面。程序是放在我们服务器上的。。对方要我们把那个地址给他们解析成他们给我们的域名。就是在我们的服务器上建 VB中MHFlexGrid调整栏宽的属性是那个? 谁知道IDC_...和IDD_...有什么区别????? 这是什么错? 我们和别的网站合作了个页面。程序是放在我们服务器上的。。对方要我们把那个地址给他们解析成他们给我们的域名。就是在我们的服务器上建 还可以幽一下默吗? PVC110/100指外径和内径吗? 万用表在测量电池电流时为什么要加上一个电阻?万用表里面有很多个内阻电路组成,为什么在测量电池电流时要加上个额外电阻呢?这样起到什么作用?不加上去可以直接测量么? 电话说给个传真信号是什么意思 pvc塑料管外径90内径多少 我到淘宝买了一个灭蚊器,是紫外光的那种,听说紫外线对皮肤不好,还有就是灭蚊器有辐射吗?如果有那放置多远合适呢,我们打算要小孩,放远点有影响吗?如果放近点,会影响身体及胎儿吗? 某人用F=100N的恒力,通过滑轮把物体M拉上斜面,如图,力F方向恒与斜面成60°,若物体沿斜面运动1m,他做的功是多少J?为什么是 W=Fscosa+Fs=150J 求解一个电子称缺斤少两的问题看到商家 电子称上一个不锈钢的铁盆子 可是重量显示零 那我们买东西称重的时候 会不会多出那个不锈钢的铁盆子 重量和价钱?发现现在商家电子称基本都缺 PVC口径160是什么意思?160是内径?外径?既然有大口径排污管,那有没有排气管呢?我有个工程里用了外径160的PVC管排放70度废气。怎样可以找到讲述这个问题的规范? 求气流灭蚊器的原理与电路图 我想购买买水果用的电子称我在深圳松岗,想购卖买水果用的电子称!哪里有便宜实惠的电子称卖啊? 筷子的动力臂是哪里到那哪里?为什么阻力在筷子头? 这是一个电路图,谁能告诉我图中绿色的代表什么装置啊?回答的专业一点啊,这是什么装置,有什么作用.型号等等不是空开,这个东西在空开和UPS电源之间.主要是那个绿色方块是什么东西.这个 短路电流大于断路器极限短路分段电流,断路器还能起到保护作用吗? 概括名义GDP和实际GDP的关系(联系和区别) 谁能告诉我PLC的控制电路图是什么样的啊?PLC设计要求有主电路图、控制电路图、梯形图、I/O接线图.其中的控制电路是什么样的?大概是什么样的.画些什么东西在里面? 在直角坐标系xoy中,一次函数y=三分之根号三x+2的图像与x轴交于点a,与y轴交于点b.问 在x轴上是否存在点是否存在点p,若存在,请直接写出点p的坐标,若不逊在,请说明理由! 家居使用PPR水管多久会产生有害物质家里准备装修,选水管是个难题,很多朋友都建议用铜管,不过价格高,想了解一下PPR水管到底有何利弊? 60V电动车,一般保持在多少V之上对电池好?1,配60V的电动车.行驶到多少V算是欠压?2,一般要保证多少V之上对电池好?3,欠压是指行驶中的电压,还是停车时的电压?4,我一般下班回来行驶电压在54~55V 如图所示,有一重为5牛的物体A以2米每秒的速度,在水平地面上做匀速直线运动,此时弹簧测力计的示数为3牛 求 拉力F的大小 物体A收到的摩擦力 2秒内拉力F做的功和功率 装修ppr水管4分 一般家用够用吗请问家用4分ppr水管够用吗,家住深圳 19楼,家庭成员6个人,水压如果低的话够用吗?还是要6分管? 电动车4电池64V好还是5电池60V好?4个*16V,5个*12V,还有12V24AH和12V32AH,哪个好,有什么区别? 中国2010年GDP增长率多少 一根方钢,长是31.4cm,底面是边长为10cm的正方形.如果把它锻造成底面半径为5cm的圆柱形钢材,那么这根钢材长是多少cm? 电动车(5个电瓶,60V)充电一次,需要多长时间? 有一重为10牛的物体A在拉力F的作用下,以0.4米/秒的速度在水平地面上做匀速直线运动.此时弹簧测力计8牛拉力F 要把一个底面半径是4cm,高是5cm的圆柱形钢材,铸造成一根横截面是边长2.5cm的方钢这根方钢长多少厘米 万用表能测量直流电流吗```测量电瓶的 电池并联的问题电池并联后会增加总的容量? 总的电流输出会不会增加? 急,——在直角坐标系中,一次函数y=根号3/3x+2的图像与x轴交于点A在直角坐标系中,一次函数y=【(根号3)/3】x+2的图像与x轴交于点A,与y轴交于点B,过点O作OC⊥AB于C,求C点坐标. 生物学习行为与先天性行为的联系与区别 中国2003~2013,10年的GDP增长率各是多少? 此图我看不懂.谁能告诉我啊? 生物的一道关于先天性行为和后天学习行为的问题大多雌鸟在进入成熟期后都会唱一种本种鸟特有的歌,以显示其性成熟或宣告它拥有的领域.鸟的这种唱歌的行为是先天性行为还是后天学习 电子秤校准时砝码怎么选择?如何根据我的秤的量程和精度选择砝码?举个例子给我吧。什么选F2之类的,搞不太懂。有什么标准没有啊? 同一幅图中,一条线的长度是50米,但标注是50000;现在我想画条线,以米为单位,我只需输入50,长度就能和前面那条线一样长,而且标注时为50,怎么操作? 初二生物学《学习与评价》题目1.运动史能减少两骨之间的摩擦的是?把两块骨牢固地联系在一起的是?我们通常所说的脱臼,是指什么从什么中脱落出来的迹象.2.骨的运动要靠什么的牵拉:当 电子秤校准时砝码怎么选择?淄博砝码 谁知道CAD3维画的图,如何标注? 手机在太阳下晒半小时会怎样? 小电子秤怎么用砝码校准,0-1KG的如题,或者用别的,因为发现有个秤和其他的称量结果不一样,要校准了.怎么校准呀?有砝码的 梦见自己被洪水淹没了是预示什么呢?在我身体不好的那段时间,总是常常做梦,有时还会在半夜在梦中惊醒,常做一种怪梦,在梦时被迷,自己像是在无尽的虚空中,不断的堕入无底的黑洞,但意识 哪里有没有60V电动车电池买 在探究弹簧的形变与外力的关系的实验中,将弹簧水平放置测出其自然长度度用记录的外力F与弹簧的形变量X做出F-X图线.图线不过原点坐标的原因是? 有关GDP的定义GDP is defined as the market value of all final goods and services produceda.\x05by the citizens of a country,regardless of where they live,in a given period of time; this definition focuses on GDP as a measure of total income.b.\x0 60v电动车少一快电池可以用吗60V的电池是5块,现在一块坏了使用的是4块电池 也就是48V 不知道有什么危害或者那些注意的! 弹性形变与外力大小的关系定量实验的具体步骤是什么?实验结论又是什么? 万用表测5号电池用哪个档用的是指针式万用表,我的是这样的。 有人根据万有引力公式:F=Gm1m2/r2金行分析:对于两个质量一定的物体来说,台衙门见距离越小,引力越大,若两个物体之间的距离等于零时,根据计算,两人间的万有引力是无穷大,显然不对,那么错 弹性形变的大小与外力的大小关系的定量实验的实验步骤是什么?结论又是什么? 人拉绳,那么人也受到绳的拉力?题目大概是这样:一个人站在车上拉绳,绳子在墙上的一个定滑轮上,绳子另一端接到车子前面的动滑轮.老师说车和人一共受到3段绳子的拉力..为什么人拉绳,人 对于万有引力公式F=Gm1m2/r²,下列说法中正确的是 A 当两个物体之间的距离趋近于零时,F趋于无穷大.这句话为什么不对? 在探究弹簧的形变与外力的关系的实验中,将弹簧水平放置测出其自然长度,然后竖直向下悬挂,在其下端施加竖直向下的力F,实验过程是在弹簧的弹性限度内进行,用记录的外力F与弹簧伸长量作 自来水PPR水管,当内径烫小后,不用水时会不会引起水管噪声?我家的自来水管经常有嗡嗡的噪声,最主要还是早晨和晚上,通常是不用水的时候,当然,用水时也能听到水管中水流的声音,那是一段 牛顿是如何推导出“万有引力公式F=GMm/RR”的?不希望只是只言片语式的回答!!! (1)我国最近10年的国内生产总值 (2)分析这十年的国内生产总值的变化趋势 (3)如果国内生产总值到2020年比2000年翻两番,那么2020年的国内生产总值是多少?增长了百分之几? PPR水管热熔的时候冒的烟,对人体有危害吗?有多大 笔记本电脑温度过高会爆炸吗?综合温度 如图所示:用滑轮组拉着一只木块P沿水平面以0.5m/s的速度匀速向右运动,此时弹簧测力计的读数为4N.若每只滑轮重1牛,绳与滑轮间的摩擦不计,在2秒内拉力F做的功为多少,克服摩擦力做功多少? 谁知道手提式热熔机/PPR水管剪怎么卖的 请给传真信号音是什么意思?电话上按哪个键?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘