[Word VBA - 6] Local File Exists check

Private Sub Document_Close()

Application.Quit SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument

'ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
Exit Sub
   
End Sub

Private Sub Document_Open()

If FileExists("C:\Client\1234.txt") = 1 Then
                       
                        MsgBox "파일 있음 / 내부", vbInformation, "Security Policy"
                    Else
                        MsgBox "파일 없음 / 외부", vbInformation, "Security Policy"
                        Call Document_Close
                    End If
               

End Sub

Function FileExists(ByVal fname As String) As String
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(fname) Then
    FileExists = "1"
Else
    FileExists = "0"
End If
End Function