源码：

 1 Sub 获取文件夹下所有文本文件()

 2     Dim strPath As String

 3     strPath = "G:\A\"

 4     Dim MyFile As String

 5     MyFile = Dir(strPath & "*.txt")

 6     Do Until Len(MyFile) = 0

 7         Debug.Print strPath & MyFile

 8     MyFile = Dir

 9     Loop

10 End Sub

效果：

最新文章

1. go语言的selector
2. mac下搭建lua环境
3. PHP获取MySql新增记录ID值的方法
4. 【转】修改 shellstyle.dll 权限
5. 用android:clipChildren来实现红心变大特效
6. Unity3d 动态批处理的问题
7. java List 去重（两种方式）
8. hdu4507
9. Jquery EasyUI中treegrid
10. (转) 三个nginx配置问题的解决方案
11. Eclipse导入项目常见问题----乱码问题03
12. qt 如何安装 Debuggers 调试器 ？
13. xml的SAX解析规则
14. Windows Server2012 R2 安装.NET Framework 3.5
15. mysql底层原理
16. linux C++ 获取服务器外网IP地址(使用系统调用system)
17. Java设计模式——结构型模式
18. javascript类式继承函数最优版
19. java基础之static（静态）
20. [转]Java中的POJO类

热门文章

1. .NET Design Patterns
2. SpringBoot系列——Activiti7工作流引擎
3. 『居善地』接口测试 — 5、使用Requests库发送POST请求
4. FreeSWITCH的安装与使用
5. 【软工】个人项目作业——个人软件流程(PSP)
6. Davinci 可视化系统部署安装及简单使用
7. [转载]虚拟化之KVM配置
8. python实现UDP通讯
9. centos7 连接打印机
10. ssh远程主机执行命令或脚本