메뉴
이 페이지에서
실무 위키›VBA 코드›FileExists

FileExists

Function

지정한 경로에 파일이 존재하는지 확인하는 VBA 사용자 지정 함수로, 파일이 있으면 TRUE, 없으면 FALSE를 반환합니다.

FileExists 코드 미리보기
구문 = FileExists ( Path_ )
인수구분 형식 설명
Path_ 필수 String
존재여부를 확인할 파일 경로입니다.

마스터 코드

복사한 코드는 VBA 편집기(Alt + F11) 새 모듈에 붙여넣어 사용하세요
Module1 · FileExists
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

활용 예제

시트에서 파일 존재 여부 확인
= FileExists ( "C:\Users\Oppadu\Desktop\매출자료.xlsx" )
'// 파일이 있으면 TRUE, 없으면 FALSE 를 반환합니다.
덮어쓰기 전에 같은 이름의 파일이 있는지 검사
Sub 저장전_중복확인()
Dim strPath As String
strPath = ThisWorkbook.Path & "\매출자료.xlsx"
If FileExists(strPath) = True Then
MsgBox "같은 이름의 파일이 이미 있습니다.", vbExclamation
Else
ThisWorkbook.SaveCopyAs strPath
End If
End Sub
댓글 2
4.5 (2개 평가)
proswc
proswc 2020.10.04 12:07
감사합니다. 도음이 되도록 복습해 보겠습니다.
강민준🤗
강민준🤗 2024.08.11 12:12
좋은 자료 감사합니다.🙇‍♂️
스크랩 완료