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

Replace Scripting.FileSystemObject MoveFile with Win32API equivalent

Browse Source
This commit is contained in:
fdbozzo
2017-02-18 16:11:01 +01:00
parent ba0c735883
commit 2aac428525
6 changed files with 51 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Normalize_FileNames.vbs
View File

@@ -48,7 +48,11 @@ Else
Next
If GetBit(nDebug, 4) Then
MsgBox "End of Process!", 64, WScript.ScriptName
If nExitCode = 0 Then
MsgBox "End of Process!", 64, WScript.ScriptName
Else
MsgBox "End of Process!", 48, WScript.ScriptName
End If
End If
End If
@@ -93,7 +97,7 @@ Private Sub evaluateFile( tcFile )
MsgBox cCMD, 0, "PARAMETERS"
Else
nRet = oVFP9.DoCmd( cCMD )
'nExitCode = oVFP9.Eval("_SCREEN.ExitCode")
nExitCode = oVFP9.Eval("_SCREEN.ExitCodeFNC")
End If
End Sub