Systems Engineering Manager

Eduardo Aviles

<div>
<div class="content wysiwyg-content">
Hello Experts, 
&nbsp; &nbsp;I would like to create a VBScript that can look into a directory and count the number of pages per each Visio file. &nbsp;I have done it for other MS files, but I am having no luck in producing it for Visio files. I have started playing with it with no success any help to achieve this task would be most appreciated. 
 
Starting Code: 
 
&nbsp; &nbsp;Private Sub VisioQuery 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For each file in Folder.Files 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If fso.GetExtensionName(file.Name) = &quot;vsd&quot; or fso.GetExtensionName(file.Name) = &quot;vsdx&quot; Then 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;numpages = ActiveDocument.Pages.Count 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;For i = 1 to numpages 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set CurPage = ActiveDocument.Pages(i) 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Msgbox CurPage.Name 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End if 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Next 
 
End Sub
</div>
</div>

Hello Experts,
   I would like to create a VBScript that can look into a directory and count the number of pages per each Visio file.  I have done it for other MS files, but I am having no luck in producing it for Visio files. I have started playing with it with no success any help to achieve this task would be most appreciated.

Starting Code:

   Private Sub VisioQuery
	For each file in Folder.Files
		If fso.GetExtensionName(file.Name) = "vsd" or fso.GetExtensionName(file.Name) = "vsdx" Then
		
			numpages = ActiveDocument.Pages.Count
			For i = 1 to numpages
			
				Set CurPage = ActiveDocument.Pages(i)
					Msgbox CurPage.Name
			
			Next
		
		End if
	Next

End Sub

Counting Visio Pages with Vb Script

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.