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

如何在APP目录下添加文件夹?

编辑:说三道四文库 发布时间:2017-12-13 02:23
HTML文档下载 WORD文档下载 PDF文档下载
谢谢!
用FSO对象

Dim fso As New FileSystemObject, fldr As Folder
   Set fldr = fso.CreateFolder("C:\MyTest")
   MsgBox "Created folder: " & fldr.Name
或者是安你说的
Dim fso As New FileSystemObject, fldr As Folder
  Set fldr = fso.CreateFolder(App.path & "\MyTest")
  MsgBox "Created folder: " & fldr.Name
 

 
把以下申明放在公共模块中

Public Type FILETIME
  dwLowDateTime As Long
  dwHighDateTime As Long
End Type
Public Type WIN32_FIND_DATA
  dwFileAttributes As Long
  ftCreationTime As FILETIME
  ftLastAccessTime As FILETIME
  ftLastWriteTime As FILETIME
  nFileSizeHigh As Long
  nFileSizeLow As Long
  dwReserved0 As Long
  dwReserved1 As Long
  cFileName As String * 260
  cAlternate As String * 14
End Type
Public Type SECURITY_ATTRIBUTES
  nLength As Long
  lpSecurityDescriptor As Long
  bInheritHandle As Long
End Type

Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Public Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Public Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long


Public Function mypath(path As String) As String
  If Right(path, 1) = "\" Then
    mypath = Left(path, Len(path) - 1)
  Else
    mypath = path
  End If
End Function


在你要实现添加目录的sub 或 function 中添加以下代码:

Dim hSearch As Variant
Dim attr As SECURITY_ATTRIBUTES
Dim filedata As WIN32_FIND_DATA

hSearch = FindFirstFile(mypath(App.path) + "\目录名", filedata)
If (hSearch = INVALID_HANDLE_VALUE) Then
  If CreateDirectory(mypath(App.path) + "\目录名", attr) = 0 Then
    debug.print "error"
  End If
Else
  FindClose hSearch
End If


上面的也太麻烦了,用FSO吧,不过记住要先引用script对象
用最古老最实用的mkdir()如何?
关注!!!
MKDir (app.path & "你的路径名")
【开源推荐】PredictionIO:构建预测功能的机器学习服务器 只需4步 百度SiteApp助力京华网移动版落地 Windows Azure开放公测5个月的收获 RDS添加PostgreSQL支持 几家欢喜几家忧 首届智能硬件峰会:解读硬件创业机遇与挑战(下) 平台与技术专题论坛(二):游戏开发实践分享及IE11新体验 看Twitter上市后的入职面试题 六届中国大数据技术大会PPT精粹(三) AMD推多款异构计算开发工具 着力打造APU软件生态系统 Ceylon 1.0发布:又一个“Java语言替代品”? HTML5开发工具:英特尔XDK New 苹果公司为何“情系”PrimeSense 微App专场:不同平台下微App开发运营那些事 25载工程经验,HBase七年——BDTC2013讲师Michael Stack 或许对你创业有所启示:10个英国快速增长的科技创业公司 小米游戏中心10月报告:分析各种手游活动之优劣 欢网王智勇:传统电视厂商须补互联网基因 透露与百度合作细节 支付宝声波支付之初体验 首款使用HSA架构的Kaveri APU、多款异构计算开发工具APU13上齐亮相 分享10段实用的HTML5代码 十条建议送给那些初入职场的小白 这是要灭掉DC的节奏?谷歌欲推Android摄像头API 支持RAW 专访产品经理Markus Spiering:冬眠多年后的Flickr如何在夹缝中生存? 创业与投资专题论坛:硬件的现在!创业的未来? 造就Office新用法:微软推WP应用 可遥控Office文件 成为一名PHP专家其实并不难 前富士康CEO程天纵:创新来自长尾,创业源于创客! 最危险的开源项目——比特币 11月20日:微软正式发布Windows 1.0 回顾历代Windows版本界面 微软CEO鲍尔默卸职前在股东会上的最后演讲 微软改革员工排名制度或将开启新篇章 知道为什么会出现iocopyout_chksum吗? 谁能给我《中文ACCESS开发指导手册》?? 从网上下的读不了 请问一个小问题 关于用Preferences存取注册表的问题 参数类型的问题 谁知道用什麽软件可以播放扩展名为1MP3的文件?(100分) 请问把一个二进制文件转换成文本文件,再把文本文件转换成二进制文件,该怎么做?求源代码?或有该代码的网址链接,多谢!不胜感激! main()函数里的两个参数argc、argv是什么意思?请赐教! 用HTTP上传文件,那位做过实际的应用的,帮忙... 大家上微软新闻组吧,感觉比这里快。 用jfreechart画出的图形,里边的汉字不太清楚,有没有解决的办法,要是图形小一点,模糊不清,难看死了,请问有没有解决办法?? 在vc.net中为什么新建的一个dialog,上面有双重的图象啊? asp&oracle问题 .net2003中vb升级向导有没有接口可以被其他程序调用? 以二进制方式打开文件,用ftell计算文件大小,为什么有时对有时不对? CHtmlEditView中如何实现表格的单元格大小调整? 城市夜归人 请问把一个二进制文件转换成文本文件,再把文本文件转换成二进制文件,该怎么做?求源代码?或有该代码的网址链接,多谢!不胜感激! 如何在一个网页中使用多种样式表显示多种效果? 直接用http调用代理怎么进行权限设置 CHtmlEditView中如何实现表格的单元格大小调整? 各位老大。。。如何用asp加密解密中文字符串,小生有礼了! 这段程序怎么不能运行?thinking in java 我的应用程序启动连接数据库时自动拨号,怎么去掉?? 谁给讲讲多线程!进着有分! 菜鸟问:jbuilder9比8都增加了什么功能?做了哪些改进? 给菜单加的快捷键怎么不管用呢 不能发mail 请问:这个存储过程哪儿不对呢?为什么执行不出来呢? 在dw中图片格式问题! CHtmlEditView中如何实现表格的单元格大小调整? 98启动的时候出现”press any key to continue"! 怎样将ASCII串转换成十六进制数? 在函數與過程裡中止其執行用什麼命令? CHtmlEditView中如何实现表格的单元格大小调整? java程序员都得会rose,懂UML吗? Red hat 7.2下编译程序出现的问题 rh9.0 怎么设置共享网络模式(NAT)? CHtmlEditView中如何实现表格的单元格大小调整? XP注册表文件名和保存位置?如何察看其他系统注册表的内容? DLL中的PROPERTYSHEET中使用CHTMLVIEW出现的问题 把编译好的程序作为windows服务注册后,启动时报错 Red hat 7.2下编译程序出现的问题 在客户端提交表单出错 win2000 server 管理员密码如何修改? 如何将 &#20013&#22269&#20154&#27665 转成 汉字"中国人民"? oralce导入问题 这里没有人用WEBMATRIX吗,在WEBMATRIX下如何引入EXCEL组件,俺要跳楼了。 wuxq7311(小清) 近来! 把编译好的程序作为windows服务注册后,启动时报错 用ip>"211.56.154.106" and ip<"211.56.154.210"能否控制访问的范围? 寻找广商本部2008年5月底商务英语中级口语partner 巢谷传中,“业成而不中第”的“第”的解释 “所至友其秀杰”的“友”的解释 “朝廷稍奇之”的“奇”的解 家乡的变化真大啊的啊读什么音(呀 哪 三十六洞天 七十二福地怎么翻译成英语? “36洞天,72福地”这句话从何而来 为什么苏辙说巢谷非今世人,古之人也 近年来祖国或家乡发生的变化 下面关于Na2CO3和NaHCO3性质的叙述,不正确的是A.在水中的溶解度:碳酸钠>碳酸氢钠 B.热稳定性:碳酸钠>碳酸氢钠 C.等质量的碳酸钠和碳酸氢钠分别与足量的盐酸反应,前者产生二氧化碳少 D. 我要一篇:介绍自己的英语作文,我叫倪犇(ben),14岁.读初一在(6)喜欢电脑,体育,要翻译,给 They carry the pumpkin to the little bears'house.用英语怎么说 a credit card wouldn't be any good 韩国人战殁者遗属要求靖国神社取消合祀调查称希腊民众生活质量比经济危机前显以情报部长质疑伊朗谈判诚意 吁美制裁2047年:全球高温临界点?挪威称应联合国要求将协助销毁叙利亚化美专家:进口产品及食品易导致美国儿童俄空降兵部队摸黑赶路不慎引爆炸弹 致日本“无性症候群”涌现 恐陷“绝种”报告称美国600万年轻人无所事事 不安倍7小时长会后品尝软柿子 满足称“法国媒体再曝美国监听法国驻美和联合国运动基因传承新BMW 316i见证深圳车市二十年马自达创驰蓝天树立汽车技术新标杆网曝青岛城管强拆军区大院花城大道东延线断头路即将打通 可直通食物治百病 15种神奇食物胜过补药五旬环卫工被丰田吉普撞飞 左腿膝盖骨外来务工人员跌下三楼 钢筋穿臀过大陆游客吃隔夜饭风波 台湾高雄知名餐台股9月10日开盘上涨25.1点刚出生女婴被遗弃天桥下 父母留纸条望炮灰生存手册杀戮空间丧尸游戏异界之风流邪君神大人幸福末世龙鼎战龙刀之神皇武侠大轮回韩娱之顺手而为甘巴卡布热山旅游麦积山植物园旅游极地体验馆旅游密印寺旅游先农坛旅游古代建筑博物馆旅游上清宫旅游盖斯墓旅游钻石水道旅游措木及日湖旅游寻梦园香草农场旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘