<div>
This should get you started: 

<pre><code class="code-10 nolinks" id="code-20-39746692-1">Option Explicit

Const strPath = &quot;\\servername\knownfoldername&quot; ' fill in the base path here

Dim arrSearch, objFSO, objFolder, objSubFolder, objSubSubFolder, strPartialName

arrSearch = Array(&quot;partiallyknownfoldername&quot;, &quot;xyz&quot;) ' find one of these values in sub-subfolder names

Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set objFolder = objFSO.GetFolder(strPath)
For Each objSubFolder In objFolder.SubFolders
	For Each objSubSubFolder In objSubFolder.SubFolders
		For Each strPartialName In arrSearch
			If InStr( LCase(objSubSubFolder.Name), LCase(strPartialName) ) &gt; 0 Then
				MsgBox &quot;Found '&quot; &amp; objSubSubFolder.Name &amp; &quot;' in '&quot; &amp; objSubFolder.Name &amp; &quot;'.&quot;
			End If
		Next
	Next
Next
Set objFolder = Nothing
Set objFSO = Nothing
</code></pre>
</div>

<div>
Did that get the job done, or did you need something different? 
 
~bp
</div>

<div>
Hi 
It looked quite simple, but I get the error &quot;invalid outside procedure&quot; when I get to &quot;partialfoldername&quot;, so I can't get it to run. 
 
Everlas
</div>

<div>
Sorry, should have seen the problem myself. Works perfectly. Thanks. 
However, I wonder why I get hourglass after the msgbox. Should the End if not kill the sub instantly? Is it just the closing down which is slow? 
 
Do you know if the same result could have been accomplished with the Dir command? 
 
Everlas
</div>

<div>
While the msgbox is open you mean? That would be logical as the msgbox blocks the program. Or after you press OK? It will keep checking the rest of the folders but it shouldn't take very long unless you've got 1000s of folders. 
 
&quot;Dir&quot; could be possible but I've done very little with that, I think it has a lot fewer options than you get with the FileSystemObject.
</div>

<div>
So, this may or may not still interest you, but I felt challenged to find a solution with VBA's Dir command and here it is, maybe not the most elegant but works for me ;-) 

<pre><code class="code-10 nolinks" id="code-20-39754774-1">Option Explicit

Const strPath = &quot;\\servername\knownfoldername&quot; ' fill in the base path here

Sub runcode2()
 Dim dn As String
 Dim arrdn() As String
 Dim cntdn As Integer
 cntdn = -1
 dn = Dir(strPath &amp; &quot;\&quot;, vbDirectory) ' note: returns all entries, files as well
 While dn &lt;&gt; &quot;&quot;
 If dn &lt;&gt; &quot;.&quot; And dn &lt;&gt; &quot;..&quot; And (GetAttr(strPath &amp; &quot;\&quot; &amp; dn) And vbDirectory) = vbDirectory Then
 cntdn = cntdn + 1
 ReDim Preserve arrdn(cntdn)
 arrdn(cntdn) = dn
 End If
 dn = Dir
 Wend
 Dim arrSearch
 arrSearch = Array(&quot;partiallyknownfoldername&quot;, &quot;xyz&quot;) ' find one of these values in sub-subfolder names
 Dim i As Integer
 For i = 0 To cntdn
 Dim pn
 For Each pn In arrSearch
 'Debug.Print &quot;checking: &quot; &amp; arrdn(i) &amp; &quot; for '*&quot; &amp; pn &amp; &quot;*'&quot;
 dn = Dir(strPath &amp; &quot;\&quot; &amp; arrdn(i) &amp; &quot;\*&quot; &amp; pn &amp; &quot;*&quot;, vbDirectory)
 While dn &lt;&gt; &quot;&quot;
 If (GetAttr(strPath &amp; &quot;\&quot; &amp; arrdn(i) &amp; &quot;\&quot; &amp; dn) And vbDirectory) = vbDirectory Then
 Debug.Print &quot;found: &quot; &amp; dn &amp; &quot; under &quot; &amp; arrdn(i)
 i = cntdn ' exit outer For as well
 Exit For
 End If
 dn = Dir
 Wend
 Next
 Next
End Sub
</code></pre>
</div>

<div>
Yes, still interested. And I'm going to check it out. In the end the task is to create a script that doesn't break the server or the computer and is more or less independent of any speciel configuration on the actual computer. And to an extent backward compatible. 
 
I guess that if the the filesystem is very large an complex, one might create a small database as an alternative to searching the filesystem. Someday classic filesystems as such stop to exist and then we do it in another way :-) 
 
Regards 
Everlas
</div>

<div>
<div class="content wysiwyg-content">
Hi 
 
Need to find a folder in a path like 
 
\\servername\knownfoldername\unknownfoldername\partiallyknownfoldername 
 
I need the ouput to be the unknownfoldername. I know that there is exactly one possible value. 
 
For the partiallyknownfoldername there may be multiple values. 
 
Everlas
</div>
</div>

Hi 

Need to find a folder in a path like 

\\servername\knownfoldername\unknownfoldername\partiallyknownfoldername

I need the ouput to be the unknownfoldername. I know that there is exactly one possible value.

For the partiallyknownfoldername there may be multiple values.

Everlas

Find folder with two unknown parameters

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.