关于替代FILESEARCH编码的疑问。

williamwangc

最近在研究TREEVIEW和IMAGELIST，要用到FILESEARCH，由于2007版无这代码，我写了一小段试验FILESEARCH编码的替代编码。
使用DIR来编写的。但不知道为什么少了一半。
Dim str_path As String
Dim str_IcoPath As String
Dim i As Integer

str_path = CurrentProject.Path & "\icon\"
str_IcoPath = str_path & Dir(str_path & "*.ico")
i = 1
Do While Dir <> ""
str_IcoPath = str_path & Dir
Debug.Print str_IcoPath
i = i + 1
Loop
Debug.Print i

这个文件夹中共有大致50个ICO，但本地窗口就显示了25个。

williamwangc

没人顶吗？
顶一下。顺便再问两个问题。
问题1：还是根据前面的想法，我利用FileSystemObject做了一个功能，但似乎代码有问题，无法运行，到底哪里出了问题？请各位指正。
问题2：想FUNCTION一类的功能究竟有什么办法可以进行测试（正确与否，是否有语法错误什么）吗？

问题1：
Option Compare Database
Option Base 1
'strFile()为文件名的数组
Dim strFile() As String
'iFile为文件数量
Dim iFile As Integer

Function FilesSearch(FolderPath As String, Key As String) As bolean
Dim fso As FileSystemObject
Dim aFolder As folder
Set fso = New FileSystemObject
'如果指定路径文件夹不存在，FilesSearch=False
If fso.FolderExists(FolderPath) = False Then
strFile() = ""
FilesSearch = False
Exit Function
Else
Set aFolder = fso.GetFolder(FolderPath)
    '如果指定文件类型不存在，FilesSearch=False
    If fso.FileExists(FolderPath & "\" & "*." & Key) = False Then
    strFile() = ""
    FilesSearch = False
    Exit Function
    Else
    '如指定文件类型存在,FilesSearch=True,iFile累加，文件名加入数组
    For Each File In aFolder.Files
        If File.Name Like FolderPath & "\" & "*." & Key Then
        ReDim Preserve strFile(iFile)
        strFile(iFile) = aFolder.Files(iFile).Name
        iFile = iFile + 1
        End If
    Next File
    FilesSearch = True
    End If
End If
End Function

roych

第一个帖子中需要删除：
i=i+1
这一句。
第二个帖子中，数组是不能这样赋值的：
strFile() = ""
不过时间关系，暂时先不调试了。

williamwangc

那请问版主，像FUNCTION应该怎样调试呢？

roych

williamwangc 发表于 2012-3-25 23:09
那请问版主，像FUNCTION应该怎样调试呢？

用Sub来调用
Sub test()
Debug.Print Function("Parameter")
'或者Msgbox Function("Parameter")
End Sub

williamwangc

我大致发现错在哪里了。应该是数组。