The full code is as follows
everything is going well except exe not getting executed
CODE
Private Sub vdraw_NeedFileConvert(FileToOpen As String, TempFileName As String, ByVal CadVer As VDProLib5.VdConstFileVer, success As Boolean)
Dim parameters As String
Dim destfilename As String
Dim src As String
Dim actions As Long
destfilename = TempFileName
src = FileToOpen
success = False
actions = vdraw.ActionValidates
If Not (actions And 4194304) = 4194304 Then actions = actions + 4194304
If Not (actions And 8388608) = 8388608 Then actions = actions + 8388608
parameters = "? " + src + "? " + destfilename + "? " + CStr(CadVer) + " ? 1024 ? 768" + " ? " + CStr(actions) + " ? 0 ? 0 ? 1"
Dim appPath As String
Dim val As Integer
val = 1
appPath = app.path &"\vdconv.exe"
success = vdraw.VdShellExecute("", appPath, parameters, val)
End Sub
This post has been edited by LtSwapnil: 6 May, 2009 - 03:42 AM