diff --git a/FoxBin2Prg__Compilar_en_Español.vbs b/FoxBin2Prg__Compilar_en_Español.vbs deleted file mode 100644 index 9c30316..0000000 --- a/FoxBin2Prg__Compilar_en_Español.vbs +++ /dev/null @@ -1,21 +0,0 @@ -'--------------------------------------------------------------------------------------------------- -' FoxBin2Prg__Compilar_en_Español.vbs - 10/08/2014 - Fernando D. Bozzo (fdbozzo@gmail.com) -'--------------------------------------------------------------------------------------------------- -' - FoxBin2Prg ya viene en Español por defecto, pero si lo llega a necesitar, solo ejecute este script. -'--------------------------------------------------------------------------------------------------- -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.h") -cPath = FileSystemObject.GetParentFolderName( cOrigFile ) -nRet = FileSystemObject.DeleteFile( cOrigFile, True ) -oVFP9.DoCmd( "SET DEFAULT TO '" & cPath & "'" ) -oVFP9.DoCmd( "BUILD EXE foxbin2prg.exe FROM foxbin2prg.pjx RECOMPILE" ) -WSHShell.run foxbin2prg_exe -WScript.Quit(nExitCode) diff --git a/FoxBin2Prg__Compile_in_English.vbs b/FoxBin2Prg__Compile_in_English.vbs deleted file mode 100644 index 1306797..0000000 --- a/FoxBin2Prg__Compile_in_English.vbs +++ /dev/null @@ -1,22 +0,0 @@ -'--------------------------------------------------------------------------------------------------- -' 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) diff --git a/FoxBin2Prg__kompilieren_auf_Deutsch.vbs b/FoxBin2Prg__kompilieren_auf_Deutsch.vbs deleted file mode 100644 index e7a5ab1..0000000 --- a/FoxBin2Prg__kompilieren_auf_Deutsch.vbs +++ /dev/null @@ -1,22 +0,0 @@ -'--------------------------------------------------------------------------------------------------- -' FoxBin2Prg__kompilieren_auf_Deutsch.vbs - 10/08/2014 - Fernando D. Bozzo (fdbozzo@gmail.com) -'--------------------------------------------------------------------------------------------------- -' - Führen Sie einfach auf FoxBin2Prg Hauptverzeichnis, und Sie erhalten eine EXE-Datei mit Texten übersetzt bekommen -'--------------------------------------------------------------------------------------------------- -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_de.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)