<div>
What statement is giving you and error, and what is the error? 
 
As it stands that doesn't look like an invalid filename. 
 

<hr />
»bp
</div>

<div>
No Errors 
The entire script is a file count for each DIR in the array. In this case, there just one location in the array. If I back up the statement to this, it reads all files and counts perfectly: 
 

<pre><code class="code-1 nolinks" id="code-20-42466740-1">arrFolders = Array( &quot;\\company\Shares\Departments\Information_Technology\Public\Purchasing\&quot; )
</code></pre>
 
IF I include the subDIR of &quot;1. Awaiting Director Signature&quot;, the count is ZERO files. 
 

<pre><code class="code-1 nolinks" id="code-20-42466740-2">arrFolders = Array( &quot;\\company\Shares\Departments\Information_Technology\Public\Purchasing\1. Awaiting Director Signature&quot; )
</code></pre>
 
I have narrowed the problem down to the NAME of the DIR. unfortunately, I am stuck with the naming convention. If you need to see the entire script, I'm happy to share. All I know is that it is definitely in the naming convention of these folders.
</div>

<div>
Yes, seeing the script would be helpful. &nbsp; 
 
How long are the file names under that folder? 
 
And are you chasing subfolders of it, or just files? 
 

<hr />
»bp
</div>

<div>
At the moment, all files in the DIR are 8.3 format. 
BUT...File names could be long and with spaces too. The DIR names are long and with spaces.
</div>

<div>
<pre><code class="code-10 nolinks" id="code-20-42466751-1">arrFolders = Array( &quot;\\company\Shares\Departments\Information_Technology\Public\Purchasing\1. Awaiting Director Signature\&quot; )

 
Set objShell = CreateObject(&quot;WScript.Shell&quot;)
Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
strBlatPath = &quot;Blat.exe&quot;
strServer = &quot;192.168.0.1&quot;
strTo = &quot;me@domain.com&quot;
strFrom = &quot;PO.Notifications@domain.com&quot;
strSubject = &quot;ATTENTION: PO(s) pending, that require your attention.&quot; 
intFolder = 1
For Each strFolder In arrFolders
	strBody = &quot;See below:&quot;
 intCount = -1
 strFolderSpec = &quot;&quot;
 strFileSpec = &quot;&quot;
 If InStr(strFolder, &quot;;&quot;) &gt; 0 Then
 strFolderSpec = Split(strFolder, &quot;;&quot;)(0)
 strFileSpec = Split(strFolder, &quot;;&quot;)(1)
 Else
 strFolderSpec = strFolder
 strFileSpec = Null
 End If
 intCount = CountFiles(strFolderSpec, strFileSpec)
 If strFileSpec &lt;&gt; &quot;&quot; Then
 strBody = strBody &amp; vbCrLf &amp; strFolderSpec &amp; &quot; has &quot; &amp; intCount &amp; &quot; &quot; &amp; strFileSpec &amp; &quot; PO(s) that require your 

attention.&quot;
 Else
 strBody = strBody &amp; vbCrLf &amp; strFolderSpec &amp; &quot; has &quot; &amp; intCount &amp; &quot; PO(s) that require your attention.&quot;
 End If
 If intCount &gt; 0 Then
		strDateTime = Right(&quot;0&quot; &amp; Day(Date), 2) &amp; Right(&quot;0&quot; &amp; Month(Date), 2) &amp; Year(Date) &amp; &quot;_&quot; &amp; Right(&quot;0&quot; &amp; 

Hour(Time), 2) &amp; Right(&quot;0&quot; &amp; Minute(Time), 2)
	 strBodyFile = Replace(WScript.ScriptFullName, WScript.ScriptName, &quot;&quot;) &amp; strDateTime &amp; &quot;_&quot; &amp; intFolder &amp; 

&quot;.txt&quot;
	 Set objBody = objFSO.CreateTextFile(strBodyFile, True)
	 objBody.Write strBody
	 objBody.Close
	 Set objBody = Nothing
	 strCommand = &quot;cmd /c &quot; &amp; strBlatPath &amp; &quot; &quot;&quot;&quot; &amp; strBodyFile &amp; &quot;&quot;&quot; -server &quot; &amp; strServer &amp; &quot; -to &quot; &amp; strTo &amp; 

&quot; -f &quot; &amp; strFrom &amp; &quot; -s &quot;&quot;&quot; &amp; strSubject &amp; &quot;&quot;&quot;&quot;
 objShell.Run strCommand, 0, True
	 'objFSO.DeleteFile strBodyFile, True
	 intFolder = intFolder + 1
	Else
		strDateTime = Right(&quot;0&quot; &amp; Day(Date), 2) &amp; Right(&quot;0&quot; &amp; Month(Date), 2) &amp; Year(Date) &amp; &quot;_&quot; &amp; Right(&quot;0&quot; &amp; 

Hour(Time), 2) &amp; Right(&quot;0&quot; &amp; Minute(Time), 2)
	 strBodyFile = Replace(WScript.ScriptFullName, WScript.ScriptName, &quot;&quot;) &amp; strDateTime &amp; &quot;_&quot; &amp; intFolder &amp; 

&quot;.txt&quot;
	 Set objBody = objFSO.CreateTextFile(strBodyFile, True)
	 objBody.Write strBody
	 objBody.Close
	 Set objBody = Nothing
	 intFolder = intFolder + 1
 End If
Next
 
Set objFSO = Nothing
Set objShell = Nothing
WScript.Echo &quot;Finished&quot;
 
Function CountFiles(ByVal strTheFolder, ByVal strFileType)
 Set objShell = CreateObject(&quot;WScript.Shell&quot;)
 Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
 Const intForReading = 1
 strTempFile = Replace(WScript.ScriptFullName, WScript.ScriptName, &quot;&quot;) &amp; &quot;TempCount.txt&quot;
 If IsNull(strFileType) = False Then
 strCommand = &quot;C:\windows\system32\cmd.exe /c dir /a-d /s /b &quot; &amp; objFSO.GetFolder

(strTheFolder).ShortPath &amp; &quot;\&quot; &amp; strFileType &amp; &quot; &gt; &quot;&quot;&quot; &amp; strTempFile &amp; &quot;&quot;&quot;&quot;
 Else
 strCommand = &quot;C:\windows\system32\cmd.exe /c dir /a-d /s /b &quot; &amp; objFSO.GetFolder

(strTheFolder).ShortPath &amp; &quot; &gt; &quot;&quot;&quot; &amp; strTempFile &amp; &quot;&quot;&quot;&quot;
 End If
 objShell.Run strCommand, 0, True
 Set objFile = objFSO.OpenTextFile(strTempFile, intForReading, False)
 intCount = 0
 While Not objFile.AtEndOfStream
 objFile.SkipLine
 intCount = intCount + 1
 Wend
 objFile.Close
 objFSO.DeleteFile strTempFile, True
 CountFiles = intCount
End Function
</code></pre>
</div>

<div>
You have some funny line breaks in that code, is that just the way you pasted it here? 
 

<pre><code class="code-1 nolinks" id="code-20-42466755-1"> strBody = strBody &amp; vbCrLf &amp; strFolderSpec &amp; &quot; has &quot; &amp; intCount &amp; &quot; &quot; &amp; strFileSpec &amp; &quot; PO(s) that require your 

attention.&quot;
</code></pre>
 

<hr />
»bp
</div>

<div>
...you're welcome to clean that up, for the sake of your eyes. :)
</div>

<div>
And actually, if it were me, I would get the file count in VBS, not by shelling to DOS and then reading the test output. &nbsp;Is that something you would be interested in? 
 

<hr />
»bp
</div>

<div>
Perfect! The output is correct: 
 
See below: 
\\company\Shares\Departments\Information_Technology\Public\Purchasing\1. Awaiting Director Signature\ has 5 PO(s) that require your attention.
</div>

<div>
sure... that's the extra mile but would certainly be appreciated too!
</div>

<div>
Actually, I take that back. &nbsp;Getting the total of all files in the subfolder tree is very easy in VBS. &nbsp;But I noticed you also want to be able to filter that and perhaps get the count of say just the *.TXT files. &nbsp;That would be a little more work in VBS. &nbsp;Doable, just more work, and the &quot;filter&quot; syntax would likely need to be slightly different. 
 
As you have a solution to your posted problem I'll stop at that and be happy we got that worked out. 
 
Also, note the Quote() function, it's how I prefer to stay sane when I need to quote things in quoted strings, etc. 
 

<hr />
»bp
</div>

<div>
Unless the filter you are using is always just a specific extension, then that wouldn't be too bad. &nbsp;Let me know... 
 

<hr />
»bp
</div>

<div>
I'm pleased with the results. I think PROPS to you and we call it a day. :) Cool?
</div>

<div>
That's fine, glad that was useful. 
 

<hr />
»bp
</div>

<div>
Script reformed and resolved. Well done!
</div>

<div>
<div class="content wysiwyg-content">
VB Script is choking on the long file name format we are using. The portion &quot;1. Awaiting Director Signature&quot; hangs up the script, as it has too many spaces and obviously exceeds formating. How can overcome this naming issue, without renaming the folder? 
 
 

<pre><code class="code-1 nolinks" id="code-10-29083656-1">arrFolders = Array( &quot;\\company\Shares\Departments\Information_Technology\Public\Purchasing\1. Awaiting Director Signature&quot; )
</code></pre>
</div>
</div>

VB Script is choking on the long file name format we are using. The portion "1. Awaiting Director Signature" hangs up the script, as it has too many spaces and obviously exceeds formating. How can overcome this naming issue, without renaming the folder?


(CODE)

VB Script can't seem to read long file names or names with spaces in it.

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

Batch files are text files containing a script of commands that are executed by the command interpreter on DOS, OS/2 and Windows systems. Most commonly, they are used to perform a series of functions that are repeated -- copying a set of files created daily with one step, for example.

Windows Batch

A scripting language is a programming language that supports scripts, programs written for a special run-time environment that automate the execution of tasks that could alternatively be executed one-by-one by a human operator. Scripting languages are often interpreted (rather than compiled). Primitives are usually the elementary tasks or API calls, and the language allows them to be combined into more complex programs. Environments that can be automated through scripting include software applications, web pages within a web browser, the shells of operating systems (OS), embedded systems, as well as numerous games. A scripting language can be viewed as a domain-specific language for a particular environment; in the case of scripting an application, this is also known as an extension language.