Solved

Find folder with two unknown parameters

Posted on 2013-12-30
8
215 Views
Last Modified: 2014-01-03
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
0
Comment
Question by:Everlas
  • 4
  • 3
8 Comments
 
LVL 35

Expert Comment

by:Robert Schutt
ID: 39746692
This should get you started:
Option Explicit

Const strPath = "\\servername\knownfoldername" ' fill in the base path here

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

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

Set objFSO = CreateObject("Scripting.FileSystemObject")
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) ) > 0 Then
				MsgBox "Found '" & objSubSubFolder.Name & "' in '" & objSubFolder.Name & "'."
			End If
		Next
	Next
Next
Set objFolder = Nothing
Set objFSO = Nothing

Open in new window

0
 
LVL 52

Expert Comment

by:Bill Prew
ID: 39750032
Did that get the job done, or did you need something different?

~bp
0
 

Author Comment

by:Everlas
ID: 39754164
Hi
It looked quite simple, but I get the error "invalid outside procedure" when I get to "partialfoldername", so I can't get it to run.

Everlas
0
 
LVL 35

Accepted Solution

by:
Robert Schutt earned 500 total points
ID: 39754234
this was meant to be run from a .vbs file (as you posted in vbscript), if you're running as VBA, you need to stick the code in a Sub and run that:
Option Explicit

Const strPath = "\\servername\knownfoldername" ' fill in the base path here

Sub runcode()

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

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

Set objFSO = CreateObject("Scripting.FileSystemObject")
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)) > 0 Then
                MsgBox "Found '" & objSubSubFolder.Name & "' in '" & objSubFolder.Name & "'."
            End If
        Next
    Next
Next
Set objFolder = Nothing
Set objFSO = Nothing

End Sub

Open in new window

0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Closing Comment

by:Everlas
ID: 39754573
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
0
 
LVL 35

Expert Comment

by:Robert Schutt
ID: 39754627
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.

"Dir" 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.
0
 
LVL 35

Expert Comment

by:Robert Schutt
ID: 39754774
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 ;-)
Option Explicit

Const strPath = "\\servername\knownfoldername" ' 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 & "\", vbDirectory) ' note: returns all entries, files as well
    While dn <> ""
        If dn <> "." And dn <> ".." And (GetAttr(strPath & "\" & dn) And vbDirectory) = vbDirectory Then
            cntdn = cntdn + 1
            ReDim Preserve arrdn(cntdn)
            arrdn(cntdn) = dn
        End If
        dn = Dir
    Wend
    Dim arrSearch
    arrSearch = Array("partiallyknownfoldername", "xyz") ' 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 "checking: " & arrdn(i) & " for '*" & pn & "*'"
            dn = Dir(strPath & "\" & arrdn(i) & "\*" & pn & "*", vbDirectory)
            While dn <> ""
                If (GetAttr(strPath & "\" & arrdn(i) & "\" & dn) And vbDirectory) = vbDirectory Then
                    Debug.Print "found: " & dn & " under " & arrdn(i)
                    i = cntdn ' exit outer For as well
                    Exit For
                End If
                dn = Dir
            Wend
        Next
    Next
End Sub

Open in new window

0
 

Author Comment

by:Everlas
ID: 39754862
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
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Welcome to part one of a multi-part tutorial series, VBScript for Windows System Administrators.  The goal of this series is to teach non-programmers how to write useful VBS code to automate their environment, and perform tasks faster, and in a more…
Hello again, all.  For those of you that have been following along, you'll know that this is my third article on this topic (though it is not Part III).  This article is sort of remedial, and probably the topic with which I should have started the s…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now