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

VB利用API创建文件目录

HTML文档下载 WORD文档下载 PDF文档下载
VB利用API创建文件目录
作者:李志东
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type

Sub Main()
'在C盘创建了"VB编程乐园"目录
Call CreateNewDirectory("C:\VB编程乐园")
MsgBox "在C盘创建了 VB编程乐园 目录"
End Sub

Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String
Dim iFlag As Integer
iFlag = 0
sPath = NewDirectory

If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If

iCounter = 1
Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1

'创建目录

SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub
回顾2013软件开发:JavaScript领风骚 京东“宙斯杯”创新应用大赛,百万奖金为“你”而等待 12306上的分布式内存数据技术GemFire Canalys:苹果、三星2014年仍统治平板市场 微软压力山大 Google和苹果的下一个战场 回顾2013科技界大事件:Mayer登Vouge杂志、Ballmer离职 《近匠》第03期:移动开发工具访谈,AVOS Cloud——后端的金刚钻 次世代视觉:Avegant Glyph智能眼镜技术解析 技术栈的选择:从Groupon转向Node.js、淘宝去IOE谈起 首席数据官:一个属于你的时代已经来临 盘点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现状与未来(二) VB6中不能使用ACCESS2000数据库??? vb中怎么调用dos命令 请问海星... 哪有visual age3.0下载? 有关FTP 我双击注册表编辑器出现"注册表编辑器被管理员禁用"是怎么回事?怎么解决? 如何更改Oracle显示日期的默认方式? *****高手请进****** ======================各位高手,看一下!UP也有分! 请问安徽的高程成绩什么时候可以查? 请问谁知道vb里面如何调用notes对象,怎么调用? 急急急,我好急,有没有办法先把记录集处理一下在绑顶到datagrid 请问为什么这一段XML代码运行不了???为什么???帮帮忙??多谢!! 请教有关手机方面的问题 连编好的可执行文件不能用 帮帮忙啊 哪儿有免费的jsp空间并且有数据库支持的?谢谢 客户机的WinSock控件采用TCP协议,如何使用预设的固定的端口? sos!Help me! 有谁知道怎样用Capwnd控件(用于捕获视频的控件)?? 请帮我看看,谢了 请问如何控制imagecombo控件的下拉高度呢? 能告诉我什么是回调函数吗?注册的系统回调函数中引入的参数能在别的地方得到吗? 在RicheEdit里的字体颜色都是黑色,能变成其他颜色吗? 请问在视中如何使主框架的某个菜单项变为不可用(代码如下,错在什么地方,如何改?)! 请教VFP中GRID的显示和取值问题 请教一些有关用ROSE进行UML设计的问题 高薪寻找合作者:医院信息管理系统 求救!!!!为什么必须多按reset键才可以启动?? 請教: WideString如何存入數據庫image字段? 如何判断一个字符串是数字串?要源码(无内容) 登陆某些网站后浏览器的默认主页不能更改,怎么办???谢谢 请教简单的API函数的问题 ! 简单问题,怎么样得到下拉列表的选项?????最好有简单的原码 主  题:高薪寻找合作者:医院信息管理系统 上海机械电脑有限公司??? 小弟刚刚开始自学pb有好多问题想请教各位老大 HW待遇到底咋样??? 谁在CB里面用过游标? 关于网络协议软件的开发问题,编译成什么形式? 我是个新手,请教Linux下面C编程,该怎么入手,该看些什么样的书?来则有分!!!! 高分求源代码!又谁做过票据打印的软件!帮忙给点源代码! 如何执行insert 语句效率最高 数据窗口相同记录的判断??? 关于网络协议问题 求救,怎么判断试用版的试用天数? 关于IE的问题,help~~~ 请各位老大帮忙啊 请问如何串行化一个COLORREF变量,急---谢谢! 急,急,急,数据库更新的问题 win98下的DrawText api函数与Win200Server下的有什么不用呢? 石油几十年后就枯竭了,有什么替代能源吗?地热,风能,潮汐,太阳能,主要用于发电.那我们现有的飞机,汽车,轮船,坦克,军舰,不是全不能用了 地球上有些什么资源,这些资源对我们人类有什么作用 生活中的能源有哪些? 石油枯竭后该用什么?·····用什么代替呀···· 地球为人类提供了哪些资源 生活能源消费与宏观经济的关系 石油会枯竭吗? 聚醚型聚氨酯枕头为什么有味道在商场买了个赛诺的枕头,回家后睡了一晚上,早上起床发现有一股难闻的味道,看到填充物是聚醚型聚氨酯,问下各位聚醚型聚氨酯有毒吗?如何能清除这种味道? 颜料属于涂料类吗?颜料的成分有哪些?跟涂料有什么不同? 有那位能比较详细的说明一下聚苯板与聚氨酯发泡板有什么区别? 聚醚型聚氨酯有什么功效? 几千年来,人类未能全部利用的化石燃料的能量到哪去了?能量守恒原理告诉我们,能量不会无缘无故的消失,这些未利用的能量是否散失到宇宙中去了?是否散失在空气中,对大气温度有影响?也就 地球上矿产资源枯竭的后果是什么 聚醚型聚氨酯是不是乳胶 东南亚的天然橡胶和棕-油产量居世界首位的国家是其中划横线的是我不认识的字~~~~~~~~~ “如果不加节制地开采,必将加速地球上矿产资源的枯竭.”“节制”的意思是:这么说的理由是: 聚氨脂和聚醚聚氨脂哪个好 求数列{n/n^2)的前几项和 用错位相减法完成(要过程) 关于所有矿产资源枯竭的,今天就要,急, 什么是聚酯 什么是聚醚 cn=(n-1)·2^(n-1),求此数列前n项和,用错位相减法演示一下, 数列求和公式中的错位相减法有什么特点的方法或者口诀啊! 2012年地球灭亡最近看见一篇报道,说马雅人预测的,因为马雅人曾经预测的日食也在100年后实现了?难道是真的吗?大家来谈谈....感觉很有意思,所以让大家看看! 东南亚地理介绍(详细) 数列求和错位相减法化简中间等比数列时怎么确定项数 聚酯海绵和聚醚海绵有何区别? 太阳辐射对人类生活影响的具体表现 聚氨酯泡沫填缝剂主要成份是什么 2012,地球会灭亡吗?根据 东南亚的自然地理 人类是怎样破坏地球的? 2012地球真的会灭亡吗?为什么现在发现这么多地质灾害~听说江苏要地震了是吗? 东南亚的经济发展是以旅游业为主,还是以加工出贸易为主?另外,东南亚经济包括转口贸易吗? 人类是怎么破坏地球的 聚氨酯发泡技术.黑料(异氰酸酯),白料(组合聚醚),混合发泡.要求密度kg/m³,发泡的时候黑白料混合要不要加水混合,三者之间的配比是多少,怎么计算的,计算的时候考虑哪些因素, 地理——东南亚人们为什么称马六甲海峡是沟通亚洲与大洋洲之间的咽喉?请说明理由 二氯异氰脲酸钠如何使用二氯异氰脲酸钠粉在喷洒消毒时怎样使用?一公斤二氯异氰脲酸钠粉需要多少公斤水?配好的液剂是否就可以直接使用,还有配好的液剂能保存多长时间?我问的是二氯异 人类为什么生活在地球上 人类在开发各种能源的同时,引发了哪些环境问题你应该如何解决 三氯异氰脲酸对鱼的影响? 彩涂钢板怎么涂?比如说涂聚氨酯和聚酯,是混到一块还是分别涂? 在人类开发各种能源的同时,引发了哪些环境问题?大家认为该如何解决这个问题?紧急提问!紧急提问!紧急提问!紧急提问!紧急提问!紧急提问!紧急提问!紧急提问!紧急提问!紧急提问!紧急提问! 蛋糕的温度海绵 美国人口仅占世界人口的4.6%,但为什么消耗能源占23% 生物要生存必须要有源源不断的能源供给,而这一能源主要来自? 高一数学,第十六题,过程详细点,(错位相减法) 耐高温隔热保温涂料特点北京志盛威华公司的耐高温隔热保温涂料的特点,请指教 东南亚国家中产天然橡胶最多的国家是()A、马来西亚 B、泰国 C、印度尼西亚 D、菲律宾 等比数列求和题在等比数列An中,S3=3.5,S6=31.5,求An 人类如何浪费能源和节约能源 东南亚天然橡胶的产量、出口量均居世界首位的国家是 等比数列,前n项和,通向公式.设正项等比数列{an}的首项是a1=1/2,前n项和为Sn,且2^10·S30-(2^10+1)·S20+S10=0(1)求{an}通向公式(2)求{n·Sn}的前n项和Tn 我想知道人类在地球上生存了多久了? 现在人类创造能源的速度能赶上消耗能源的速度吗? 化学烃的衍生物官能团的性质?有什么官能团 可以发生什么反应? 怎样清除衣服上的泡沫填缝剂?郁闷啊! 弄了一身都是,还拿纸擦了, 怎么办啊!不懂,请详细说明一下,谢谢 求高中数学数列错位相减例题 高中化学烃和烃的衍生物物理性质 地球给人类的哪些资源 生活中哪些地方需要能源?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn