---

Jeg vil lave et menu system der skal kunne starte diverse programmer op når man smider en cd i et drev.
Jeg kan starte et program op vha. :

Private Sub Command1_Click()
Shell "E:\SETUP.EXE", vbNormalFocus
End Sub

Men nu er E jo statisk
Hvordan gør man det dynamisk, dvs den selv finder ud af om det er E, F, G eller.... programmet er startet op fra ??

På forhånd tak...
Erik A

---

Hej Erik,

Jeg er ikke helt med på hvad du mener, du har et program som starter andre programmer op, så langt så godt, og de andre programmer ligger på en CD, hvor du ikke aner hvad drevnavnet er, er dette forstået korrekt?

Konsulenten

---

Jeg har en hulens masse små-programmer liggende på en cd.
Det program jeg har lavet skal starte op vha autorun.ini når jeg smider cd'en i.

Problemet er bare at jeg kan smide den i tre forskellige cd-rom drev e, f, g.
Når jeg så trykker på en knap, fx. IQC så skal den installere IQC...
Ligger den i drev E, er det jo fint, men hvordan laver jeg sådan at den også kan starte i F, G .... o.s.v
Så duer 'Shell "E:\SETUP.EXE" ' jo ikke mere...

Private Sub Command1_Click()
Shell "E:\SETUP.EXE", vbNormalFocus
End Sub

---

Kan jeg så bare skrive :

Private Sub Command1_Click()
Shell "hvor:\SETUP.EXE", vbNormalFocus
End Sub

????
Det virker nemlig ikke her...

Undskyld mig men jeg er totalt nybegynder.....

---

Nej du skal skrive

Private Sub Command1_Click()
dim hvor as string
hvor = App.Path
Shell hvor & "SETUP.EXE", vbNormalFocus
End Sub

---

Har selv "bøvlet" lidt med det, men du kan lave en simpel bat fil som
tjekker en bestemt fil på din cd-skive,
derved finder den ud af hvilket drev dit cd-rom er.

F.eks. sådan: (her er det smart.chk - som den leder efter)

Håber du også kan bruge det
MVH
Thomas J.

Rem **************** Tjek af cd-drev******************
@echo off
break=ON
cls
REM *********tjekker for en fil*********************
if exist d:\smart.chk set xdrive=d:\
if exist e:\smart.chk set xdrive=e:\
if exist f:\smart.chk set xdrive=f:\

call %xdrive%install

REM ********installation afsluttet - Thomas J. **********





> Jeg vil lave et menu system der skal kunne starte diverse programmer op
når man smider en cd i et drev.
> Jeg kan starte et program op vha. :
>
> Private Sub Command1_Click()
> Shell "E:\SETUP.EXE", vbNormalFocus
> End Sub
>
> Men nu er E jo statisk
> Hvordan gør man det dynamisk, dvs den selv finder ud af om det er E, F, G
eller.... programmet er startet op fra ??
>
> På forhånd tak...
> Erik A
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>

---

Hej Erik

Hvis din menu ligger på cd´en kan du bruge app.path. Et eksempel:

Private Sub Command1_Click()
Dim myPath$
myPath = App.Path
If Not (Right(myPath, 1) = "\") Then myPath = myPath + "\"
Shell myPath + "apps\setup.exe", vbNormalFocus
End Sub

Med venlig hilsen
Thomas J.

"PeterPirat" <PeterPirat.news@kandu.dk> skrev i en meddelelse
news:pkSD6.49749$o4.4017137@news010.worldonline.dk...
> Jeg vil lave et menu system der skal kunne starte diverse programmer op
når man smider en cd i et drev.
> Jeg kan starte et program op vha. :
>
> Private Sub Command1_Click()
> Shell "E:\SETUP.EXE", vbNormalFocus
> End Sub
>
> Men nu er E jo statisk
> Hvordan gør man det dynamisk, dvs den selv finder ud af om det er E, F, G
eller.... programmet er startet op fra ??
>
> På forhånd tak...
> Erik A
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>

---

Tak for svaret Thomas J..

Hvorfor apps ???
Shell myPath + "apps\setup.exe", vbNormalFocus

Virkede da jeg fjernede det...

Mange tak...
                        

---

Hej

Det var bare et eksempel

"PeterPirat" <PeterPirat.news@kandu.dk> skrev i en meddelelse
news:4KSE6.54991$o4.4659297@news010.worldonline.dk...
> Tak for svaret Thomas J..
>
> Hvorfor apps ???
> Shell myPath + "apps\setup.exe", vbNormalFocus
>
> Virkede da jeg fjernede det...
>
> Mange tak...
>
>
> --
> Leveret af:
> http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.