VBScript recursive function issue returning value

Question

I am fighting what should be simple VBScript function here. The goal of my script is to take 2 input values and find the matching subfolder. I then want the function to return the path to that folder. Below is what I have, but am having trouble making it return the value. It doesn't seem to be exiting the function and returning the value.

Here is what I have so far.

Function GetFolderName(folderspec,Computer)
    WScript.Echo "checking: " & folderspec
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = fso.GetFolder(folderspec)
    If UCase(objFolder.Name) = UCase(Computer) Then
        GetFolderName = folderspec
        Exit Function
    End If
    Set arrSubfolders = objFolder.SubFolders
    For Each f1 in arrSubfolders
            folderspec = GetFolderName(f1.Path,Computer)
    Next
End Function

strFolder = GetFolderName("C:\Test","Trial3")

MC ND · Accepted Answer · 2015-04-20 09:42:22Z

2

....
For Each f1 in objFolder.SubFolders
    GetFolderName = GetFolderName(f1.Path,Computer)
    If GetFolderName <> vbEmpty Then Exit For
Next
....

edited Apr 20, 2015 at 9:42

answered Apr 20, 2015 at 9:36

MC ND

71.1k8 gold badges95 silver badges136 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Paul W Over a year ago

Exactly what I needed. I was so close!

Hackoo · Accepted Answer · 2015-04-20 10:32:25Z

1

Like MC ND you can try like this :

Function GetFolderName(folderspec,Computer)
'WScript.Echo "checking: " & folderspec
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objFolder = fso.GetFolder(folderspec)
    If UCase(objFolder.Name) = UCase(Computer) Then
        GetFolderName = folderspec
        Exit Function
    End If
    Set arrSubfolders = objFolder.SubFolders
    For Each f1 in objFolder.SubFolders
        GetFolderName = GetFolderName(f1.Path,Computer)
        If GetFolderName <> vbEmpty Then Exit For
    Next
End Function
'**********************************************************************************************
MsgBox GetFolderName("C:\Test","Trial3")

answered Apr 20, 2015 at 10:32

Hackoo

18.9k3 gold badges49 silver badges85 bronze badges

1 Comment

Paul W Over a year ago

Thanks for making it an easy copy/paste!

Collectives™ on Stack Overflow

VBScript recursive function issue returning value

2 Answers 2

1 Comment

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related