以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]递归函数问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83810)
--  作者：pcxjxjhkw
--  发布时间：2016/4/17 17:22:00
--  [求助]递归函数问题

 

以下函数目的，在指定路径下查找含指定关键词的图片文件，

路径下明明存在该文件，但就是找不到，

 

请教大家，谢谢

Dim path As String = Args(0)   \'\'路径
Dim gjc As String = Args(1)   \'\'关键词
Dim file As String      \'\'\'查找到文件

For Each wj As String In FileSys.GetFiles(path)
\'Forms("档案管理").text = wj
    Dim wjm As String = FileSys.GetName(wj)   \'\'\'文件名
    If wjm.Contains(gjc) = True AndAlso wjm.Contains(".jpg") = True Then
        file = wj
        goto A:
    End If
Next

For Each pth As String In FileSys.GetDirectories(path)
    Functions.Execute("搜索档案",pth,gjc)
Next

A:
Return file
[此贴子已经被作者于2016/4/17 19:14:00编辑过]
--  作者：pcxjxjhkw
--  发布时间：2016/4/17 23:15:00
--  
大红袍老师，帮忙看一下，谢谢
--  作者：大红袍
--  发布时间：2016/4/17 23:41:00
--  

Dim path As String = Args(0)   \'\'路径
Dim gjc As String = Args(1)   \'\'关键词
Dim file As String      \'\'\'查找到文件

For Each wj As String In FileSys.GetFiles(path)
    Dim wjm As String = FileSys.GetName(wj)   \'\'\'文件名
    If wjm.Contains(gjc) = True AndAlso wjm.Contains(".jpg") = True Then
        file = wj
        Return file
    End If
Next

For Each pth As String In FileSys.GetDirectories(path)
    Dim f = Functions.Execute("搜索档案",pth,gjc)
    If f > "" Then
        Return f
    End If
Next

Return file
--  作者：pcxjxjhkw
--  发布时间：2016/4/17 23:42:00
--  
谢谢