Fix bugs

Allow processing of blank files
Fix "Encapsulated" folder name

Author: franklesniak

VBScript/Build.vbs

@@ -349,7 +349,7 @@ Const UseSystemDefault = -2
 Const adVarChar = 200
 Const adOpenStatic = 3
 
-arrSubfolderNames = Array("01_Overall_Script_Header", "02_Upfront_Encapsualed_Code_With_No_Dependencies", "03_Main_Section_Code_Executed_Every_Time", "04_Later_Encapsulated_Code_With_Dependencies_on_Main", "05_Script_Footer")
+arrSubfolderNames = Array("01_Overall_Script_Header", "02_Upfront_Encapsulated_Code_With_No_Dependencies", "03_Main_Section_Code_Executed_Every_Time", "04_Later_Encapsulated_Code_With_Dependencies_on_Main", "05_Script_Footer")
 strOutputFileName = "Accelerator.vbs"
 
 strOutput = ""
@@ -392,12 +392,21 @@ Else
                             strTextFile = ""
                             ' WScript.Echo objADODBRecordSet.Fields("FilePath")
                             Set objTextStreamFile = objFileSystemObject.OpenTextFile(objADODBRecordSet.Fields("FilePath"), ForReading, False, ASCII)
+                            On Error Resume Next
                             strTextFile = objTextStreamFile.ReadAll
-                            objTextStreamFile.Close
-                            If strOutput = "" Then
-                                strOutput = strTextFile
+                            If Err Then
+                                On Error Goto 0
+                                strTextFile = ""
                             Else
-                                strOutput = strOutput & vbCrLf & strTextFile
+                                On Error Goto 0
+                            End If
+                            objTextStreamFile.Close
+                            If strTextFile <> "" Then
+                                If strOutput = "" Then
+                                    strOutput = strTextFile
+                                Else
+                                    strOutput = strOutput & vbCrLf & strTextFile
+                                End If
                             End If
                             objADODBRecordSet.MoveNext
                         Loop