externes programm starten

  • VB6

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

    Andere Programme kannst du mit der Funktion Shell starten:

    <pre>
    Shell(pathname[,windowstyle])
    </pre>

    pathname Erforderlich;
    Wert vom Typ Variant (String). Name des auszuführenden Programms sowie alle erforderlichenArgumente oderBefehlszeilen-Optionen. Auch Verzeichnis-, Ordner- oder Laufwerksangaben können enthalten sein.

    windowstyle Optional.
    Wert vom Typ Variant (Integer), der dem Stil des Fensters entspricht, in dem das Programm ausgeführt werden soll. Wenn windowstyle nicht angegeben wird, erhält das Programm den Fokus und wird im minimierten Zustand gestartet.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „M4st3r“ ()

    Wie man n VB-Skript einbinden kann weiß ich leider nich ;(

    Aber das mit dem Shell funzt z.B. so:


    dim x as long
    dim Musikdatei as string

    Musikdatei = "C:\Musik\Lied1.mp3"

    x = shell("C:\Programme\Winamp\Winamp.exe" & " " & Musikatei)

    'Dies würde Winamp mit der Musik-Datei "C:\Musik\Lied1.mp3" starten
    'Musikdatei ist der Parameter, zwischen EXE und parameter muss immer ein Space (" ") sein!



    Mich würde ineressieren, welche styes es gibt...
    Du meinst einen relativen Pfad, ja sicher geht das. Diese Pfadangabe bezieht sich dann auch das aktuelle Verzeichnis von CurDir bzw was bei Verknüpfungen "Ausführen in" genannt wird. Um den Pfad relativ zur eigenen Exe zu machen: App.Path, für Windows-Path den Environ-Befehl usw...
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau
    Wenn du alle Environ-Einträge haben willst, schreib dir folgendes Programm:

    1. Textbox "Text1"
    und sonst brauchst du hald ein Formular "Form1"

    Private Sub Form1_Load()
    dim i as integer

    text1.text = ""

    for i = 1 to 255 'Wenn höher oder tiefer: Fehlermeldung
    if environ(i) <> "" then
    text1.text = text1.text & _
    i & ": " & vbtab & envire(i) & vbcrlf
    end if
    next i

    End Sub


    Wenn du nun einen der angezeigten Ofäde aufrufen willst, machst du Environ(Stringteil nach Zahl vor "=")

    Ich würde es dir mim String empfehlen, da man ja nie weiß, was sich bei Windows alles ändert ^^



    PS: Bei mir funzt der Mehrzeilige VB-Tag nich...
    Was mach ich falsch:

    " " & VB-Tag & " " & CodeAnfang
    Code
    Code
    Code
    CodeEnde & " " & /VB-Tag & " "

    natürlich nich so dargestellt son dern mit easy-html und ohne """ und ohne "&"

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mad Andy“ ()