This is a bit fuller and canbe re used over and over - in my opinion i dislike 'on error ....' nothing taken from Richies code this would be my apporach - took about 5 minutes to write and hope stops any bugs
Had to add XXX to teh dir as have a locked WorkStation at work, sure You can edit ok thou - this is in line with Richies ideas of UDF and is quite powerful
Private Const theDrive As String = "C"
Private Const theDriveFormat As String = ":\"
Private Const theDir As String = "xxx\su078 images"
Private Const theDirFormat As String = "\"
Public targetpath As String
If testDir = True Then
Function testDir() As Boolean
testDir = False
targetpath = theDrive
targetpath = targetpath & theDriveFormat
targetpath = targetpath & theDir
targetpath = targetpath & theDirFormat
If Dir(targetpath, vbDirectory) = "" Then testDir = False _
Else testDir = True