OPSTARTEN WiseImage

[RENEVER]

Om autocad op te laten starten doe ik het volgende:
Dim fso As New FileSystemObject
Dim Fil As File
Set Fil = fso.GetFile("C:\Program Files\AutoCAD 2002\acad.exe")

Om WiseImage via een snelkoppeling op te laten starten staat in het venster
Doel:"C:\Program Files\AutoCAD 2002\acad.exe"
en in het venster :
Beginnen in :"C:\Program Files\Consistent Software\WiseImageAC Demo X\AC2000"

De vraag is :
Hoe kan ik dmv vb6 met fso.GetFile WiseImage(+autocad) laten opstarten ?

Groetjes René

 

[puppie]

Deze vraag heeft niks met dit topic te maken.
Dat is voor de helpmij dag.
topic wordt verplaatst naar de sectie software.
de volgende keer graag goed kijken waar je een vraag plaatst.

 

[RENEVER]

Oke puppie ik zal de volgende keer beter uitkijken.

Ik heb daarnaast ook nog mijn vraag verkeerd gesteld het volgende is wat ik wil toepassen :

Dim fso As New FileSystemObject
Dim Fil As File
On Error Resume Next
Set Fil = fso.GetFile("C:\Program Files\ACAD2000\acad.exe")
If Err.Number <> 0 Then
Err.Clear
rene = MsgBox("Scriptfile ATTACH.scr is gemaakt." + Chr$(13) + Chr$(13) + Chr$(13) + Chr$(13) + "Start Autocad 2000 --> Tools --> Run Script --> Klik op Attach.scr.", 64, "Autocad 2000")
Else
rene = MsgBox("Scriptfile ATTACH.scr is gemaakt." + Chr$(13) + Chr$(13) + Chr$(13) + Chr$(13) + "Druk op OK --> Autocad 2000 wordt gestart --> Tools --> Run Script --> Klik op Attach.scr.", 64, "Autocad 2000")

Dim RetVal
On Error Resume Next
RetVal = Shell("C:\Program Files\ACAD2000\acad.exe", 1) 'opstarten
End If


Met fso.GetFile controleer ik of autocad 2000 op de pc geinstalleerd is,
indien een andere autocad geinstalleerd is dan geeft een MsgBox aan dat autocad met de hand moet worden opgestart.
Indien autocad 2000 wel geinstalleerd is dan zal autocad autom. opgestart worden d.m.v. Shell("C:\Program Files\ACAD2000\acad.exe", 1)

Nu kom ik er maar niet achter hoe ik autocad inclusief wiseimage kan laten opstarten.

Groetje René