数值策划的自我修养(二)：用VBA批量获取指定目录下文件的名字

批量获取指定目录下文件的名字

游戏项目的管理，自然少不了配置表的管理。今天记录的是如何在制作配置表管理工具时批量获取配置表文件夹下的配置表名并顺序写到一张Excel中。

运用的是VBA中的Dir函数
Dir(path)

例如：
Dir(“d:\VBA练习”)必须以\结尾，用于进入这个文件夹扫描子文件
此时只会扫描文件而不会扫描子文件夹。如果也需要返回该文件夹下面的子文件夹，则需要加一个参数，
Dir(“d:\VBA练习”,vbdirectory) 此时会返回所有文件和文件夹

读取之后将值赋值给变量，用Dir()继续向下读取。此时括号中不再写参数，如果写了，代表在这个文件夹中重新从头读取。就成了一直返回第一张表的名字。

具体代码如下

//变量的强制声明
Option Explicit

//定义一个子过程
Sub Dataread()

//定义变量接收文件路径，返回的文件名等
Dim path As String, f As String, i As Integer, pos As Integer