Claus Brod: Regular recursion (25 Mar 2006)

topic end

<!--
   * Set TOPICTITLE = Claus Brod: Regular recursion (25 Mar 2006)
-->

<style type="text/css">
pre {background-color:#ffeecc;}
</style>

%STARTINCLUDE%
<a name="25"></a>
---+++ [[BlogOnSoftware%20060325][Regular recursion]] (25 Mar 2006)

So I tried to come up with some simple code in <nop>VBscript which recursively searches
a directory for file names of arbitrary patterns. This is what I got working:

<pre>
Sub recursiveSearch(dir, regex)
  for each file in dir.files
    if regex.Test(file.Name) Then
      WScript.Echo("File matches: " & file.Path)
    End if
  next

  for each folder in dir.SubFolders
    recursiveSearch folder, regex
  next
End Sub

startFolder="c:\temp"
set folder=CreateObject("Scripting.FileSystemObject").GetFolder(startFolder)

Set regex=new RegExp
regex.Pattern = "^Foo\d{3}[0-9a-zA-Z]\.txt$"
' File name starts with 'Foo', followed by three digits, then either
' a digit or letter, and has a .txt extension.
recursiveSearch folder, regex
</pre>

Somehow I've got a hunch that there may be an easier way to do this. Blogosphere, any ideas?

%COMMENT{type="below" nonotify="on"}%

---

%STOPINCLUDE%

to top

End of topic
Skip to action links | Back to top

You are here: Blog > BlogOnSoftware20060325

r1.2 - 25 Mar 2006 - 13:07 - ClausBrod to top

Blog