Changeset: 325 fdbozzo - 22/06/2014 20:53:17:

- Arreglo de evaluación de soporte de tipo de archivo
2014-06-22 21:39:58 +02:00
parent 61efb46f79
commit 6884ef7cd7
7 changed files with 11 additions and 10 deletions
--- a/Convert_VFP9_BIN_2_PRG.vbs
+++ b/Convert_VFP9_BIN_2_PRG.vbs
@@ -151,11 +151,11 @@ End Sub
 Private Sub evaluateFile( tcFile )
 	lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
 	oVFP9.SetVar "gc_Ext", lcExt
-	If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg(gc_Ext)") Then
+	'If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg(gc_Ext)") Then
 		nFile_Count = nFile_Count + 1
 		ReDim Preserve aFiles(nFile_Count)
 		aFiles(nFile_Count) = tcFile
-	End If
+	'End If
 End Sub