FileExists 함수 사용법 (파일 존재여부 확인) :: VBA 사용자 함수

예제파일

요약

사용자 지정함수인 FileExists 함수에 대해 알아봅니다.

설명

FileExists 함수는 지정한 경로에 파일이 존재하는지 여부를 확인하는 함수입니다. FileExists 함수를 사용하면 엑셀파일을 추가로 저장하거나 이미지 파일 또는 pdf파일 생성할 때 파일명 중복으로 인한 오류를 방지할 수 있습니다.

사용자의 바탕화면 경로를 자동으로 받아오려면 GetDesktopPath 함수를 사용합니다. 윈도우에서는 파일명에 사용할 수 없는 몇가지 특수기호가 있습니다. 입력한 파일명이 유효한지 확인하려면 ValidFileName 함수를 사용하세요.

VBA FileExists 함수 사용법 — FileExists 함수를 사용하여 해당경로에 파일이 존재하는지 여부를 확인합니다.

반환값

지정한 경로에 파일이 존재할 경우 TRUE 를 반환합니다. 파일이 존재하지 않을 시 FALSE를 반환합니다.

인수

Path_

존재여부를 확인할 파일 경로입니다.

VBA 코드

Public Function FileExists(ByVal path_ As String) As Boolean
 
'########################################################
'입력한 파일경로에 파일 존재여부를 확인합니다.
'https://www.oppadu.com/vba-fileexists-함수/
'########################################################
 
    FileExists = (Dir(path_, vbDirectory) <> "")
 
End Function
 
Sub 파일존재여부확인(Path As String)
 
'##################################################################################
'Path로 입력된 경로에 파일이 존재하는지 여부를 확인하여 안내메세지를 띄웁니다.
'##################################################################################
 
If FileExists(Path) = True Then
    MsgBox "해당 파일이 이미 존재합니다." & vbNewLine & _
            "파일경로 : " & vbNewLine & _
            Path
Else
    MsgBox "해당 파일이 존재하지 않습니다."
End If
 
End Sub

세부내용

1. VBA 의 DIR 함수를 사용하여 Path_ 로 받아온 경로에 파일 존재여부를 확인합니다.

DIR 함수에 대한 자세한 설명은 MS 홈페이지 관련 링크를 참고하세요.

Public Function FileExists(ByVal path_ As String) As Boolean
 
    FileExists = (Dir(path_, vbDirectory) <> "")
 
End Function

2. FileExists 함수를 이용하여, 해당 경로에 파일이 존재하는지 여부를 안내메세지로 출력합니다.

Sub 파일존재여부확인(Path As String)
 
'##################################################################################
'Path로 입력된 경로에 파일이 존재하는지 여부를 확인하여 안내메세지를 띄웁니다.
'##################################################################################
 
If FileExists(Path) = True Then
    MsgBox "해당 파일이 이미 존재합니다." & vbNewLine & _
            "파일경로 : " & vbNewLine & _
            Path
Else
    MsgBox "해당 파일이 존재하지 않습니다."
End If
 
End Sub

4.5 2 투표

게시글평점