主题：[求助]递归函数问题

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