Office中国论坛/Access中国论坛

标题: 关于替代FILESEARCH编码的疑问。 [打印本页]

作者: williamwangc 时间: 2012-3-25 09:42
标题: 关于替代FILESEARCH编码的疑问。
最近在研究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 时间: 2012-3-25 21:43
没人顶吗？
顶一下。顺便再问两个问题。
问题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 时间: 2012-3-25 22:20
第一个帖子中需要删除：
i=i+1
这一句。
第二个帖子中，数组是不能这样赋值的：
strFile() = ""
不过时间关系，暂时先不调试了。

作者: williamwangc 时间: 2012-3-25 23:09
那请问版主，像FUNCTION应该怎样调试呢？

作者: roych 时间: 2012-3-27 10:40

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

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

作者: williamwangc 时间: 2012-3-28 20:39
我大致发现错在哪里了。应该是数组。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)