have the code below checking if a directory exists:
JobRef = Left(Form_frmViewJob.txtJobReference, 8) & " - " & Right(Form_frmViewJob.txtJobReference, 6)
Me.dlgViewJobFolder.InitDir = "w:\dosapps\delta5\private\b2bdbase\borisdata\" & JobRef
If Dir(Me.dlgViewJobFolder.InitDir) = "" Then...