remove echos

compose.vbs

@@ -68,10 +68,10 @@ Function importModulesTxt(ACCDBFilename, sImportpath)
      End If
     End If
 
-    Wscript.Echo "starting Access..."
+    'Wscript.Echo "starting Access..."
     Dim oApplication
     Set oApplication = CreateObject("Access.Application")
-    Wscript.Echo "Opening " & ACCDBFilename
+    'Wscript.Echo "Opening " & ACCDBFilename
     If (Right(ACCDBFilename, 4) = ".adp") Then
         oApplication.CreateAccessProject ACCDBFilename
     Else
@@ -91,31 +91,31 @@ Function importModulesTxt(ACCDBFilename, sImportpath)
 
      Select Case objecttype
       Case "form"
-       Wscript.Echo "Importing FORM from file " & myFile.Name
+       'Wscript.Echo "Importing FORM from file " & myFile.Name
        oApplication.LoadFromText acForm, objectname, myFile.Path
       Case "module"
-       Wscript.Echo "Importing MODULE from file " & myFile.Name
+       'Wscript.Echo "Importing MODULE from file " & myFile.Name
        oApplication.LoadFromText acModule, objectname, myFile.Path
       Case "macro"
-       Wscript.Echo "Importing MACRO from file " & myFile.Name
+       'Wscript.Echo "Importing MACRO from file " & myFile.Name
        oApplication.LoadFromText acMacro, objectname, myFile.Path
       Case "report"
-       Wscript.Echo "Importing REPORT from file " & myFile.Name
+      ' Wscript.Echo "Importing REPORT from file " & myFile.Name
        oApplication.LoadFromText acReport, objectname, myFile.Path
       Case "query"
-       Wscript.Echo "Importing QUERY from file " & myFile.Name
+       'Wscript.Echo "Importing QUERY from file " & myFile.Name
        oApplication.LoadFromText acQuery, objectname, myFile.Path
       Case "table"
-       Wscript.Echo "Importing TABLE from file " & myFile.Name
+       'Wscript.Echo "Importing TABLE from file " & myFile.Name
        oApplication.ImportXml myFile.Path, acStructureOnly
       Case "rel"
-       Wscript.Echo "Found RELATIONSHIPS file " & myFile.Name & " ... opening, it will be processed after everything else has been imported"
+       'Wscript.Echo "Found RELATIONSHIPS file " & myFile.Name & " ... opening, it will be processed after everything else has been imported"
        relDoc.Load (myFile.Path)
      End Select
     Next
 
     If relDoc.readyState Then
-     Wscript.Echo "Preparing to build table dependencies..."
+    ' Wscript.Echo "Preparing to build table dependencies..."
      Dim xmlRel, xmlField, accessRel, relTable, relName, relFTable, relAttr, i
      For Each xmlRel In relDoc.SelectNodes("/Relations/Relation")   'loop through every Relation node inside .xml file
       relName = xmlRel.SelectSingleNode("Name").Text
@@ -130,17 +130,17 @@ Function importModulesTxt(ACCDBFilename, sImportpath)
       oApplication.CurrentDb.TableDefs(relFTable).Indexes.Delete (relName)
       On Error GoTo 0
 
-      Wscript.Echo "Creating relation " & relName & " between tables " & relTable & " -> " & relFTable
+      'Wscript.Echo "Creating relation " & relName & " between tables " & relTable & " -> " & relFTable
       Set accessRel = oApplication.CurrentDb.CreateRelation(relName, relTable, relFTable, relAttr)  'create the relationship object
 
       For Each xmlField In xmlRel.SelectNodes("Field")  'in case the relationship works with more fields
        accessRel.Fields.Append accessRel.CreateField(xmlField.SelectSingleNode("Name").Text)
        accessRel.Fields(xmlField.SelectSingleNode("Name").Text).ForeignName = xmlField.SelectSingleNode("ForeignName").Text
-       Wscript.Echo "  Involving fields " & xmlField.SelectSingleNode("Name").Text & " -> " & xmlField.SelectSingleNode("ForeignName").Text
+       'Wscript.Echo "  Involving fields " & xmlField.SelectSingleNode("Name").Text & " -> " & xmlField.SelectSingleNode("ForeignName").Text
       Next
 
       oApplication.CurrentDb.Relations.Append accessRel 'append the newly created relationship to the database
-      Wscript.Echo "  Relationship added"
+     ' Wscript.Echo "  Relationship added"
      Next
     End If
 

decompose.vbs

@@ -48,15 +48,15 @@ Function exportModulesTxt(ACCDBFilename, sExportpath)
     If (sExportpath = "") Then
         sExportpath = myPath & "\Source"
     End If
-    'On Error Resume Next
+    On Error Resume Next
     fso.DeleteFolder (sExportpath)
     fso.CreateFolder (sExportpath)
     On Error GoTo 0
 
-    Wscript.Echo "starting Access..."
+    'Wscript.Echo "starting Access..."
     Dim oApplication
     Set oApplication = CreateObject("Access.Application")
-    Wscript.Echo "Opening " & ACCDBFilename & " ..."
+    'Wscript.Echo "Opening " & ACCDBFilename & " ..."
     If (Right(ACCDBFilename, 4) = ".adp") Then
      oApplication.OpenAccessProject ACCDBFilename
     Else
@@ -64,33 +64,33 @@ Function exportModulesTxt(ACCDBFilename, sExportpath)
     End If
     oApplication.Visible = False
 
-    Wscript.Echo "exporting..."
+   ' Wscript.Echo "exporting..."
     Dim myObj
     For Each myObj In oApplication.CurrentProject.AllForms
-        Wscript.Echo "Exporting FORM " & myObj.FullName
+        'Wscript.Echo "Exporting FORM " & myObj.FullName
         oApplication.SaveAsText acForm, myObj.FullName, sExportpath & "\" & myObj.FullName & ".form.txt"
         oApplication.DoCmd.Close acForm, myObj.FullName
     Next
     For Each myObj In oApplication.CurrentProject.AllModules
-        Wscript.Echo "Exporting MODULE " & myObj.FullName
+        'Wscript.Echo "Exporting MODULE " & myObj.FullName
         oApplication.SaveAsText acModule, myObj.FullName, sExportpath & "\" & myObj.FullName & ".module.txt"
     Next
     For Each myObj In oApplication.CurrentProject.AllMacros
-        Wscript.Echo "Exporting MACRO " & myObj.FullName
+        'Wscript.Echo "Exporting MACRO " & myObj.FullName
         oApplication.SaveAsText acMacro, myObj.FullName, sExportpath & "\" & myObj.FullName & ".macro.txt"
     Next
     For Each myObj In oApplication.CurrentProject.AllReports
-        Wscript.Echo "Exporting REPORT " & myObj.FullName
+        'Wscript.Echo "Exporting REPORT " & myObj.FullName
         oApplication.SaveAsText acReport, myObj.FullName, sExportpath & "\" & myObj.FullName & ".report.txt"
     Next
     For Each myObj In oApplication.CurrentDb.QueryDefs
-        Wscript.Echo "Exporting QUERY " & myObj.Name
+        'Wscript.Echo "Exporting QUERY " & myObj.Name
         oApplication.SaveAsText acQuery, myObj.Name, sExportpath & "\" & myObj.Name & ".query.txt"
     Next
     For Each myObj In oApplication.CurrentDb.TableDefs
      If Not Left(myObj.Name, 4) = "MSys" Then
-      Wscript.Echo "Exporting TABLE " & myObj.Name
+      'Wscript.Echo "Exporting TABLE " & myObj.Name
-      oApplication.ExportXml acExportTable, myObj.Name, , sExportpath & "\" & myObj.Name & ".table.txt"
+      oApplication.ExportXml acExportTable, myObj.Name, sExportpath & "\" & myObj.Name & ".table.txt"
       'put the file path as a second parameter if you want to export the table data as well, instead of ommiting it and passing it into a third parameter for structure only
      End If
     Next
@@ -119,7 +119,7 @@ Function exportModulesTxt(ACCDBFilename, sExportpath)
      relFoTable.Text = myObj.ForeignTable
      relDoc.ChildNodes(0).LastChild.appendChild relFoTable
 
-     Wscript.Echo "Exporting relation " & myObj.Name & " between tables " & myObj.Table & " -> " & myObj.ForeignTable
+     'Wscript.Echo "Exporting relation " & myObj.Name & " between tables " & myObj.Table & " -> " & myObj.ForeignTable
 
      For Each fld In myObj.Fields   'in case the relationship works with more fields
       Dim lf, ff
@@ -133,14 +133,14 @@ Function exportModulesTxt(ACCDBFilename, sExportpath)
       ff.Text = fld.ForeignName
       relDoc.ChildNodes(0).LastChild.LastChild.appendChild ff
 
-      Wscript.Echo "  Involving fields " & fld.Name & " -> " & fld.ForeignName
+      'Wscript.Echo "  Involving fields " & fld.Name & " -> " & fld.ForeignName
      Next
     End If
     Next
     If hasRelations Then
      relDoc.InsertBefore relDoc.createProcessingInstruction("xml", "version='1.0'"), relDoc.ChildNodes(0)
      relDoc.Save sExportpath & "\relations.rel.txt"
-     Wscript.Echo "Relations successfuly saved in file relations.rel.txt"
+     'Wscript.Echo "Relations successfuly saved in file relations.rel.txt"
     End If
 
     oApplication.CloseCurrentDatabase