VBS Wild Cards

[tab1962]

Ithere a wildcard that I can put in this vbs file that would search all the directories and remove any comma's? So far it works fine with one folder at a time. Here is my VBS file text-

Const folder = "C:\Documents and Settings\tomabaker\My Documents\Scans\ID*.*\"

With CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each file In .GetFolder(folder).Files
file.Name = Replace(file.Name, ",", "")
Next 'file
End With 'FSO

 

[Geates]

use .SubFolders to return a list. Then iterate them like you do with the files.

CONST strFolder = "C:\Documents and Settings\tomabaker\My Documents\"

With CreateObject("Scripting.FileSystemObject")
For Each objFolder In .GetFolder(strFolder).SubFolders
For Each objFile In objFolder.Files
objFile.Name = Replace(objFile.Name, ",", "")
Next 'file
End With
End With 'FSO

-Geates

 

[Trevoke]

http://trevoke.net/blog/2008/12/30/recursively-iterate-through-every-filesubfolder-vbscript/

Which uses .subfolders .. But it goes recursively through every subfolder you got
I think Geates' solution only works on one directory level (but I didn't try so I'm not sure).

Tao Te Ching Discussions : Chapter 9 (includes links to previous chapters)
What is the nature of conflict?

 

[Geates]

Wow, I just lost points for not observing that.

CONST strFolder = "C:\temp\"

set objFSO = CreateObject("Scripting.FileSystemObject")

function traverseDir(strDir)
set objFolder = objFSO.GetFolder(strDir)

for each objSubFolder in objFolder.SubFolders
traverseDir(objSubFolder.Path)
next

for each objFile in objFolder.Files
if (instr(objFile.Name, ",")) then objFile.Name = replace(objFile.Name, ",", "")
next
end function

traversDir(strFolder)

-Geates

 

[tab1962]

I tried this but getting a runtime error on type Mismatch 'traversDir' any ideas?

Here is my edited file
CONST strFolder = "C:\Documents and Settings\tomabaker\My Documents\Scans"

set objFSO = CreateObject("Scripting.FileSystemObject")

function traverseDir(strDir)
set objFolder = objFSO.GetFolder(strDir)

for each objSubFolder in objFolder.SubFolders
traverseDir(objSubFolder.Path)
next

for each objFile in objFolder.Files
if (instr(objFile.Name, ",")) then objFile.Name = replace(objFile.Name, ",", "")
next
end function

traversDir(strFolder)

 

[Geates]

Sure, the function name is traverseDir, not traversDir. Just a typo

-Geates

 

[tab1962]

It worked! Now I can remove the other special characters! You guys are awesome thanks.

Tom