vba testing if a file exists

[yoko]

Hi,

I've used the following code to test if a file exists before copying it to somewhere else but it keeps giving me an error saying.

"Expected end sub"


This is the code

Private Sub CommandButton1_Click()

Function FileExists(FileName As String) As Boolean
     FileThere = (Dir(FileName) > "")
End Function

If FileExists("C:\Archive.pst") Then

CommandButton1.Caption = "Please wait..."
CommandButton1.Enabled = False
CommandButton2.Enabled = False
FileCopy "C:\Archive.pst", "M:\email\Archive.pst"

Else
     MsgBox "File not found!", vbOKOnly, "Error!"
End If

End Sub

Any ideas?

Cheers

 

[yoko]

Also is there a way to say that once the file has been copied a message pops up saying "done" or something.

Cheers

 

[Wolfshead]

Hi
You have got our function procedure inside the code of the sub procedure. Cut:
Function FileExists(FileName As String) As Boolean
FileThere = (Dir(FileName) > "")
End Function
and paste it after the End Sub statement

Wolfshead