Question

VB 自定义函数 调用 请举个例子 ....。

已知：
Function FindDirectory(Mydirectory() As String)

Dim intResult, I, intFind As Integer
' 变量下标 循环变量 字节长度

'首先查找根目录下的所有子目录
MyPath = "c:\" '注释： 指定路径c:\。
MyName = Dir(MyPath, vbDirectory) '注释： 找寻第一项。
intResult = 1
ReDim Mydirectory(intResult) '初始化动态数组
Do While MyName <> "" '注释： 开始循环。
'注释: 跳过当前的目录及上层目录?
If MyName <> "." And MyName <> ".." Then
'注释： 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

'注释： 如果它是一个目录，将其名称存储在一个数组里。
Mydirectory(intResult) = MyPath & MyName
intResult = intResult + 1
ReDim Preserve Mydirectory(intResult)
'分配动态数组实际的元素个数，并保留数组中的数据
End If
End If
MyName = Dir '注释： 查找下一个目录。
Loop

'在所有目录里分别查找文件是否存在。
For I = 1 To UBound(Mydirectory) - 1
MyFile = Mydirectory(I) & "\win.ini"
intFind = Len(Dir(MyFile))
If intFind <> 0 Then MsgBox "找到文件" & Dir(MyFile) & "在：" & Mydirectory(I)
Next I

End Function
------------------------------------------------
请请举个例子。

Private Sub Command1_Click()

'如何在此处把 函数中的Mydirectory中的路径集合弄出来，或显示在窗体之上。
End Sub

若以下回答无法解决问题，邀请你更新回答

Answer 1

在函数传递参数时使用可参数：传递一个对象。
Optional 对象名称 类型

你在这段代码的时候就可能完成你所需要的功能了。为何要多此一举呢

If MyName <> "." And MyName <> ".." Then
'注释： 使用位比较来确定 MyName 代表一目录。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

'注释： 如果它是一个目录，将其名称存储在一个数组里。
Mydirectory(intResult) = MyPath & MyName
intResult = intResult + 1
ReDim Preserve Mydirectory(intResult)
'分配动态数组实际的元素个数，并保留数组中的数据
End If
End If

在存储到数组前或后面加一行代码就行了。
对象名称=MyPath & MyName '显示目录的路径

下面给你一个循环这个循环功能是查找特定扩展名的文件。
For Each MyFile In MyFolder.Files
StatusBar1.Panels(1).Text = "正在搜索: " & MyFile ‘StatusBar1 是状态栏控件
'****************************************************************
'获取文件的扩展名称
Dim TempLong As Long
Dim RightString As String
TempLong = InStrRev(MyFile, ".")
RightString = Right(MyFile, Len(MyFile) - (TempLong - 1))
RightString = "*" & RightString
'****************************************************************
If RightString = FormatString Then

FileStrUct.FileName = MyFile.Name '文件夹名称
FileStrUct.FilePath = MyFile.Path '文件夹路径
FileStrUct.FileSize = MyFile.Size '文件夹大小
FileStrUct.FileType = MyFile.Type '文件夹类型
FileStrUct.FILETIME = MyFile.DateCreated '创建时间
FileStrUct.UpdaTime = MyFile.DateLastModified '修改时间
FileStrUct.FangTime = MyFile.DateLastAccessed '最后一次访问的日期

ArrayVlaue = Array(FileStrUct.FileName, FileStrUct.FilePath, FileStrUct.FileType, FileStrUct.FileSize, FileStrUct.FILETIME, FileStrUct.FangTime, FileStrUct.UpdaTime)

Call MdlListView.InisFile(ListView1, ArrayVlaue) '添加数据到控件中。
DoEvents
End If
DoEvents
Next MyFile