/ Forside/ Teknologi / Udvikling / VB/Basic / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Kør program !!!
Fra : PeterPirat
Vist : 564 gange
25 point
Dato : 20-04-01 10:24

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

 
 
Kommentar
Fra : konsulenten


Dato : 20-04-01 13:03

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

Kommentar
Fra : PeterPirat


Dato : 20-04-01 13:22

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



Kommentar
Fra : PeterPirat


Dato : 20-04-01 14:51

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.....


Kommentar
Fra : konsulenten


Dato : 20-04-01 15:08

Nej du skal skrive

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

Kommentar
Fra : Nyhedsbruger


Dato : 20-04-01 20:41

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"
>



Accepteret svar
Fra : Nyhedsbruger

Modtaget 25 point
Dato : 20-04-01 21:30

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"
>



Godkendelse af svar
Fra : PeterPirat


Dato : 23-04-01 11:41

Tak for svaret Thomas J..

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

Virkede da jeg fjernede det...

Mange tak...
                        

Kommentar
Fra : Nyhedsbruger


Dato : 23-04-01 22:00

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"
>



Du har følgende muligheder
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.
Søg
Reklame
Statistik
Spørgsmål : 177356
Tips : 31960
Nyheder : 719565
Indlæg : 6407418
Brugere : 218867

Månedens bedste
Årets bedste
Sidste års bedste