如何将某一目录下的所有文件或某一硬盘下的所有文件加文件夹名称都列出到单元格中

作者：绿色风分类：时间：2022-08-17 浏览：139

楼主水星钓鱼	Q：如何将某一目录下的所有文件或某一硬盘下的所有文件加文件夹名称都列出到单元格中 A：用dir函数将D盘下的所有文件列到A列(不包括子文件) Sub ListAllItems() Dim i As Long '定义行号变量 Dim Item As String '定义存储文件名 Item = Dir("d:", vbHidden + vbReadOnly + vbSystem) '三个常量表示包括隐藏文件系统文件和只读文件 Do While Item <> "" '用DO-While避免了对于D盘下具体的文件数的获取 i = i + 1 Cells(i, 1) = Item Item = Dir '当第二次用DIR函数,不带参数表示返回下一个符合条件的文件名 Loop End Sub 将D盘下的所有文件名加上文件夹名列出 Sub ListAllItems() Dim i As Long Dim Item As String Item = Dir("d:", vbHidden + vbReadOnly + vbSystem + vbDirectory) Do While Item <> "" i = i + 1 Cells(i, 1) = Item Item = Dir Loop End Sub 注意体会Item这个变量的用处，这里很容易犯一个错误就是用DIR代替ITEM作为循环的判断依据。
2楼 gvntw	Item = Dir 这句可别漏掉哦，以前我经常忘记这句，导致陷入死循环，呵呵。
3楼 caijiuhua	这段代码正是自己想要的，能不能改一下就取文件夹。我想取磁盘下的文件夹
4楼 mmt2200	能不能给单元格加上超链接呢？实现点击链接直接打开文件
5楼 paul001	en 如果要批量修稿文件名的话这个代码就是第一步了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表