AccessVBA 思考是人类进步的阶梯

网友提问：

回答网友问题：

您的基础没打扎实，所以这种基本问题处理不了。

一、把多层文件夹下面的文件写入附件

这个问题你没问，但是，我预测，如果我回答完你的问题，就会有人问我这个问题，所以我先回答了。

关于写入附件我在2021年5月讲过

https://www.bilibili.com/video/BV1th411m7Py

昨天，我讲了如何遍历多层文件夹中的文件

https://www.bilibili.com/read/cv25395260

接下来我在Access里面准备一张表，表的数据类型是这样的

表内容是这样的，现在附件都是空的

还是桌面上有一个文件夹名字是“第一层”

下面的思维导图是路径，我们要得到蓝色的文件（有后缀名的）

在Access的VBE编译器中写

运行sub shishi后，附件就都写进去了

二、（你的问题）把多层文件夹下面的文件写入表格

我又准备一张表

什么都没写

从您问我的这个问题来看知道用redim可能是问了GPT或者在搜索引擎上查过

我们讲动态数组时说过，您声明了动态数组 ，那这个动态数组是没有元素的，也是没有下标的，所以你使用下标必然会下标越界

处理方法如下

我在递归函数中设置初始值，然后在回传时，让i覆盖原来的初始值0

第一次是到文件路径时，我将arr定义为1  arr（0+1） 每次加1就可以了

运行sub shishi得到结果

如果只想要文件名称，不要想路径，只需要加个name

今天这事，我告诉您了，但是您明天还会遇到新的问题，因为您不是一个初学者，咱们都认识好几年了，您的基础我了解。

做数学题买的练习册，像某而思、某猿、某业帮等，他们的参考答案大多会附上过程和思路。我给我大哥用他的练习册时我都会撕掉答案，而那种只有结果没有思路的答案，让我大哥直接看都可以。

因为知道结果，能推出过程，是一个人的能力。直接看了思路，我们知道了方法还会去思考方法吗？但是，方法不止一种，只有不断思考才能提高自己。

举个例子：

某哥发了视频，我能通过他的视频细节推导出他身处位置

例如，我看到了广某路，因为知道某哥在北京，查北京广某路有几个

通过第二个线索，看到了某泰诊所、便利蜂

通过便利蜂官网查地址在广某路的店，假设有多个，那还有第二个线索 某泰诊所 

于是答案就出来了

PS: 我们确定人家视频背景所在地是没问题的，但是要注意守法，不可无节制分析。

这就是我一直强调的，讲原理没错，但是说别人不讲原理的才是真的坑人。直接看原理，就变成了背题，考试与工作是两回事。

有的时候您问GPT也得不到正确答案，GPT的答案哪来的？它也是从人类这里听来的，如果人类给出一个不完美的答案，现阶段它只能复读这个答案。就好比大家都知道我是孙氏英语创始人，但是GPT不知道，如果发帖的人多了，替我宣传一下，GPT就知道了。

当你了解了原理，就失去了尝试，没有了尝试过程，人就失去锻炼机会，原理应该是在经过长时间思考后仍然没有答案，且无法继续学习时再看的。一个人从出生我们就开始为他提供足够的物质帮助（只提供所需不让他存起来），让他衣食无忧（吃饭、睡觉、刷视频），然后到35岁以后，不再给他提供任何帮助，他无法生存。

ExcelVBA及WordVBA篇：https://www.bilibili.com/video/BV1rt4y1a72y

Access篇+AccessVBA篇：https://www.bilibili.com/video/BV1tf4y117Sh