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

在函数传递参数时使用可参数：传递一个对象。
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