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

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

编辑:说三道四文库 发布时间:2017-02-23 01:29
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 & "你的路径名")
Rust一周集锦(三):关闭3个RFC并为1.4版本做准备 【CTO讲堂】多备份创始人陈元强:在线灾备革命背后的事 探索React:组件间通信过程解析 机智云完成2亿元B轮融资 将围绕信息安全与机器学习创建“机智云联合实验室” 【CTO讲堂】深度?广度?浅析技术人员的职业发展之路 详解React Flux架构工作方式 专访Tiny框架创始人悠然:好的软件设计是“品”出来的 开发移动应用的7大设计要点 历时一年半 现代Web框架Phoenix 1.0正式发布 【七问七答】对话Erlang核心成员Eric Merritt 分布式文档数据库MongoDB开发版本3.1.7发布 年末巨献!SDCC 2015中国软件开发者嘉年华全面开启 Qualcomm中国2015高峰论坛:新品牌与5G技术展望 福利!MDCC 2015 免费展位等你来申请! 《近匠》Gamegou:多些坚持,瞄准海外的小团队也有春天 细说JavaScript异步函数发展历程 YoMail创始人Albert Yang:我与Email交织的程序人生 TIOBE 2015年9月编程语言排行榜:时髦语言Rust进前50 50张999元限量特惠票!SDCC2015软件开发嘉年华 首批讲师名单公布 百度安全:XcodeGhost大爆发可能只是冰山一角 北京市计算中心云计算转型:缘定OpenStack MDCC 2015移动开发者大会 八大技术专场首批议题剧透 Apple TV指南:从零开始用Swift开发个tvOS应用 React Native、开源:MDCC平台与技术Android专场全揭秘! 相约MDCC 2015 首批免费展位破茧而出 MDCC 2015召开在即,平台与技术iOS专场大咖来了! 一个iOS开发者对tvOS SDK的初探 前Twitter iOS技术团队负责人:使用第三方库的四大准则 【SDCC讲师专访】巨杉数据库创始人兼CTO王涛:SequoiaDB为何要开源? 对话函数式编程语言Roy之父Brian Mckenna GitLab获400万美元A轮融资,GitLab 8.0将很快到来 请教(无为):关于VC与XML 向各位大侠求救!VB6如何直接输出到打印机?(有关POS机) 请问哪里有InstallShield下载啊 在FRAME页中点击IE“刷新”按钮后,如何只刷新一个frame而不刷新整个页面?? 使用VC+ATL生成控件,在VB中设计时属性窗口设置的值保存不住,运行的时候可以保存,是什么问题 怎样在dephi中用ado调用视图 ~~~动态设置数据窗口~~~~~~~~~~~~~~~~~~~~~~~~~~~! 一两狂死郎之天衣有缝:我是琳琳,提问有关音量问题的人。请来一下!! 有关李维的ADO/MTS/COM的问题,求救! vc与xml 请教:vc与xml 如何做象IE里最大化按钮下的转动的“e"字母? help!!!!!!!高分。。关于applet和servlet通信一个问题 JVM INSTR pop ;什么意思?高手帮帮忙! 如何访问子数据窗口中文本控件的text属性。在线等待!!!!!!!!!! 有的程序Dialog控件比Visual C++所提供的要多,不只是如何实现的?是自己做的吗? 我编了一个用MODEM-MODEM拨号对传的程序。但端口检测不正确,不能拨号。 怎么用installshield 实现软件加密? 急!如何将含NULL的string给MEMO字段赋值 请教:为什么我在WinXP上装完了vs.net,却无法启动?点击出现vs的初始画面,然后什么都没了? 请问hresult的错误码的意思,在哪里可以找到? 有关ORACLE的数据链的问题 我是琳琳,刚才提问有关音量问题的人。如果用一个TrackBar控制左右音道如何解决? 如何控制控件的显示层次! 单文档程序中的对话框中要打印和预览,该如何编程 有人能想通这是怎么算出来的吗? 如何设定objfilesys 一两狂死郎之天衣有缝:如果用一个TrackBar控制左右音道如何解决? 华山论剑 If ((p + 5) / 5) Mod 2 = 0 Then ...出错 ADODB.Recordset 错误 '800a0e78' ???????大侠 有没有办法实现AOL的ICQ中的位于桌面左右并排挤掉所有窗口包括桌面?? 在edit1的edit1keydown事件中为何不能向应button1.click事件??? 希望不要看见DBGrid中的一行记录,但不是要删除她, how? 请问windows优化大师这种界面是用什么控件做的?什么地方有下载的? ■■关系同志们的命运啊,希望都参与讨论■■ 请问如何给一个窗口发送WM_LBUTTONDOWN? 谁能介绍几本SQL SEVER的好书呀,小弟感激不尽呀!!! 请问pdf 文件用什么软件才能打开。急急。。。。。 Access数据库加了密码后用ADO直接不能访问了,用ODBC可以,如何解决? 我不明白这两个程序的函数的作用讲解一下!!谢谢!! 怎么往数据库里添加记录》 why can't connect www.boost.org? 哪里有好的email地址搜索哦工具 关于动态字段的ACCESS查询 要把ACCESS编译成可执行程序,怎么办? 多文档的子窗体关闭事件? 有无搞头 对自己心仪的女网友该说真话呢还是说...... 请问如何实现菜单上实现右键菜单? 一两狂死郎之天衣有缝:你为什么不说话了?我在这等你…… 一瓶二氧化碳有多重一般正常使用的二氧化碳气瓶,他的容积是多少? 制取乙烯的化学方程式 乙烯和氯气光照条件下反应的产物是什么?发生取代反应还是加成反应? 如何制备乙烯,相关的反应原理以及方程式 UV胶粘剂的成份有哪些? 液态二氧化碳的储存条件请问液态二氧化碳的常温下储存条件是什么,在钢瓶中的压力需要是多少. 液态氧,氮,氩,气体氧,氮,氩,二氧化碳,氢,乙炔,混合气有毒吗 气体膨胀液体技术中的DELOS过程,液体CO2的来源是什么? 怎么判断LNG槽车储罐和气化站储罐哪个温度更低呢? 一立方液氧能气化多少立方气态氧气 胶水:想问一下普通用的胶水的成份,含不含PVC? 储罐中液态CO2气化时,为什么设回流管?还有用槽车充装液态CO2储罐时,为什么气相,液相两种管都要接上? 有没有哪家公司分析汽车漆涂料好一点的,最近公司想要把汽车漆涂料做一个改进,想要找家公司先分析一下我们现在用的汽车漆涂料怎么样? 聚乙烯能和溴水发生取代反应吗? 二氧化碳在储罐的压力是多少请教液体二氧化碳的储罐压力要求是多少?温度25度左右时. 哪里能做UV涂料配方分析的公司? 怎么去PVC胶水 橡胶密炼配方有公司会分析吗?公司一批进口的橡胶很不错,想知道密炼配方是什么,有公司会分析吗? 金属上能喷UV油漆吗 乙烯和氯气发生加成反应的条件是什么?乙烯和氯气能够反应么?在什么条件下?最好有权威一点的论据. 乙烯与氯气的加成反应公式 最便宜的涂料配方有公司分析吗?我们厂有一批比较便宜的涂料配方,想改良下,哪家公司分析好? 乙烯与氯气加成反应的计算一摩尔乙烯与氯气加成后再与氯气取代,整个过程最多需氯气多少摩尔?题上只说是取代,希望给出具体过程。 乙烯与氯气在光照条件下发生加成反应还是加成答应?乙烯什么条件下才发生取代反应 工业制硅反应方程式 液态CO2储罐中的2.2MPA的压力是气态的压力还是液态的压力? 请教二氧化碳气体转化为液体在20度时用7Mpa压力不转化为液体是什么原因 工业上制取硝酸的相关反应方程式 二氧化碳与空气的液态压力 乙烯与氯化氢混合属于什么反应?乙烯与氯气混合属于什么反应?区别? 工业上制取碘酸钾的反应方程式 寻求水性压敏胶配方,联系电话:13862829 为什么用乙烯与氯化氢反应制到的一氯乙烷比用乙烷与氯气取代制的气体纯净啊?此问题很难,请试试智商 那位能告诉我一吨液态氧是多少立方~`急要~ 二氧化碳40°C,3MPa压力下是液体还是气体?此时二氧化碳的密度是多少?常压应该是101KPa(0.1MPa) 能制的较纯净的1,2-二氯乙烷的是 A,乙烯和氯气光照反应 B,乙烯与氯化氢气体反应 C,乙烯与氯气D,乙烯通入浓盐酸 一吨液态氧等于几立方 压敏胶的成分结构压敏胶的俗名,英文简称市场价格,主要用途,分子式,结构简式,合成反应方程式,主要性质,重要用途? 哪家公司橡胶制品配方分析做的比较好?刚刚做出的一批橡胶产品有问题啊,总是断,想找家公司做一些橡胶制品配方分析,有什么公司推荐下? 什么是uv丝印油墨 1吨液态二氧化碳能转化成多少气态二氧化碳压力在9公斤左右,温度是10度左右.想知道对应关系是多少,密度无法确定,请按照正常的气态液态密度来.非常着急. 求橡胶制品配方一个丁苯1712 30%的,要求高温硫化(220度左右)制品厚度4mm,硫化时间40s,制品不能变脆.配方.若采用全部分数赠送. 如何去除UV丝印油墨 压敏胶的组成成分一般是什么?用的是广州坚红化工的YH-1型压敏胶,望知道的大侠告知. 关于氯气与水反应的化学方程式,课本上的没有可逆符号,可是参考书上有可逆符号.因此我想请问,这个反应到底是不是可逆反应? 乙烷加热分解生成乙烯和氧气,取乙烷部分分解后的反应混合物1体积,使其充分燃烧生成1.6体积的co2(同温同压),则乙烯的分解率是多少 PVC丝印油墨配方 压敏胶配方 原料价格主要是要知道1吨压敏胶水的制作成本 知道方法的最好 最好知道是些什么原料 乙烯和乙烷混合气体共amol,与bmol的氧气共存一密闭容器,点燃后充分反应,乙烯和乙烷全部消耗完,乙烯和乙烷全部消耗完,得到CO和CO2的混合气体和45gH2O,试求:1.当a=1时,乙烯和乙烷的物质的量之 液态氧的储存条件是什么?它在什么情况下可以转化为气态氧?液态氧重量(g)÷×22.4=气态氧(l) 检验CO2的方法为什么这题不能用燃着的木条,也不能向瓶中滴加澄清石灰水? 已知碳酸氢铵固体受热分解成氨气、二氧化碳和水蒸气,则该混合气体的平均相对分子质量为? 气态氧变成液态氧需要多大压力在0摄氏度, 三元乙丙橡胶耐过热水的胶管配方三元乙丙橡胶制品的配方啊 成本一定要低哦 硬度80成本4000左右 乙醇生成乙烯反应方程式? 液态氧怎样和气态氧换算?比如,我有一个氧气罐,10升,压力是20Mpa,换算成给病人吸入的氧气,是多少升?也就是说换算成气态氧,一共有多少升.我也看不懂你的这些公式。 乙烯和氯气反应的条件 二氧化碳的单位是用什么来计算的一便写出他的符号 氧气变为液态氧后是因为什么? 急!氯气和乙烯的反应条件溴单质和乙烯反应不需要条件,但我上次听说氯气和乙烯反应需要催化剂,那氯气和乙烯反应到底需不需要催化剂?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn