Rename Files on Sub-folders: Ignore Hidden Files

Help & Support
4

Well, it wasn't as simple as it appears because I want to use it with sequential numbering. So, instead of just this:

function OnGetNewName(getNewNameData)
{
	if (~getNewNameData.item.attr_text.indexOf("h")) {
		return true;
	} else {
		return false;
	}
}

I grabbed a copy of Numbers Within Sub-Folder and added:

' Make sure hidden files are left completely alone.
	Dim fsz, fz
	Set fsz = CreateObject("Scripting.FileSystemObject")
	Set fz = fsz.GetFile(strFilePath + "\" + strFileName)
	If fz.attributes and 2 Then
		strNewName = strFileName
		Exit Function
	End If