Searching files based on name

[w1nn3r]

Hello,
I would like to write a script that can scan a specific location and it's subfolders for folders and/or files that are all numbers. I'm rather new to this so any help or guidance would be appreciated. Upon finding them I'd like the option to delete them, I'd also like the option of setting a minimum file/folder name length. I know it sounds like a tall order but it will be appreciated.

 

[mrmovie]

check out the folder / file recursion FAQ

 

[Geates]

CONST strFolder = "C:\temp\"

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

function searchDir(strDir, strQuery)
	set objFolder = objFSO.GetFolder(strDir)
	for each objSubFolder in objFolder.SubFolders
		strResults = strResults & searchDir(objSubFolder.Path, strQuery)
	next
	
	for each objFile in objFolder.Files
		if (inStr(objFile.Name, strQuery)) then strResults = strResults & objFile.Name & vbNewLine
	next
	searchDir = strResults
end function

msgbox searchDir(strFolder, ".txt")

-Geates