Sub Workbook_Open()
Dim MySourceEngine As String
Dim MySourceXGM As String
Dim MyPlatform As String
waitUserForm.Show
waitUserForm.Repaint
On Error Resume Next
'FileCopy "D:\techno\bin\libxslt\index.xml", "z:\statistics\xbox360index.xml"
ShellAndWait "z:/A2MUtilities/tools/libxslt/FindLatestXML.bat", 20000, vbHide, PromptUser
Call ShellAndWait("z:/A2MUtilities/tools/libxslt/xmlXsltProc.bat", 10000, vbHide, PromptUser)
MySourceEngine = Sheets("initialSetup").Range("C7").Value
MySourceXGM = Sheets("initialSetup").Range("C8").Value
ArchiveScript MySourceEngine, MySourceXGM
ThisWorkbook.RefreshAll
End Sub
Sub ArchiveScript(MySourceEngine, MySourceXGM)
FileCopy MySourceXGM, "C:\Program Files\A2M\XGM.xml"
FileCopy MySourceEngine, "C:\Program Files\A2M\engine.txt"
End Sub