Checking to see if a file exists

[Matt]

I'm trying to write some code to check if a file exists in a particular directory, if the file does exist, I want to bring up a message box confirming that the file exists. I would appreciate any suggestions.

Thanks

Matt

 

[Dave Hawley]

Hi Matt


Full ifo here: http://www.ozgrid.com/VBA/IsWorkbookOpen.htm

Sub DoesWorkBookExist()
'''''''''''''''''''''''''''''''
'Written by http://www.Ozgrid.com

'Test to see if a Workbook exists
''''''''''''''''''''''''''''''''
Dim i As Integer

	With Application.FileSearch
		.LookIn = "C:MyDocuments"
		'* represents wildcard characters
		.FileName = "Book*.xls" 
			If .Execute > 0 Then 'No Workbook
			      MsgBox "There is no Workbook."
			Else 'There is a Workbook
			      MsgBox "The Workbook does not exist"
			End If
	End With
End Sub

 

[Juan Pablo González]

Another option:

Sub T()
Dim Pth as String

Pth = "C:My DocumentsTestFile.xls"

If Len(Dir(Pth)) > 0 then
'Found It !
Else
MsgBox "Coudln't find it"
End If
End Sub

 

[Matt]

Thanks again Dave

 

[Matt]

Thanks Juan