Hej
Har gjort ett litet program i VB6 som jag bl.a. kör via en exe. fil.

Har även gjort ett installationsprogram för programmet
där en tänkt användare kan installera.

Har lagt in allt på en bränd CD med
[autorun] OPEN=Boksökare.EXE
Boksökare.EXE
'och själva Applicationen
Installera.exe (Där hela programmet ligger)

Via autorunen öppnas naturligtvis
Boksökare.EXE

Sedan kan jag ladda ner genom Private Sub Image12_Click() ...etc

Allt väl.......

Vad jag nu försöker åstadkomma är ett alternativ där användaren kan skippa installatiinen till sin hårddisk och istället köra från CD:n. Jag har även förutom Installera.exe lagt med samtliga mappar och filer lösa i installationen. Som det nu är måste man gå via utforskaren. Inte bra.... Jag har naturligtvis en Avsluta knapp i programmet. Därefter söker jag efter CD-enheten och klickar. Då startar ju naturligtvis autorun funktionen om igen. Hur kan man lösa detta genom kodning. Eller måste man skippa autorunen???

Option Explicit
Private Declare Function GetDriveType Lib "kernel32" _
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Image12_Click()
'En Test
'5 = CD/DVD

Dim i As Long, ret As Long, shellOk As Long, drv As String
For i = 65 To 90 ' A - Z
ret = GetDriveType(Chr$(i) & ":\")
If ret = 5 Then
drv = Chr$(i) & ":\"
'Om Installera.exe hittas kommer det att startas
On Error Resume Next
If Dir$(drv & "Installera.exe") <> "" Then
shellOk = Shell(drv & "Installera.exe", vbNormalFocus)
DoEvents
End If
End If
Next 'i
If shellOk <= 0 Then MsgBox "Hittade inte CD program"
End Sub

Glömde att jag återigen vill ge en eloge till Sven för kodningen ovan.

Klar