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

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
移动游戏峰会(上):小团队如何做出大制作、游戏防作弊攻防战 深圳微信开发者大会:拒绝概念 这次只谈“怎么做” AMD应邀出席HPC China 2014,重磅推出新一代Firepro-S系列高性能显卡 你就是主角,MDCC 2014交流对接活动回顾(组图) 解读最具O2O属性—哈根达斯微信企业号的成功之道 值得Java开发者参与贡献的十个开源项目 LokiJS:纯JavaScript实现的轻量级数据库 OpenStack第七次北京Meet Up:谈私有云现状 中国电信携手电商打造跨界O2O联盟 【MDCC 2014】移动开发技术与平台峰会(下):系统演进、应用数据泄露风险 惊喜太多 IntelliJ IDEA 14正式发布 欧派、南航、招行、哈根达斯等加盟 深圳微信大会第二批讲师议题公布 【MDCC】用友高级副总裁谢志华:企业移动化的变革与挑战 HTML5定稿了,为什么原生App世界将被颠覆 走苹果的路子!Jawbone推低端健身追踪设备 专访POWER 8编程挑战赛选手吴亮:集众家之长, 激发算法性能极限 微信沟通接口上线,开启移动应用与公众号的连接 【特惠最后1天】参加深圳微信开发者大会赠书及全套讲师讲义(附大会最新日程) 编码运行两不误!KZPlayground,Objective-C中的Playgrounds 专访PopCap:AR是数字与物质世界的调和剂 【多图】Github编程语言分布统计:JavaScript称霸 【最具价值CTO评选秀】途家美女CTO杨孟彤:不创业会后悔 2014腾讯WE大会:开启未来的五大科技发展趋势 TIOBE 2014年11月编程语言排行榜:R受大数据影响跃至12位 深圳微信开发者大会全部议程出炉 最后仅剩30个参会名额 智能硬件:一半海水,一半火焰 聚焦SDN、NFV、云安全基础架构等技术热点 2014云安全联盟高峰论坛即将召开 富Web应用开发的七大原则 应用原型设计毫无压力!开源Sketch插件管理器Sketch Toolbox 【MDCC专访】友盟副总裁焦岳:从36万款App,看今年的热门领域 一切只为经典 微信开发者大会前瞻(附议程) 为什么我存储图象的时候小的bmp能存储大的却说invalid blob length 一个字符串的基础问题 求助,关于DropDownList控件的问题 请教一个简单的SQL语句的写法! 请问我把两路PCM的样值点相加除2得到混音信号,可是噪音很大,应该怎么消除呢(有代码) 大家快看电视新闻,中国一艘潜艇在海上出事了!紧急发布! 各位快请帮帮忙呀!Session问题!!! 如何在代码中添加新增lookup字段??? xp系统问题!高分等答案 pl/sql中函数与过程有什么区别 关于事务 LIB 在线等!!!!!!!! ADO+SQL Server 如何用VB编写发邮件的程序? 数据库搜索的一个怪问题 怎么得到从另一个页面传来的参数 Full Text: Bush Speech Aboard the USS Abraham Lincoln 请问 怎么实现变量互换阿 我是新手~~~ FAT错误,请问如何修复? flashget那个小方框怎么做? 谁有《UML与Rational Rose2002从入门到精通》书的选配光盘 急!!!随机函数 FAT错误,请高手帮忙修复。 内部消息(我对我说的负责) 不定时开放FTP服务器 急,求救!!! 一个很简单的问题. 为什么 “基本图象处理代码(1) ehom(原作)”对grayscale不对? linux下的oicq 有马? 帮帮我,好吗,感谢,非常 help,help,sql query question? 大家认为考研考进其他学校(且跨专业)的可能性有多大 显示图片 数据库搜索的一个怪问题 共享上网问题!急~!!!! 句柄和指针有什么区别吗? 大虾快进来,帮帮兄弟们!!!再现等待!高分!! 请问C++Builder的程序中能不能使用*.mdb类型的数据库? 帮帮忙!!个位大哥 请问用java编程能实现数据采集的程序并进行传输(即c/s模式)吗? 请问什么命令找开一个窗体的? 请问:如何从文件中获取icon并得到HBITMAP句柄? 如何在客户端打开一个word文件 MVP是个什么概念???? linux启动不了,Bringup loopback interface时出错,请问是什么原因? 帮帮忙!! 我海军一艘潜艇失事 70名官兵不幸全部遇难!! 明天朋友结婚,征集整人的法子 是谁删除了我贴?? 而且没有跟我说一声!!! 白天工作,晚上溜狗,爽呀!比大暑天喝了冰镇雪碧还爽! 我的jsp服务器是iis+TOMCAT+win2000pro 不知怎的每次用不了多久就显示出 网页无法显示 目前访问该 Web 站点的用户过多,我只是自已用怎么 步测一个圆形花坛周长,两人的走向和起点完全相反,一人每步长54厘米,另一人每步长72厘米,两人脚步有重合走完一圈后只留下60个脚印,这个花坛的周长是多少?(答案是21.6米,)急! 银行4.8的利息是什么意思 这一个单词译中 奥运会举重比赛时的杠铃片有几种重量 英语翻译 英语翻译mumble 作无齿地咀嚼之意时,应译成怎样的拟声词?比如:咕噜咕噜等等 利息几分几厘什么意思 雪是什么形状 图 英语翻译the score was nothing like Strainsky's earlier pieces,Rather,Rite introduced a complex and unpredictable new style,rather在这句话中是什么意思, 年利率4.5%,月利率3. “明后天的样子,“我明后天的样子来找你,”这句话里,“明后天的样子,”是确定的指明天和后天吗? 翻译一个单词엔돌핀 是什么意思? 书的总页数一定,已经看的页数和未看的页数.是否成正比例?理由,为什么,他们是不是两种相关联的量,比值是不是不一定? 鹿的外貌是什么 英语翻译Alexandros 汉译英:高温烹煮火鸡两个小时 Cook turkey ( ) ( ) (汉译英:高温烹煮火鸡两个小时Cook turkey ( ) ( ) ( ) ( ) ( ) for tow hours 疲惫的近义词和反义词 人在走路时,对地面的压强会产生变化吗?为什么? 书的总页数一定,已经看的页数和未看的页数.是否成正比例?用因为所以说比如小新跳高的高度和他的身高。小新跳高的高度和他的高度,不是两个相互关联的量,所以小新的跳高的高和他的 完美的反义词和近义词 人站在地面上,2只脚对地面压强为a帕,那一只脚对地面压强为几帕?为什么?2只脚都站时,一只脚对地面压强为几帕?为什么? 英语翻译Cook turky ----------- ------------ ------------ ------------ ------------ for two hours. 《核舟记 》桃核上雕了多少人和事?雕刻者是怎样巧妙的安置这些人物的?本文虽名为“记”,是不是记叙文?和桃花源记是同一文体吗?为什么? 某人从双脚站立变成单脚站力,他对水平地面的压强_____,压力_____ 把下列名词变为复数 shirt watch egg tomatopotato jacket plane fishdeer hero radio pianofamily child mouse busfoot tooth Chinese GermanAmerican knife wife Englishman 一本书的总页数一定,看的天数与平均每天看的页数成正比例吗一堆煤的总质量一定,烧去的煤和剩下的煤成正比例吗三角形的高一定,三角形的面积和底成正比例吗》?都讲讲 将8mlNO2和O2的混合气体通入倒立于水槽装满水的量筒中,充分反应后,剩余气体为1ml.求原混合气体中NO2和O2的体积比.用差量法解此题! 把下列名词变成复数teacher,desk,cap,dog,house,bus,box,peach,student,bed,city,scarf,hero,man,sheep,child.bus,dictonary,chair,uncle,driver,sheep,knife,inan,vase,watch,horse,woman,match,horse,woman,match,goat,party,child,bike,map,foot. 核舟记中雕刻家雕刻了多少人和物 我现在在银行存5年定期100000元,5年后我能得到多少利息,怎么算 aunt /never /makes /cake /a /birthday /my / . 核舟记的雕刻者是谁 蒙语里 qi qi mo mo ge hai yi he sings so fast that i can not listen 蝉是怎样把口器插进树皮的? 各位翻译高手能不能帮我翻译几个词?International headquarters and Defence Organizations ActVisiting force Actprescribe processremediation notice 1.Your brother need his notebook .can you( ) it to him?2.Look( ) the map .it is a map( )china 怎样分辨蝉的雌雄,口器有区别么? e injury never Mo Budiao 名词的复数形式如何变化?如题 用所给单词的适当形式填空.1.every sunday,my mothe likes_____(wash) some clomes. 英语翻译什么是:“plug into the system from more than 8000 prots.” 名词的复数形式怎么变化? I gave him a book 直接宾语是不是只是book a是修饰book的 但为什么许多书上都写直接宾语是a book啊 能不能把所有颜色单词给我翻译过来谢谢了 Read the ____(需求广告)____(介词)your sister. I gave him a book 直接宾语是不是只是book a是修饰book的 但为什么许多书上都写直接语是a book啊 英语翻译1、工程中心 2、总经理办公室 3、制图中心 4、客服中心 5、会议室6、五行工艺 有一个"日",由七跟火柴棍构成,现在给上下两根接上电源(我们假设他能导电),如果其余的火柴棍上各穿一个电阻,为了方便起见,我们可以从左到右,从上到下,就像读书一样,依次标注为1,2,3,4,5,那 He does that every Sunday.(用next Sunday改写) He( ) ( ) ( ) ( )that( ) Sunday. 英语翻译这些次分别是:终生成就奖(就是颁奖典礼用词啊),最佳新人奖,医院院长,我们要做一个diolauge,很紧急, 不同电压设备的同一电路的链接我们车间是380V的电源,有一些设备的额定电压是220V,应该怎么样去连接呢?是不是需要变压器啊? 连词成句:gave,him,a,I,two,age,book,days(.) l( )12.you( )11.your brother( )13.填空 一个人双脚站立与行走时相比较,地面受力面积之比为 __,地面受到的压力之比为___,对地面的压强之比__. That you gave him such a book to read meant _______ .A.being wasted his time B.to be wasted his time C.wasting his time D.to waste his time 翻译包括选项并分析. 人站立时一只脚和两只脚对地面的压强一样吗? i donnot know (what还是how)to cook for dinner 两年期存款利率是4.40%,表示什么意思 呀咩嗲是什么意思 格陵兰岛取消铀矿开采禁令恒天然调查:无肉毒杆菌风险 应改进生省委常委分赴教育实践活动联系点参加指台\"立委\":美国这种邪恶国家一定男子“拍卖初夜”以2600美元成交 外交部:日本应停止渲染外部威胁 说明金砖国家共议“气候变化对粮食安全不利安徽宁国副市长看望百岁老人 疑似PS美驻吉尔吉斯使馆收到不明信封 内装白“萨卡什维利时代”结束 格俄关系被指韩国外长称韩日关系问题本质是日错误历韩国外长称韩日关系问题本质是日错误历“基础四国”呼吁发达国家兑现减排资金天降“救命钱” 浙江金华警方顺藤摸瓜漓江入选全球最美15条河流 成中国唯借“欧锦赛”代理境外赌球网站 浙江一美国脱口秀主持人就“杀光中国人”言论俄媒:法国和荷兰部长将用带语音编码手日本厂家用世界最薄面料 制作出仅8克中方回应澳政府对华为禁令:希望提供公中方对国际原子能机构与伊朗积极互动表民警持盾牌将其控制辽宁省失信被执行人白癜风具有遗传性男子坠桥 路人挡车救人解读:2014年40次国务院常务会议和平区文体西路102号,下水道反水2进驻茂业百货奥莱店建议增长12.5Kg以内最佳节日暴饮暴食或导致心梗突发3D选号讲究全国首例检察院告环保局阿阳鹊桥会 周四等您来泰好玩官员“拒绝提拔”是一封举报信汽车颠簸等都可引发老人骨折“我想把我的治疗肾衰的食谱转交给他”户籍人员同等就业权利“深港通”接棒“沪港通”希望与梦想齐飞 感恩与奉献同在女童输血染艾滋“妈妈,我很痛我不想活今日汽修厂着了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘