23 lines
1.3 KiB
Plaintext
23 lines
1.3 KiB
Plaintext
'---------------------------------------------------------------------------------------------------
|
|
' FoxBin2Prg__Compile_in_English.vbs - 10/08/2014 - Fernando D. Bozzo (fdbozzo@gmail.com)
|
|
'---------------------------------------------------------------------------------------------------
|
|
' - Just execute on FoxBin2Prg main directory, and you get an EXE with texts translated
|
|
'---------------------------------------------------------------------------------------------------
|
|
Const ForReading = 1
|
|
Dim WSHShell, FileSystemObject
|
|
Dim oVFP9, nExitCode, cOrigFile, cDestFile
|
|
Dim nRet
|
|
Set WSHShell = WScript.CreateObject("WScript.Shell")
|
|
Set FileSystemObject = WScript.CreateObject("Scripting.FileSystemObject")
|
|
Set oVFP9 = CreateObject("VisualFoxPro.Application.9")
|
|
foxbin2prg_exe = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg.exe")
|
|
nExitCode = 0
|
|
cOrigFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg_en.h")
|
|
cDestFile = Replace(WScript.ScriptFullName, WScript.ScriptName, "foxbin2prg.h")
|
|
cPath = FileSystemObject.GetParentFolderName( cOrigFile )
|
|
nRet = FileSystemObject.CopyFile( cOrigFile, cDestFile, True )
|
|
oVFP9.DoCmd( "SET DEFAULT TO '" & cPath & "'" )
|
|
oVFP9.DoCmd( "BUILD EXE foxbin2prg.exe FROM foxbin2prg.pjx RECOMPILE" )
|
|
WSHShell.run foxbin2prg_exe
|
|
WScript.Quit(nExitCode)
|