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

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

编辑:说三道四文库 发布时间:2017-10-17 09:55
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 & "你的路径名")
GestureDetector手势识别类 - 入门篇 不会Java或C,Android123告诉你还有选择 Splash Screen开场屏在Android中的实现 Android游戏开发性能改进要点 Android的Activity你知多少呢? JSONObject在Android上的应用 Android高性能文件类MemoryFile 判断Android文件名是否安全技巧 让你的Android程序兼容多种分辨率 Android Button按钮控件美化方法 Android堆内存也可自己定义大小 TextUtils类-Android字符串处理类 InputSream输入流转String字符串,Android开发工具类 Android中的正则表达式Regex使用 优化Dalvik虚拟机的堆内存分配 Android标题栏进度指示器使用方法 Thread和Looper以及Handler和Message详解 Android开发必读 layout资源包含,android开发必读 Android本地化开发技巧 Android开发网将推出每天一类专题 ExifInterface使用,Android 2.0新增类 GraphableButton类实现Android UI开发 Android控件开发之ToggleButton原理 Android标题栏TitleBar全攻略 AsyncTask实例代码演示Android异步任务 重绘TextView类演示Android的Handler Android的SoundPool类使用与利弊 AsyncTask解决Android UI堵塞问题 Android自定义View实例AnalogClock源码 Android UI开发专题(五) Bitmap和Canvas实例 Android UI开发专题(四) View自绘控件 字体大小 我是大一学生,不知道该学些什么,过来之人指条道! jbuilder7+weblogic 在调试时老是出错,请问是不是需要在jbuilder做一些设置?多谢!!!!! 请大家谈谈面向对象中对消息的认识和C++的面向对象的实现有什么不足 我想做一个跟Delphi一样的窗体设计器,在程序运行时自定义数据输入界面,大家给点思路吧,进者有分 想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 错误ORA-06413是怎么回事? 送分!!!参于者有分! 有谁用Jakarta Slide? ADSL下的NETMEETING 设计思路请问! 恢复 Sql Server 出现如下错误“因为数据库正在使用,所以未能获得对的排它控制权” 各位大虾请进 成星级用户了放分 水晶报表如何得到传SQL语句的数据源? 急!!求Oracle讲义与习题集 明天考~~心情郁闷!!!!散分!!! 如何改写DBCTRLgrid的背景色 诚恳地想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 请解释这四行代码 一个小菜鸟的问题 这么配置,来者有分! 400分 求Win32 线程相关电子书 急,在线等待,怎么样用SQL函数获取image字段的长度并返回? 请教win2000 ad server版安装远程控制 请问哪里可以下载RIP,OSPF的源代码? 为什么在sql explorer里面可以执行的sql语句在delphi里面不可以执行呢 一个servlet调用另一个servlet编译问题 Jbuilder7注册文件哪有下载?谢谢 哪位有网上商场系统结构分析的文档!!(高分) 急用:怎么用控制台命令查看进程,并终止进程? 请问DELPHI编写使用SQL SERVER 2000的管理端用什么连接好点? 喜欢吉他的程序员来谈谈 用InstallShield如何安装COM+组件 帮我看看!先给100,答玩再给100 有谁能告诉我怎么使用索尼DSC-F717相机的“扩展”功能? 哪位有flash mx的汉化包?多谢了 MSSQL打开企业管理器后所有的数据都公开了,有没有办法能设立权限啊 出现了一个错误,搞不定哦help,在线 字符型变量如何转化为整型 为什么滚动条不工作? 请问 sqlserver2000中有可以把数据提出 , 输出到文本文件中的存储过程吗 那位大侠知道:如何返回webservice自身类的一个或多个实例? QuickReport是否可以套打?如何套打? 这段话看得太糊涂,请英语佳的大虾翻译一下 很诚恳的想问一个问题,可能对我的影响比较大。希望可以听听你们的意见!!!! 急急:谁能告诉我,tomcat4.1.18+sqlserver2000连接池如何配置、具体配置测试!我想把分全给他如果能的话 高分,简单问题.关于网格控件(在线等!) 触发器失败,是怎么回事啊?拜托。在线等待。。。 急需测试数据 关于连接的下载问题 智能机的电阻屏和电溶屏的区别?如价格,适应那类人群,质量,视觉效果及手感等, 2000台/元是什么意思 网格计算是什么?主要用来干什么?开发网格里面的服务一定要用GLOBUS TOOLKIT和JAVA语言吗?能不能用 .net的WCF来完成相同的工作?跪求专业人士给与专业点的回答. 关于酶反应速率与底物浓度的关系曲线,底物浓度很高的时候,为什么反应速率不会降低?多谢大侠回答了! 信用卡的额度是2000元,是每天可以消费2000元吗 哪些属于垃圾食品 信息爆炸时代,我们该怎么找回灵感? 噪限灵敏度≤ 10μV 中的10μV是什么意思 天下3哪些活动是很好做的就是不怎么需要打怪,怪的难度平民也打得过的,能到经验,现在我只知道《禽流感》的任务,还有《大荒美食谱》, 在这个“信息爆炸”的时代,我们该如何在短时间内获取有效的信息呢? 美国的联邦制各州由各州的法律 对于网络下载东西的规定 我想知道各州有什么 雄峰什么意思 等量酶在不同温度下的反应速度曲线是怎样的 胡佛水坝修建简介 夏天温度太高了怎么办 美国最便宜食物是什么?汉堡包?炸鸡腿?三文治?还是比萨饼?同一款牙膏 国外便宜的 还是 国内便宜呢?说明牌子 胡佛水坝位于什么河流域 物理问题曲线运动中为什么合外力方向与速度方向成锐角时速率就增加?为什么垂直就不变?如果是变速园周运动还垂直吗?..变速园周和匀速园周加速度方向都时刻变化吗? 电有什么作用 电场对中性物体有作用吗电场的基本性质之一是对放入其中的电荷有力的作用.那么它对中性物质有力的作用吗?如果有,是不是定义不够全面?应改为,电场的基本性质之一是对放入其中的任何 1、出粉率一定,原料和出粉率成正比例.( 判断) 2、甲数的7倍,与乙数的5倍相等.甲、乙两数的比是7:51、2小题是判断.1、在比例尺是1:2000的图纸上,量得长方形花园的长是3.5cm.宽是2cm,这个花园 why does the public need educatic 的翻译 为什么以0.011mol·dm-3的NaOH和0.011mol·dm-3的CH3COONa溶液测得的电导,就可 甲乙两种材料共有30种,甲的材料根数比乙少2/3,甲材料比乙材料少多少根?(用比和分 TCLE708是电溶屏还是电阻屏? 电压会产生电场?电场 是什么东东?属于物质吗?PS.我对物理的抽象内容已经怕死掉了 网格计算是什么意思 天空地空人空,空空如也,知道下一句?像对子的格式. 物理中关于小球插在斜杆上运动和小球在一个斜管里运动的受力分析有什么区别?如果详细还有更多追分 能解释的通俗一点吗 一立方硬杂木有多少斤? 怎样把浮雕模型输入浮雕雕刻机 关于力的一道填空题!一天,发生了两车相撞的交通事故.—个交警前来处理,说:“我一定要找出是哪辆车先撞上另一辆车的.”请你从科学的角度分析,这个交警能否找出那辆车?答:__ _____,这是 请问什么是杂木?都包括哪些树种?不是杂木的树种又有哪些? 制作浮雕金属件一般用什么雕刻机? 一道关于力的填空题用力按气球,气球被压扁,这说明了____________________;手压球时,手也受到气球的压力,这可说明___________________________. 求购硬杂木.硬杂木要求截面最少是300mm*300mm的,越宽越好.高度为140mm和330mm两种. 在广告行业里面用雕刻机,怎么做才能出来浮雕我现在有一台雕刻机,怎么样左路径,雕刻出来才能是浮雕的效果 力的概念填空题(简单)判断弹力是否存在,通常可以 ____________来分析 二极管峰值包络检波器原理这是道简答题,该怎么回答, 当合外力方向与速度成钝角,速率-----?成锐角,速率------? (初中)力的一道填空题跳水运动员对跳板施力的同时,也受到跳板对他的作用力,但这两个力的作用效果却不同,前者主要改变了跳板_,后者主要改变恶劣运动员的_. 玛丽居里追求的是怎样的工作和生活环境? 匀变速曲线运动中随着时间的延续速度与加速度的夹角不断变小,钝角到直角速度减小,那直角到锐角呢 怎么用波动说解释光沿直线传播? 电磁阀一般适用哪些流体 为什么两块靠近的带有等量相反电荷的金属板,之间的电场是匀强电场? 某工厂用甲乙两种原料,生产M,N两种产品,甲乙两种原料是分别用A,B,C三种物质A,B,C三种物质按一定的配方制成的,甲原料的配方A:B=1:4,乙原料的配方A:B:C=2:3:5.现有ABC三种物质共505kg,其中B物质258kg 要做一个饮料灌装系统,做实验的,应该用什么型号的电磁阀啊?最好是单片机可以直接控制电磁阀的开闭灌装介质是水,电磁阀5v的最好,12v的也可以,有3个档位控制流速更好,水压就是一米高的水 墙漆发霉了怎么办,而且墙漆也脱落了地方是在主卫生间外面连主卧室靠下面的地方 某工厂用甲乙两种原料生产 where such products do not infringe any law in countries other than Japan;and 追月150a弩有谁用过精准是多少米 分析下列杆所受的力竖直面光滑 调节酶的反应速度V对[S]作图得到什么形曲线? 大学为什么要开设现代科学技术概论课程 Matlab 已知y''-3y'+2y=0 y(0)=1 y'(0)=0 ,求y(0.5) 会的帮忙写下程序 用ode45实现最好 the products do not infringe the Household Good Quality Labeling Law in Japan 2000千转什么意思 杆的受力分析如上图所示,横竖两个杆上分别有两个小球,小球之间由杆连接,杆可以绕球心转动,小球可以沿杆光滑滑动,当给上面的小球施加一个水平力f 时,下面小球受到的数值向上的分力是 俄媒:叙已提供可用于生产化武1300泰国代孕黑市剥削孕母 酬劳低至5.8德国农场主检查马厩时发现自家马匹驮回俄圣彼得堡将遭强飓风袭击 涅瓦河水位阿富汗一男子被疑制造炸弹袭击事件 遭日本两男子涉嫌介绍未成年少女夜总会打日本一办公室里种大麻盈利逾千万日元 朱国林:转基因是“欺骗的种子,失窃的王湘穗:建议国家成立“转基因安全国家顾秀林:坚决不同意标注出售转基因食品中国拟规定非法添加等危害食品安全行为纽约华裔男子眼红表哥家庭幸福 杀其一日官房长官称日国家安保“司令塔”或用日陆自一军官偷拍女性裙底遭查 称大爱德国农场主检查马厩 发现自家马匹驮回英媒称中国应对气候变化态度积极 民众全国雾霾监测网络以城市为重点开展监测浙商大会吹响转型集结号 青田侨商抱团浙江一男子非法拘禁妻子获刑 虐待折磨阿富汗一男子被疑制造炸弹袭击事件 遭日官房长官称首相行踪将不被列为机密情雪山“飞狐” 战极寒甘肃首趟中欧国际货运班列开行社会消费品零售总额增长一成多亚丁湾演练反海盗联合国一附属机构在北航揭牌29年前的巴黎偶遇(我与海外版)《关于规范国歌奏唱礼仪的实施意见》基层协商民主在彭州高盛唱衰中国:2016年印度经济增速第15届大陆书展台北开幕京沪将开行至广深高铁动卧人民日报海外版:清场显示港版“颜色革李克强主持国务院常务会议责编:张保淑邮箱:beijing20中纪委将向中办国办等派驻纪检组上海自贸区试点“自主报税”新模式新中国建交内情(十二)(礼仪漫谈)数字中国居民收入继续大幅甩开GDP(热点聚焦精确制导武器研讨会召开港澳办表示坚决支持
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘