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

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
北森CTO张庆化:利用Spark实现数据驱动价值 大公网冯咀志:站内搜索系统的PowerLinux迁移实践 2014移动开发者必备的十大应用测试工具 前《连线》主编Chris Anderson:创客就要DIT UC多屏战略 推出电脑版和电视版浏览器 请问怎么吧自己打包生成的安装文件的图标换成自己想要的图象而不是默认的那个电脑图象 我的机器怎么进不去BIOS,急急急!!!!! 开机显示问题 如何用文件系统实现类似数据库的功能? 低级问题,进来要几分吧!! 请高手帮小弟 初学linux 明明建立了一个目录,为什么提示没有哪个文件或目录 如何将打开的浏览器实例与TCppBrowser联系在一起? 如何找到app的open事件??????? 那音乐让我想到作文 200字 阅读的 读书笔记,读后感求《复活》,《巴黎圣母院》 春日的大概意思简短点 春日每句意思 懂望远镜的来单筒望远镜淘宝上艾斯基10X50和12 有谁懂望远镜话说.想买个望远镜去看演唱会.那位大人 谁懂望远镜的帮忙解答下!最近买了一款视场为90/1 什么之歌的作文(200字)紧急谢谢 有懂望远镜的么?淘宝上看到100~200的,还能看 广东湛江国资委官员被曝与女下属开房 韩媒称韩国海警截获三艘“非法捕捞”中塑料袋威胁欧洲环境 欧盟计划对其征收澳华裔女专家制乳癌病例数据库 拯救数美国新泽西一商场发生枪击事件 暂无人“少儿不宜”电影,劳驾给个提示呗李杰:老旧小区供热马虎不得图片新闻演唱会录音录像行不行?德货车冲闯圣诞市场致12人亡都市猎人难择路绝品修仙七号战场枭雄终结者广州博物馆旅游赣州文庙旅游龟角尾公园旅游赣州古城墙旅游郁孤台公园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘