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

指定文件夹-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, "请选择目录")
中国工程院院士、大数据专家委员会主任李国杰:能挖掘出价值的数据就是好数据 阿里飞天平台总架构师唐洪:飞天开放平台 百度大数据首席架构师林仕鼎:新计算时代 金山发布全系列IaaS平台 Google无人驾驶汽车与机器人组合,秒杀无人机 Google欲推新Chrome应用:适用于Android、iOS平台 comScore:美国市场苹果手机独占鳌头 Android和iOS双寡头垄断 一周消息树:新技术实现远程触摸和操纵实物 创新人机交互 研发周报:帮助网站转换的六大黑色星期五规则 【开源专访】JFinal作者詹波:以极简方式实现Web项目的极速开发 2013中国智能交通与大数据技术峰会:迎接交通大数据新时代 大数据应用技术(上):加速创新,重塑世界 英特尔百度携手推出首个跨平台应用商店 12月9日:计算机软件第一夫人Grace Hopper出生 触摸屏将成笔记本标配 电脑行业或将迎来又一春 触摸4G,你必须要知道的那些事儿 TIOBE 2013年12月编程语言排行榜:Transact-SQL冲刺年度语言 敏捷开发的6个实战经验 【图文】走近华为企业业务与支撑万人技术团队的云数据中心 《习惯联盟》陈晓冬:与京东云合作让我们没有后顾之忧 流计算与批处理同现:畅享大数据时代的开源实践 挑战和机遇并存:大数据时代机器学习与可视化 【企业开源系列】收发一条Twitter推文的背后 在IE11中更快地获得您需要的内容 暴露程序员身份的8个行为 英特尔创新应用大赛大评审!创新也有中国风 苹果面临一问题:正源源不断地失去优秀工程师 初学编程者必知的五个网站 大数据基准测试专题论坛:基准测试是一把尚未完成的尺子 大数据应用(下):应用驱动技术,DaaS创造价值 大数据研究与发展专题论坛:大数据在各领域中的应用及发展策略 sos!!求救!!!java运行时环境设置的初级问题!各位大侠帮忙了!!!! :-(( 關于delphi6的ActionMainMenuBar组件和ActionToolBar组件 的菜鳥級問題?? 李维的电子商务篇的第二章的例子没法运行,这是为何? 谁能告诉我学VC的步骤和教材啊,还会加分啊 如何将一个可以滚动的窗口的全部内容转换为BMP保存起来(如:IE)?(提供线索就有分)欢迎参与成果供享!!! 请教关于VsPrint Oracle8i Enterprise Manager Release 2.1 相当于ORACLE8.1.几啊? 使用ListView如何操作数据 ★★★简单问题送100分★★★:如何打印框架容器里的的全部内容,包括mschart图表,label,combox等? 我的DW里加入FLASH特效时为什么中文会变成乱码?我给分的............ 我感到天昏地暗、日月无光、前途渺茫、无心睡眠、精神恍惚、双目痴呆相恋8年准备结婚的女友突然和别人结婚了!我受不了了!我快疯了! 请教有关IE5带的ActiveX控件Dhtmled.ocx的98下安装问题 程序员与高级程序员到底那个好过 关于 delphi的一点东东 access一个日期时间字段是短格式的,用什么SQL语句改成长格式的? 怎样才能在主页中显示自己的qq是否在线?????? 有没有平面按钮控件 Interdev6.0 IDE 环境下无法使用MSDN access一个日期时间字段是短格式的,用什么SQL语句改成长格式的?? 大家来帮帮我想想?应该怎么样来删除呢!!!! 各位用VB.net的兄弟,请问你们使得是 Beta1 还是 Beta2 ? 迷周星弛的请来签名啊! 如何操纵RichTextEdit控件??? 我得到GIF图像的这一点的值,怎样得到它的正确的RGB值? 我想请问在CHTML(compact html)中如何对页面进行刷新。 各位老大,你们是如何找到工作的? 在VB.net中,如何实现VB6中的 set A=createobject("XXXX.XXXX") 诸位大虾救命,如何在EDIT控件中判断DBCS字符 !!求救!!对时!!! 在VC中使用Crystal report 8的问题 如何编写c程序自动对GIF图片设置大小 请教:鼠标在windows桌面上按键是否会引发某个事件? 查看DLL的输出函数 menu的问题 web的组件由什么来编写? 嵌入式数据窗口,怎样可以动态往里插数据窗口??? 在DELPHI中如何调用NETBIOS的API函数 AddNew 怎么用?- 怎么办那,啊? 问题标题前的绿色的对号是什么意思?是不是表示问题已经解决? 怎么学VC啊,菜鸟的菜菜的问题啊。 关于打印比较 提取汉字的拼音 四级挂了,给分,气死了 难题时时有,把它问诸位,不知哪位高手,今日肯帮俺------解决送个人照片(不知各位肯要否?) 刚考完英语四级,来这里发泄一下。同时送上300分! PHP和JAVA如何通讯? 请问哪里有 soft-ice for 2k 如何将字符串的首尾空格去掉??? 1分钟求解:与HEX()对应的把16进制转换成10进制的函数是什么? 怎样判断某个控件是button、edit还是combox、listctrl......? 5除=5分之1解方程 4.2X除1.6—14=0.175解方程 40分之7等于x加20分之70怎么计算?打错了 是40/7=X+20/30 (2x-3)(2x-3)=x²-6x+9 解一元二次方程 解方程4^x-2^(x+2)-12=0 解方程:4.8+2.1x=15.3, 2x²-2x-3=0 解一元二次方程急! 5/1X-4/1X=40 怎么解(方程) 解方程:20%X-5分之1=5分之4 4分之1X+3分之1=1又6分之1 1.(x+2)²-5=0 2.2x²-x-3=0 3.x²-6x-5=0 4.(x+3)²=2x+6 运用一元二次方程的方法解 x-5分之1x=40 解方程 解方程:5分之2+5分之1X=2 已知x是一元二次方程x的平方+3x-1=0的实术根,那么代数式 (x-3/3x平方-6x)/ (x+2-5\x-2)的值是多少?已知x是一元二次方程x的平方+3x-1=0的实术根,那么代数式(x-3/3x平方-6x)/ (x+2-5\x-2)的值是多少?《不好 35x-12=51 x+2.1x=1.55 3/4x+1/2x=75 4.2x除以2=12.6应用1、强强和年年同时从学校出发,沿同一条路去2000米外的少年宫,强强骑车每分钟行210米,年年走着去每分钟60米.多少分钟后两人相距1200米2、(这个不 解方程.2分之1X+3分之1X=20分之1 X分之0.5=0.8分之3 X:3.25=5分之1:4分之5 已知x是一元二次方程x的平方减二x减八的根,求代数式3x的平方-6x分之x-3÷(x+2- x-2分之5的)的指值 如果x+24=51,那么x-24=()写出思考过程 解方程 1x=(1-20%)乘(x+6)解方程 解方程14x+x=2520 五十一至五十五 1、方程-0.1x=1的解是________.2、方程3(y+2)=y的解是________.3、方程2x+3=4x-3的解是________. 14x-x=169怎样列方程 x-5分之2-3分之1x=5分之12 怎么解 1).-2X=3,2).x+2=-1,3)4X-3=9,4)4-2/1X=5,给这几题解方程~.. (1)化简求值:2x^2+14x+24分之x^2+16+8x,其中x=-6当x=3,y=-2,求x^2-(y-1)^2分之x^2-y^2乘以x^2+2yx+y^2分之(x-y)^2-1除以x^2+xy-x分之x^2-xy的值、怎么做, 用配方法解方程 (1) 2x平方-4x-1=0 (2) 4分之1x平方-6x=3=0 1又3分之1x+8×2分之1=16(解方程) 解方程 x(x+1)(x²-2x-4)=0 x³-2x+1=0 x的4次方+8x³+14x²+8x+1=0 4分之1x除以百分之40等于8分之5 m为何值时,一元二次方程m(x²-2x+1)-2x²+x=0(1)有两个不相等的实数根?(2)有两个相等的实数根?(3)没有实数根? 解方程5/6*42-14x=7 0.7X1又9分子4+2又4分子3x(-15)+0.7x9分子5+4分子1x(-15)等于多少 已知一元二次方程x²-2x m=0若方程的两个实数根为x1、x2,且x1+3x2=3,求m的值 解方程解方程10x/2+12=14x/2 2乘7分之2+3分之1x=2.5怎样解方程, 已知关于x的一元二次方程x²-2x-m=0有实数根 解方程:4x+10=2x-5 解方程 6分之1x-12.5%乘7=3分之2 急,解一元二次方程:-x²/4+5/2x=0 解方程(10+2x)(76-4x)=1080 8分之1.[7分之1(6分之1X-5)-4]-3=2 解方程 一元二次方程x²+2x=5的根的情况下? 解方程13x—4十2x=4x—3 4分之1x÷2=8分之3 解方程 、、、谢谢 2x²-2x=5 (x+3)²=(1-2x)²两个一元二次方程的解, (4x+2x)/7=3解方程 4分之1x÷2=8分之3 x²+2x-5/4=0 一元二次方程 解方程:1/4x=-1/2x+3快,急 12分之1x+8分之5=4 解方程 解几个方程,①x(x+1)(x+2)(x+3)=3 ②x^4+8x^3+14x^+8x+1=0 ③x(x+1)(x^2-2x-4)=0 解方程,3/4X+1/2X=9/4 8一X的负倒数为19,X一97 x^2+2x+3一元二次方程的值为0则3x^2+6x-1值为 26-3x=5 怎么解方程?26-3x=5怎么解方程? 当x等于多少时,√x+√6与√x-√6互为倒数 已知m,n是一元二次方程x²-3x+1=0的两根,则代数式2m²+4n²-6n+2000的A2014B2013C2011D2012已知m,n是一元二次方程x²-3x+1=0的两根,则代数式2m²+4n²-6n+2000的值A2014B2013C2011D2012 用配方法解方程:(3x+5)(3x-5)+6x=-26 解方程:2分之1:3分之1=4分之1:x . 3:x=9:27 . 6:25分之9=5分之4:x .x:12=4.2:3.5.有4题,要过程. 0.75加25%X等于8分之7, 若一元二次方程2x²-6x+3=0的两根是α,β,求(α-β)²的值
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn