Page 1 of 1

Convert a small Visual Basic 6 code to FnxBasic co

Posted: Fri Jun 03, 2011 7:07 am
by Darren
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