G
Guest
I must be reading the following incorrectly.
As it is now written, it processess as if the file exists,
even when it doesn't.
Last week I had something similar and it always processed
as if NO file existed, even when it did.
What am I missing here?
Sub CheckFileName()
Dim FName As String
FName = ActiveWorkbook.Name
Dim NewName As String
NewName = FName & "_EM"
' Check if the following exists:
' C:\Contracts EMailed\'filename'_EM.xls
If Dir("C:\Contracts EMailed\" & NewName) = "" Then
' IF it exists, then Process is not allowed
' NotAllowed Message pops up, Click OK, and project Exits
Call NotAllowed
' If it does NOT exist, then Exit this code and Continue
Else: Exit Sub
End If
End Sub
As it is now written, it processess as if the file exists,
even when it doesn't.
Last week I had something similar and it always processed
as if NO file existed, even when it did.
What am I missing here?
Sub CheckFileName()
Dim FName As String
FName = ActiveWorkbook.Name
Dim NewName As String
NewName = FName & "_EM"
' Check if the following exists:
' C:\Contracts EMailed\'filename'_EM.xls
If Dir("C:\Contracts EMailed\" & NewName) = "" Then
' IF it exists, then Process is not allowed
' NotAllowed Message pops up, Click OK, and project Exits
Call NotAllowed
' If it does NOT exist, then Exit this code and Continue
Else: Exit Sub
End If
End Sub