Checking if files exists

[geoffishere]

I was wondering if this was possible. I have a list of names in a column. There are matching named files in a folder. In excel i used to run a macro to check if these files exist. Is it possilble to do this in access. The code i used in excel is below



Sub check()

Dim LRow As Integer
Dim LPath As String
Dim LExtension As String
Dim LContinue As Boolean

'Initialize variables
LContinue = True
LRow = 2
LPath = "K:\School of Community, Health Sciences and Social Care\Central school\ADMIN STAFF FOLDERS\Matthew Holden\Excel\"
LExtension = ".xls"

'Loop through all column A values until a blank cell is found
While LContinue

'Found a blank cell, do not continue
If Len(Range("A" & CStr(LRow)).Value) = 0 Then
LContinue = False

'Check if file exists for part number
Else
'Place "No" in column B if the file does NOT exist
If Len(Dir(LPath & Range("A" & CStr(LRow)).Value & LExtension)) = 0 Then
Range("B" & CStr(LRow)).Value = "No"
'Place "Yes" in column B if the file does exist
Else
Range("B" & CStr(LRow)).Value = "Yes"
End If
End If

LRow = LRow + 1

Wend

[RuralGuy]

the Dir() function works the same way in Access.