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
MsgBox ("Directory not exist " & Me.dlgViewJobFolder.InitDir)
GoTo exit_sub
End If
Me.dlgViewJobFolder.showopen
For some reason it always drops into the "directory not exist message" even if the directory does exist.
Please help.
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
MsgBox ("Directory not exist " & Me.dlgViewJobFolder.InitDir)
GoTo exit_sub
End If
Me.dlgViewJobFolder.showopen
For some reason it always drops into the "directory not exist message" even if the directory does exist.
Please help.