怎样用LOTUSSCRIPT对某一个指定的目录进行搜索？解决办法

怎样用LOTUSSCRIPT对某一个指定的目录进行搜索？
Sub Click(Source As Button)
Dim pathName As String, fileName As String  
pathName$ = "c:\*.*"  
fileName$ = Dir$(pathName$, 0)  
Do While fileName$ <> ""  
Print fileName$  
fileName$ = Dir$()  
If fileName$="abc.doc" Then
Kill "C:\"+fileName$  
End If  
source1 = "C:\"+fileName$  
destination = "D:\"+fileName$  
Filecopy destination ,source1  
Loop  
End Sub
这个代码只能搜索c根目录下的东西，如果需要搜索子目录里的文件该怎么处理？
谢谢

------解决方案--------------------
Dir$后面的参数不是可以指定成这几种吗？
Normal file
Hidden file
System file
Volume label
Directory
你把他指定成0，也就是Normal file了，这样当然就只能取到普通文件了。
要查找Directory你应该指定成16，然后用递归来遍历所有的路径。