behöver lite hjälp.
det är så här,
programet ska kolla om en viss fil om den finns så kör programmet om
inte så stäng av programmet.

tacksam för all hjälp

/larsson

Hej
Finns många olika sätt.Det proffsigaste tycker jag är.
Man kan lägga in fler Case tex filen finns men är redan öppnad mm.

Private Function FileExist(ByVal FilId As String) As Boolean
'FilId innehåller hela sökvägen till sökt fil
'Kontroll om filen redan finns
Dim FileNum
FileNum = FreeFile
On Error Resume Next
Open FilId For Input As #FileNum
Select Case Err
Case Is = 0
FileExist = True
Case Else
FileExist = False
End Select
Close #FileNum
On Error GoTo 0
End Function

nu får jag mothugg
Sven

Sven, inga mothugg men ett annat förslag:
function FileExists(sPath as string) as boolean
if len(dir(sPath)) then FileExists=true
end function

Jag försvara SvenPons funktion. Dir funktionen kanske verkar smidig. Men kan ge fel svar. Om jag skickar in en tom sträng, ett katalognamn, jolertecken eller något dylikt. Att öppna filen är ett mer pålitligt sätt att kontrollera om den finns. Finns en svag het med den oxå. Om filen är låst av en annan process kommer den oxå att retunera fel.