怎么让static变量初始化？

yxbaju · 发表于 2019-1-19 23:08

本帖最后由 yxbaju 于 2019-1-20 12:37 编辑

为了方便，自定义了一个函数，如下所示：

Function all_paths(Parent_path, Optional Extension = "", Optional Recur = False)
'''返回指定目录下所有文件列表(没有返回Null),可指定扩展名,可指定是否搜索子文件夹'''
Dim fsObject, Folder, subFolders, subFolder, File, ex$, rec As Boolean
Static Paths_Array(), n&
ex = Extension
rec = Recur
Set fsObject = CreateObject("Scripting.FileSystemObject")
Set Folder = fsObject.GetFolder(Parent_path)
For Each File In Folder.Files
If ex <> "" Then
If fsObject.GetExtensionName(File) = Extension Then
n = n + 1
ReDim Preserve Paths_Array(1 To n)
Paths_Array(n) = File
End If
Else
n = n + 1
ReDim Preserve Paths_Array(1 To n)
Paths_Array(n) = File
End If
Next
If rec = True Then
Set subFolders = Folder.subFolders
For Each subFolder In subFolders
Call all_paths(subFolder, ex, rec)
Next
End If
If n = 0 Then
all_paths = Null
Else
all_paths = Paths_Array
End If
End Function

复制代码

当我使用如下代码进行测试时，list列表不能初始化，会不停重复增加之前的文件，特在此请教如何让本例的list每次结束后会变成一个空变量

复制代码

yxbaju · 发表于 2019-1-20 11:04

学下别人，自己顶一下

山菊花 · 发表于 2019-1-20 15:56

把Static改为Dim

yxbaju · 发表于 2019-1-21 08:26

山菊花发表于 2019-1-20 15:56
把Static改为Dim

我这里使用递归遍历子文件夹，所有的文件结果都放在这个数组里的，如果改成Dim，那么每次递归时，这之前的结果就被清空了

ione_fox · 发表于 2019-1-21 08:41

dim定义模块变量 Paths_Array()

yxbaju · 发表于 2019-1-22 08:44

ione_fox 发表于 2019-1-21 08:41
dim定义模块变量 Paths_Array()

能劳驾测试下吗，我不知道如何把函数的变量写到外面啊？

ione_fox · 发表于 2019-1-22 08:48

yxbaju · 发表于 2019-1-23 15:53

ione_fox 发表于 2019-1-22 08:48
http://club.excelhome.net/thread-1165866-1-1.html 可以看下这个贴子

谢谢！但是依然没有找到答案，omg

		自动登录	找回密码
密码			免费注册

[求助] 怎么让static变量初始化？