Find ud af om filen kører

slå microsoft scripting runtime til
Dim Filename As String
Dim FileExists As Boolean
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Filename = 'Put your path and filename here
if fs.fileexist(Filename) then
    FileExists = True
else
    FileExists = False
end if

ups skulle være svar

håber det kan bruges :)

btw hvis det bliver langsommere af det så prøv
Dim Filename As String
Dim FileExists As Boolean
Dim fs As new FileSystemObject
Filename = 'Put your path and filename here
if fs.fileexist(Filename) then
    FileExists = True
else
    FileExists = False
end if

Det virker ikke :|
Object does not support that property or method

Og kigger det lille script der i process ? Eller ser det bare om filen eksistere? Det skal jo se om filen kører.

hmm tja den ser kun om den findes :( btw du skal også slå Microsoft scripting runtime til

Hej.

Jeg er ikke ganske sikker på at jeg har forstået spørgsmålet, men hvis det gælder et tjek for om et program er startet i forvejen kan du bruge PrevInstance.

Private Sub Form_Load()
  If App.PrevInstance = True Then
    x = MsgBox("Programmet kører allerede.  Ses det ikke i proceslinien, er det muligvis ikke korrekt afsluttet.  Tryk CTRL + ALT + DEL og tjek om det står i 'tasklisten'.  Hvis det gør det, så afslut det dér.  Ellers kommer du til at genstarte din maskine.  Undersøg evt. om din genvej refererer til din lokale PC og ikke til et netværksdrev.  Booking-programmet skal være installeret på alle klienter!", 16, "Medd. fra start af JkfSoft Booking System")
    End
    Exit Sub
  End If
.......

M.v.h.  Jørn

Ikke helt det rigtige men det kan bruges :) Takker!