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

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

编辑:说三道四文库 发布时间:2017-08-18 01:07
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 & "你的路径名")
惠普:第一财季净利12亿 同比仍在下滑 谷歌发布超高清触屏笔记本Chromebook Pixel 传谷歌正开发触屏Chrome OS笔记本 今年或上市 估值25亿 视觉社交网站Pinterest融资2亿美元 跨平台开发框架Xamarin 2.0发布 移动新趋势:扁平化设计 vs. 拟物化设计(上篇) 杂谈 App Store 之 HIG 与 Objective-C 为什么苹果三星将主宰智能电视未来? 罗永浩可爱多:Smartisan OS即将发布 春晚 VS. 移动应用:用户注意力统计报告 Twitter发布BootStrap 2.3版本! 面向对象编程从骨子里就有问题——看看名人大家是如何诋毁面向对象的 开发者及团队能从LibreOffice那里学到什么? 8000美元存储135TB数据:打造开源的存储硬件 Bing,每月27亿的有效搜索不及僵尸网络的一半 为什么说Amazon的James Hamilton是“可遇不可求”的? Facebook背后的数据团队 红帽将产品转移到Apache社区 Impala是如何提升3~90倍查询效率的? 云中保障数据安全及完整性必须防范的遗留问题 VMware推出移动性平台:VMware Horizon Suite 移动周报:全球最大校园Hackathon的参赛宝典 Unity3D首届游戏创意设计大赛开始报名 中国日报:向移动新媒体蜕变 C#五子棋程序设计 Mozilla宣布推出Firefox OS 面临四大问题 Ruby 2系列首个稳定版 Ruby 2.0.0-P0发布 微软改进Windows Blue搜索 系统或今夏推出 移动新趋势:扁平化设计 vs. 拟物化设计(下篇) 传奇程序员:Minecraft开发者Notch大神 让沟通更便捷 ConnectYard宣布推出全新的Web API 对汇编的渴望! 谁有Asp做的网站?100分奉上! 都进来看看 vc新兵问函数调用菜鸟问题 紧急求救!!!! 谁有delphi关于ado编程 的资料啊(要详细一点的) TreeView的问题,很实在的问题。 关于在PB上实现错误事件处理!!! 关于组件的停靠 用VB.NET连接数据库老是连不了,快精神分裂了,救命啊! 关于SendMessage(高分相送,紧急) 急!!!高手进! 在查找结果中如果某一字段的值相等,只取出其中一条的问题! squid的安装问题???????????????????? SQL语句问题? 冒昧求救,光驱不能使用,不能boot 我的主机总收到外面发的广告信息? 高分求助急!!! 见鬼了,我添加一个TServerSocket控件,然后编译出现:Declaration terminate incorrectly 有谁知道用哪款打印机比较好呢? 按钮BitBtn1上有图片,在图片上写字的问题。(在先给分!) cystal reports 8.5 english显示繁体问题,急,等待 Unix下用什么源代码检测工具比较好? 我的电脑出什么问题了?各位帮帮忙 界面导航如何分类? 怎样得到本机的网卡号??? %¥#问个小问题,知道的都来抢分啊 谁知道哪儿有支持认证的SMTP组件下载? 有什么软件能查看PE文件的? ADO问题!!!! 100分求购最简单的串口程序!需要详细注释! 怎么给大家份呀?to wyz_csdn等(500分诚征wav 转换到MP3的源程序(VC++的例子)) 在directshow中,不知道怎样对播放的画面的亮度进行控制? 如果深愛的人要離開你,是變心還是死亡好一點?(讨论) 贴了二次为什么没有人指教? 戒水快两年了,如今回来看看,物不是人非啦 新手一问 关于datagrid 修改数据的问题,帮我看看,多谢 谁有这两本书,请帮忙发到我的邮箱里,100分相送 到底应该怎么办? 大家好,如何打开DLL文件? 建议成立一个程序员协会 关于IE中图片的保存 VB 语言支持问题 高分求李维《delphi5.xDELPHI5.X ADO/MTS/COM+高级程序设计》示例源码!!!! 请yangshu进来!给妳点分!!!倒分! 请教各位如何实现dbgrid中按住shift多选的问题? 请问把sql-server7中的数据文件copy出来行吗? 找不到类,请大家帮忙解决,谢谢 异常处理问题 怎样恢复被损坏的"本地用户和组" 电风扇功率越大是不是风力就越大呢?为什么?请问二楼 怎么使产生的风能在功率中所占比例越大呢?请问三楼 为什么大口径风扇,风量大,风速小呢?为什么小口径风扇,风量小,风速大 请帮忙翻译"楚人居贫,到放而不治" 脲甲醛化肥包括那几种元素 电风扇风力大小的问题两台功率一样、转速一样的电风扇,是三叶扇的风力大还是六叶扇的风力大? 楚人居贫的答案 史贝美脲甲醛肥料工艺特点有哪些? 将碳酸钠和硫酸的固体混合6g放入烧杯中(已知烧杯的质量为20g),再加入36.2g稀硫酸求生成气体的质量为多少 膳食纤维素怎么用更好? 把一根长13厘米的铁丝做成一个腰长为5厘米的等腰三角形,它的底边长多少厘米? 火趁风威,风助火势,船如箭发,烟焰涨天.二十只火船,撞入水寨,曹寨中船只一时尽着;又被铁环锁住,无处逃避.隔江炮响,四下火船齐到,但见三江面上,火逐风飞,一派通红,漫天彻地.用一个字来 一个苹果含多少膳食纤维素 用一根20厘米的铁丝围一个等腰三角形,这个等腰三角形的腰长可能是多少厘米? 斗战神风助火势、风自火出,有点疑问,我是风罗刹~为了上述的两个技能将风墙改成了火墙~但是开了火墙后~风穿过火墙伤害还低些~弄得我在犹豫要不要火墙~ 一根2米长的铁丝,第一次剪一半,第二次剪去剩下的一半,如此剪下去,第10次后剩下的铁丝的长度为?B.(1/2)的9次方米C.(1/2)的10次方米D.(1/2)的20次方米 如何利用化学镀在铁机体上镀上金刚石 迈克喜欢拍雪景(用英语翻译) 将以根铁丝一半再一半地剪去,剪了4次后,剩下的正好是2米,这根铁丝原来的长度是多少? 请问哪里有免费下载环保型长效化肥聚脲甲醛的合成研究 求路遥 平凡的世界 读后感10篇 重赏~不要转载的 有一根铁丝,第1次用去它的一半少1米,第2次用去剩下的一半多1米,结果还剩下2.5米,这铁丝原来多长?用方程解 甲袋大米二十五千克七十五元,乙袋大米四十千克八十元算一算哪种大米便宜些 路遥《平凡的世界》两千字读后感我写不出来,二月七号就要开学了,希望你能帮帮我,因为这是要教给老师的作业,所以希望你是自己写的,否则我会挨骂的,我知道要你写两千字很辛苦, 楚人居贫讲了一件什么事 现在哪里的大米最便宜 路遥《平凡的世界》读后感,十分钟内高额悬赏! 什么是高纤维素膳食 大米能便宜点吗? 模仿《理想》第一段,生命是云,带来欢笑的风; 生命是.生命是.生命是.接下去写 "数人饮之不足,一人饮之有余.请画地为蛇,先成者饮酒."的意思 已知S-Cl,Si-Si,H-H,H-Cl键能分别为:360.176,436,431千焦每摩尔SiCl4(g)+2H2(g)==Si(s)+4HCl(g)反应该反应的反应热是多少?答案是△H=+236KJ/mol 估计也就只有我一个人了吧!的文言文翻译…… 一包白色粉末由碳酸钠和硫酸钠组成,怎样测出碳酸钠的质量分数 ipod Apple ID怎么弄? 生命是云,带来欢笑的风;生命是·····(仿写) 脲醛胶配方我爸爸最近转行到刨花板制作行业.但他对制作刨花板所必须的脲醛胶不太了解,请问有谁能帮帮他吗?尤其是关于配方上!感激不尽! 肺泡有与外界空气进行气体交换那是不是只是一个扩散作用,请看一下这道题:人体细胞要获得氧气,排出二氧化碳,必须经过如下①②③等过程来完成 外界空气→ 肺泡→ 血液→ 组织细胞 爱一人需要理由吗?翻译成古文 两根铁丝共长636米,各减去三米,则第一根的长度是第二根剩下长度的9/8倍,原来两根铁丝共长多少米两根铁丝共长363米,各剪去三米,则第一根的长度是第二根剩下长度的9/8倍,原来两根铁丝 (1)组织内的气体交换和肺泡内的气体交换是通过___________来实现的.请说明理由谢谢(2)根据气体分压值的变化,可以判断甲图中的血流方向是___________,乙图中的血流方向是__________。(3 求解为什么木炭还原氧化铜试管也略向下倾斜大概要按照图来分析?图上这个试管倾斜之后,有一个单孔橡皮塞塞着,中间一条导气管伸入澄清石灰水中.我一开始认为是要让CO2排得干净点,但后 0.35的倒数是多少分数 皓尔宝能分解甲醛吗 求教学视频软件(最好是初中数学和物理)谢谢 0.35的倒数是什么? 带有“寝”的成语 悲伤的生命在风中摇摆翻1L大大翻译器把 a和b(a不等于0,b不等于0)是互为倒数的是:1,a除以b 2,a=b 3,1除以a=b 4,a除以1=b "祖逖北伐"中的成语?所有的 转速低风力大的电风扇叶子 最好是几片 食品能分成几大类用尽量少的字概括,【分成尽量少的几大类,】 谁有Apple ID 生命是云,带来欢笑的风 仿写(至少3个) 一到初一的饮食分解x^2(2x-1)^2+(1-2x)^3因式分解 谁可以借我apple ID啊 数人饮之不足,一人饮之有余中的有余是什么意思?如果有余的意思是剩的话 为什么还要画蛇?画蛇赢的那个人喝不是还会剩吗? 电风扇扇叶数量和转速的关系?在风力相同的情况下,风扇扇叶数量和转速有什么关系?原理是什么?(主要是原理) 食物中的淀粉最初被分解的部位是... 电风扇的风力能调小吗?就是在最小档时候,风力也比较大的,看能不能调小风速 把现代文的孤单翻译成古文 请问电容器引出金属端子镀什么金属好?为什么?最近要采购电容供应商告诉我们镀锡的好,但是我们想要镀镍 杭州:企业拒绝工资集体协商 最高罚款财政部:中国有信心完成经济增长7.5艾弗森正式宣布退役 称至死都是一名7国锦赛-丁俊晖6:1胜进8强 世界排46名中国与印度非法采金者在加纳被捕杭州新增房源远超成交量 很多板块挑选国际足联主席公开嘲讽C罗 重压之下只苹果因电池问题召回iPhone 5s郎平笑称自己是劳模 自5月初接手几乎歌诗达·维多利亚号下月狮城起航共同社:解密文件显示日本曾试图阻止中72小时过境免签为何没火起来香港人均食品消费是新加坡一倍外媒:中共出台新措施强化反腐行动新加坡总理强调须谨慎制定移民政策挪威留坎镇举行仪式 庆祝正式启用大型雪地精灵--拉普兰驯鹿【高清组图】北京出租涨价近五月 司机:空车增多收重庆彭水小学生摸黑爬悬崖上学 最窄处叙利亚问题特使与叙总统阿萨德会晤 将明年起北京车辆违反尾号限行或被罚10预选“风向标”桑德斯反超希拉里女星“招黑体质”怎么破?“钩镰枪”究竟存在吗?证监会开罚单 罚五机构2.4亿元《花千骨》和《甄嬛传》改编的差别在哪哈 哈错过恐惧症横琴冒出一楼王叫价18万元/㎡3700救援者患癌强烈质疑: 朋友圈,广告凑什么热闹?三千年前中国人就有糖吃法律法规没有规定不得擅自行政检查全国业余网球赛开战“毒母”为初恋杀仨亲儿女“伊斯兰国”绑架人员 1人疑似我失踪定向公开赛5站角逐5组别百支球队角逐林良铭或战青年欧冠零利率时代 稳健增值跑赢CPI精明主妇3700名救援者确诊患癌
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘