在VBA中，Dir函数可以返回一个文件夹下一个文件的名字（包含后缀）。
示例代码：
```
filename = Dir("F:\userdata\Desktop\新建文件夹\")
```
需要注意的是，Dir运行一次只能得到一个文件名。为得到下一个文件名，代码应该这样写：
```
filename = Dir
```
另外，如果文件夹中有n个文件，或者说有n个符合条件的文件，那么当Dir运行第n+1次时，则返回一个空字符串，代表已经查找完所有的文件。Dir运行第n+2次时，程序将报错。