Need help with a simple script

[getme001]

Hello everyone,
Hoping someone will help me here. I have a script that asks for a directory and a subdirectory name. I need the script to go to the directory and then open the subdirectory entered but somehow I cannot get it to work. Here's what I have:


CONST strDir = "c:\test"

set objShell = CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")

function findFolder(strDir, strFlag1)
set objFolder = objFSO.GetFolder(strDir)
for each objSubFolder in objFolder.SubFolders
if (inStr(objSubFolder.Name, strFlag1)) then
findFolder = objSubFolder.Path
exit function
else
findFolder = findFolder (objSubFolder.Path, strFlag1)
end if
next
end function


strFlag1 = inputBox("Enter Client")
strFlag2 = inputBox("Enter case")
strWeb = findFolder(strDir, strFlag1) & "\strflag2"
objShell.Run strWeb

 

[VulcanJedi]

Check out Link
There is frankly a bunch of weird things in your example.
You can't use .run the way you are to call a function.
findFolder(strDir, strFlag1) & "\strflag2"
How does strflag2 come into play at all?

 

[PHV]

Anyway, I'd repce this:
strWeb = findFolder(strDir, strFlag1) & "\strflag2"
with this:
strWeb = findFolder(strDir, strFlag1) & "\" & strflag2

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[getme001]

Thank you for the responses. That did the trick. Thank you.