Convert a small Visual Basic 6 code to FnxBasic co
Posted: Fri Jun 03, 2011 7:07 am
Can anybody help???
Does anybody know how to change the following Visual Basic 6 code to FnxBasic code?
Private Declare Function exec_dwgconvert Lib "dwgconvert.dll" (ByVal lpCmdLine As String, ByVal Flags As Long) As
Long
Sub ConvertFile()
Parameters = Chr$(34) + Chr$(34) + Chr$(34) + InputFileName + Chr$(34) + Chr$(34) + Chr$(34) + " " + Chr$(34) +
Chr$(34) + Chr$(34) + OutputFileName + Chr$(34) + Chr$(34) + Chr$(34)
If InStr(OutputFileName, "dwg") > 0 Then Parameters = Parameters + " /2004"
Flags = 0
iret = exec_dwgconvert(Parameters, Flags)
End Sub
Any help would be appreciated.
Many thanks in advance!!!!
IsoCAM
Does anybody know how to change the following Visual Basic 6 code to FnxBasic code?
Private Declare Function exec_dwgconvert Lib "dwgconvert.dll" (ByVal lpCmdLine As String, ByVal Flags As Long) As
Long
Sub ConvertFile()
Parameters = Chr$(34) + Chr$(34) + Chr$(34) + InputFileName + Chr$(34) + Chr$(34) + Chr$(34) + " " + Chr$(34) +
Chr$(34) + Chr$(34) + OutputFileName + Chr$(34) + Chr$(34) + Chr$(34)
If InStr(OutputFileName, "dwg") > 0 Then Parameters = Parameters + " /2004"
Flags = 0
iret = exec_dwgconvert(Parameters, Flags)
End Sub
Any help would be appreciated.
Many thanks in advance!!!!
IsoCAM