Changeset: 468 fdbozzo - 09/11/2014 00:36:27:

- Adapto el script de conversión PRG a BIN para ignorar los archivos de clases individuales (archivo.clase.tx2)

Convert_VFP9_PRG_2_BIN.vbs

@@ -158,6 +158,11 @@ End Sub
 
 Private Sub evaluateFile( tcFile )
 	lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
+	lcFileName = FileSystemObject.GetFileName( tcFile )
+	laPoints = Split( lcFileName, "." )
+	lnPoints = UBound(laPoint)
+	'-- No proceso los archivos con m<>s de un punto (clases en archivos individuales) por performance
+	If lnPoints = 1 Then
 		oVFP9.SetVar "gc_Ext", lcExt
 		
 		'PROCEDURE EvaluarConfiguracion
@@ -170,6 +175,7 @@ Private Sub evaluateFile( tcFile )
 			ReDim Preserve aFiles(nFile_Count)
 			aFiles(nFile_Count) = tcFile
 		End If
+	End If
 End Sub