Changeset: 183 fdbozzo - 03/03/2014 20:20:31:

v1.19.15
- Arreglo bug información OLE que se borra cuando se procesa un TX2 legacy

Convert_VFP9_PRG_2_BIN.vbs

@@ -66,10 +66,17 @@ Else
 		scanDirs( WScript.Arguments(i) )
 	Next
 
+	If WScript.Arguments.Count = 1 AND FileSystemObject.FolderExists( WScript.Arguments(0) ) Then
+		'-- Es un solo directorio. Lo tomo como origen de compilaci<63>n
+		cFlagRecompile			= "'" & WScript.Arguments(0) & "'"
+	Else
+		cFlagRecompile			= "'1'"
+	End If
+
 	cFlagGenerateLog		= "'0'"
 	cFlagDontShowErrMsg		= "'0'"
 	cFlagShowCall			= "'0'"
-	cFlagRecompile			= "'1'"
+	'cFlagRecompile			= "'1'"
 
 	If GetBit(nDebug, 1) Then
 		cFlagGenerateLog	= "'1'"