romfast/foxbin2prg
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changeset: 326 fdbozzo - 22/06/2014 21:39:59:

Browse Source
This commit is contained in:
fdbozzo
2014-06-22 21:40:36 +02:00
parent 6884ef7cd7
commit a494d5ef39
2 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Convert_VFP9_BIN_2_PRG.vbs
View File

@@ -151,11 +151,12 @@ End Sub
Private Sub evaluateFile( tcFile ) Private Sub evaluateFile( tcFile )
lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) ) lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
oVFP9.SetVar "gc_Ext", lcExt oVFP9.SetVar "gc_Ext", lcExt
'If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg(gc_Ext)") Then oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '', '', '', '', '', '', '', '', '" & tcFile & "' )" )
If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Bin2Prg(gc_Ext)") Then
nFile_Count = nFile_Count + 1 nFile_Count = nFile_Count + 1
ReDim Preserve aFiles(nFile_Count) ReDim Preserve aFiles(nFile_Count)
aFiles(nFile_Count) = tcFile aFiles(nFile_Count) = tcFile
'End If End If
End Sub End Sub

10
Convert_VFP9_PRG_2_BIN.vbs
View File

@@ -158,11 +158,17 @@ End Sub
Private Sub evaluateFile( tcFile ) Private Sub evaluateFile( tcFile )
lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) ) lcExt = UCase( FileSystemObject.GetExtensionName( tcFile ) )
oVFP9.SetVar "gc_Ext", lcExt oVFP9.SetVar "gc_Ext", lcExt
'If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then
'PROCEDURE EvaluarConfiguracion
' LPARAMETERS tcDontShowProgress, tcDontShowErrors, tcNoTimestamps, tcDebug, tcRecompile, tcExtraBackupLevels ;
' , tcClearUniqueID, tcOptimizeByFilestamp, tc_InputFile
oVFP9.DoCmd( "oFoxBin2prg.EvaluarConfiguracion( '', '', '', '', '', '', '', '', '" & tcFile & "' )" )
If oVFP9.Eval("oFoxBin2prg.TieneSoporte_Prg2Bin(gc_Ext)") Then
nFile_Count = nFile_Count + 1 nFile_Count = nFile_Count + 1
ReDim Preserve aFiles(nFile_Count) ReDim Preserve aFiles(nFile_Count)
aFiles(nFile_Count) = tcFile aFiles(nFile_Count) = tcFile
'End If End If
End Sub End Sub