Excel VBA学习笔记:对文件的操作:DIR补充
yuyutoo 2025-03-11 22:49 9 浏览 0 评论
Dir 函数的语法：Dir(pathname, attributes)
attributes 参数的设置可为：
vbDirectory （数字简写16） 返回文件夹名字+文件名字（vbDirectory 参数还会返回”.” 与”..”文件夹名）
Sub 遍历()
fn = Dir(“e:\temp\”, vbDirectory ) ’注意文件夹右边还需要”\”符号
Do
n=n+1
Range(“A”&n)=fn ’在A列 输出 文件名
fn =Dir 'fn 得到的还有文件夹的名字
Loop until fn = “”
End SubvbNormal （数字简写 0）为缺省值， 返回所有文件的文件名。如果“e:\temp\” 下只有文件夹，没有文件，fn =Dir fn 得到的就是空值。
vbReadOnly （数字简写 1） 返回只读文件的文件名；vbHidden 2 隐藏文件
VbSystem 4 系统文件
MkDir 与 RmDir
创建文件夹 Mkdir Path：Path 必要参数，是用来指定所要创建的文件夹的字符串表达式。
Path 如果没有指定驱动器，则MkDir 会在当前驱动器上创建文件夹。但当前驱动器不等于当前文件所在的驱动器，就是并非ThisWorkBook路径中的驱动器（如何确定的，逻辑不详）。
删除文件夹 Rmdir Path：必要的 Path 参数是一个字符串表达式，用来指定要删除的文件夹。
Path参数同上。注： RmDir 只能删除空文件夹。
Kill 删除文件；语法：Kill pathname
Pathname 必要参数，“完整路径+文件全名字”的字符串表达式。文件全名字指 要含“扩展名”。
Kill 支持多字符 (*) 和单字符 (?) 的通配符来指定多个文件。
例：Kill ThisWorkbook.Path & "\Test.xls"
Filecopy 拷贝文件；语法：FileCopy source, destination
source 必要参数，源文件路径+全名字；用来表示要被复制的文件名。destination 必要参数，用来指定要复制的目地文件名。Source与destination 参数不能省略文件扩展名，还不支持通配符。注：对一个已打开的文件使用 FileCopy语句，则会产生错误。
Sub test()
FileCopy "e:\temp\积分发放记录.xlsx", "e:\积分发放记录.xls"
End Sub
相关推荐
- 《保卫萝卜2》安卓版大更新 壕礼助阵世界杯
-
《保卫萝卜2：极地冒险》本周不仅迎来了安卓版本的重大更新，同时将于7月4日本周五，带来“保卫萝卜2”安卓版本世界杯主题活动的火热开启，游戏更新与活动两不误。一定有玩家会问，激萌塔防到底进行了哪些更新？...
- 儿童手工折纸:胡萝卜，和孩子一起边玩边学carrot
-
1、准备两张正方形纸，一橙一绿，对折出折痕。2、橙色沿其中一条对角线如图折两三角形。3、把上面三角折平，如图。4、绿色纸折成三角形。5、再折成更小的三角形。6、再折三分之一如图。7、打开折纸，压平中间...
- 《饥荒》食物代码有哪些（饥荒最新版代码总汇食物篇）
-
饥荒游戏中，玩家们需要获取各种素材与食物，进行生存。玩家们在游戏中，进入游戏后按“～”键调出控制台使用代码，可以直接获得素材。比如胡萝卜的代码是carrot，玉米的代码是corn，南瓜的代码是pump...
- Skyscanner:帮你找到最便宜机票 订票不求人
-
你喜欢旅行吗？在合适的时间、合适的目的地，来一场说走就走的旅行？机票就是关键！Skyscanner这款免费的手机应用，在几秒钟内比较全球600多家航空公司的航班安排、价格和时刻表,帮你节省金钱和时间。...
- 小猪佩奇第二季50（小猪佩奇第二季英文版免费观看）
-
Sleepover过夜Itisnighttime.现在是晚上。...
- 我在民政局工作的那些事儿(二)（我在民政局上班）
-
时间到了1997年的秋天，经过一年多的学习和实践，我在处理结婚和离婚的事情更加的娴熟，也获得了领导的器重，所以我在处理平时的工作时也能得心应手。这一天我正在离婚处和同事闲聊，因为离婚处几天也遇不到人，...
- 夏天来了就你还没瘦?教你不节食13天瘦10斤的哥本哈根减肥法……
-
好看的人都关注江苏气象啦夏天很快就要来了你是否和苏苏一样身上的肉肉还没做好准备？真是一个悲伤的故事……下面这个哥本哈根减肥法苏苏的同事亲测有效不节食不运动不反弹大家快来一起试试看吧~DAY1...
- Pursuing global modernization for peaceful development, mutually beneficial cooperation, prosperity for all
-
AlocalworkeroperatesequipmentintheChina-EgyptTEDASuezEconomicandTradeCooperationZonei...
- Centuries-old tea road regains glory as Belt and Road cooperation deepens
-
FUZHOU/ST.PETERSBURG,Oct.2(Xinhua)--NestledinthepicturesqueWuyiMountainsinsoutheastChi...
- Ftrace function graph简介（flat function）
-
引言由于android开发的需要与systrace的普及，现在大家在进行性能与功耗分析时候，经常会用到systrace跟pefetto.而systrace就是基于内核的eventtracing来实...
- JAVA历史版本（java各版本）
-
JAVA发展1.1996年1月23日JDK1.0Java虚拟机SunClassicVM，Applet，AWT2.1997年2月19日JDK1.1JAR文件格式，JDBC，JavaBea...
- java 进化史1（java的进阶之路）
-
java从1996年1月第一个版本诞生，到2022年3月最新的java18，已经经历了27年，整整18个大的版本。很久之前有人就说java要被淘汰，但是java活到现在依然坚挺，不知道java还能活...
- 学习java第二天（java学完后能做什么）
-
#java知识#...
欢迎 你 发表评论:
- 一周热门
- 最近发表
-
- 《保卫萝卜2》安卓版大更新 壕礼助阵世界杯
- 儿童手工折纸:胡萝卜，和孩子一起边玩边学carrot
- 《饥荒》食物代码有哪些（饥荒最新版代码总汇食物篇）
- Skyscanner:帮你找到最便宜机票 订票不求人
- 小猪佩奇第二季50（小猪佩奇第二季英文版免费观看）
- 我在民政局工作的那些事儿(二)（我在民政局上班）
- 夏天来了就你还没瘦?教你不节食13天瘦10斤的哥本哈根减肥法……
- Pursuing global modernization for peaceful development, mutually beneficial cooperation, prosperity for all
- Centuries-old tea road regains glory as Belt and Road cooperation deepens
- 15 THE NUTCRACKERS OF NUTCRACKER LODGE (CONTINUED)胡桃夹子小屋里的胡桃夹子(续篇)
- 标签列表
-
- mybatis plus (70)
- scheduledtask (71)
- css滚动条 (60)
- java学生成绩管理系统 (59)
- 结构体数组 (69)
- databasemetadata (64)
- javastatic (68)
- jsp实用教程 (53)
- fontawesome (57)
- widget开发 (57)
- vb net教程 (62)
- hibernate 教程 (63)
- case语句 (57)
- svn连接 (74)
- directoryindex (69)
- session timeout (58)
- textbox换行 (67)
- extension_dir (64)
- linearlayout (58)
- vba高级教程 (75)
- iframe用法 (58)
- sqlparameter (59)
- trim函数 (59)
- flex布局 (63)
- contextloaderlistener (56)