Kører processen

Det jeg har gjort er:
    Dim Program
    Program = Shell(Program.Exe, vbHide) 'Starts the program
    Do Until Len(Program) > 0
        'Looping until program has started
    Loop
    strProcessID = Program 'Getting processID

Og herefter har jeg så tænkt mig at lave et loop ala:
    Do until procces is not running
      'Looping until program has ended
    Loop
    CmdRun = "Programmet er kørt"

Simpelt...den har jeg længe haft brug for.
Jeg ser dog et problem, hvis processen ikke kan starte, vil programmet gå i loop.

Det er rigtigt. Så må man jo lave en timeout funktion. Men den tid den sorg. Først vil jeg gerne vide, hvordan jeg kan teste på om processen kører.

kan du ikke bare checke om det er færdigt med at kører ved at loope til strProcessID er tom igen ?

Do Until Len(Program) = 0
        'Looping until program has stopped
    Loop

Nej det vil ikke virke, for Program er = ProcessID indtil det bliver ændret (Hvilket den ikke gør automatisk). Det vil sige, at der skal kigges på processen, for at se om den stadig kører.

Jeg er på udkig efter lidt af det samme...måske du kan bruge de svar jeg evt. måtte få i dette spørgsmål: http://www.eksperten.dk/spm/267059

Jeg sad og legede lidt med dette...hvis du laver en DoEvents før din loop, vil programmet starte helt op før der fortsættes. Jeg prøvede at åbne et dokument med winword.exe...hele dokumentet blev åbnet før VB fortsatte.
Så du kan ersatte din loop med en If..end if

Dim Program
    Program = Shell(Program.Exe, vbHide) 'Starts the program
    DoEvents
    If Len(Program) > 0
      strProcessID = Program 'Getting processID
    Else
      'program failed to start
    End If

Ok, så er loopet ikke længere nødvendigt. Så mangler jeg bare at finde ud af når programmet er blevet lukket (Eller i mit tilfælde, hvornår barchjobbet er slut)

Det er nøjagtigt det samme jeg roder med...nemlig et batchjob.
Jeg har en løsning som jeg bruger nu, men den er ikke så fed.
Jeg laver output fra batchjob til fil: batchjob.bat > result.txt
Og for at gøre det besværligt så oprettes result.txt allerede når batchjobbet går igang, så i slutningen af mit bacthjob laver jeg en rename af filen til nyresult.txt..nyresult.txt bliver altså oprettet som sidste linie i min batchprocess. Jeg looper så bare indtil filen nyresult.txt findes. Når den findes er bacthjobbet færdigt, og jeg slette nyresult.txt igen.
Ikke den bedste måde at lave det på, men det virker indtil jeg finder en anden metode.

Ja, det er da en måde at gøre det på, men det må kunne lade sig gøre, at gøre det på den her måde.

Nå, det får lov at ligge til i morgen. Der kommer en af de andre tilbage efter ferie, og det kunne jo tænkes at han vidste hvordan det skulle gøres.

Det kan gøres på følgende enkle måde

Public Declare Function GetProcessVersion Lib "Kernel32.dll" (ByVal lProcessID As Long) As Long

Private Sub WaitForProcessToEnd(PID As Long)
    DoEvents
  Loop While GetProcessVersion(PID) <> 0
End Sub

//Nolle_K

Ups der mangler et Do in Loopet

Private Sub WaitForProcessToEnd(PID As Long)
  Do
    DoEvents
  Loop While GetProcessVersion(PID) <> 0
End Sub

//Nolle_K

Thnx. Det virkede. Nu ser det således ud:

Option Explicit
Private mvarProg As String
Private mvarParameter As String
Private Declare Function GetProcessVersion Lib "Kernel32.dll" (ByVal lProcessID As Long) As Long

Public Function CmdRun() As String
    Dim Program
    Dim intProcessID
    Dim strReturn

    Program = Shell(mvarProg & mvarParameter, vbHide) 'Starts the program
    DoEvents
    If Len(Program) > 0 Then
        'Program started
        intProcessID = Program 'Getting processID
        'Test if program has finished
        WaitForProcessToEnd (intProcessID)
        strReturn = "Programmet er færdig!"
    Else
        'program failed to start
        strReturn = "Der skete en fejl, og programmet startede ikke."
    End If
    CmdRun = strReturn
End Function
Private Sub WaitForProcessToEnd(PID As Long)
  Do
    DoEvents
  Loop While GetProcessVersion(PID) <> 0
End Sub
Public Property Let Prog(ByVal vData As String)
    mvarProg = vData
End Property

Public Property Let Parameter(ByVal vData As String)
    mvarParameter = vData
End Property