VBA 파일 또는 폴더 존재여부 확인하기

VBA에서는 Dir함수를 사용하여 파일 또는 폴더의 존재 여부를 확인할 수 있습니다.

Dir 명령을 사용하여 파일 존재 여부 확인하기

앞에서 언급했듯이 Dir 함수를 사용하여 선택한 파일이 컴퓨터에 존재하는지 확인할 수 있습니다. 다음은 코드입니다:

Sub CheckFileExists ()

Dim strFileName As String
Dim strFileExists As String

    strFileName = "C:\Users\Nikola\Desktop\VBA articles\Test File Exists.xlsx"
    strFileExists = Dir(strFileName)

   If strFileExists = "" Then
        MsgBox "파일이 존재하지 않습니다"
    Else
        MsgBox "파일이 존재합니다"
    End If

End Sub

먼저 파일 경로를 strFileName 변수에 할당했습니다. 그런 다음 Dir 함수를 사용하여 파일 이름을 strFileExists 변수로 가져옵니다. 파일이 디렉토리에 존재하면 그 이름이 문자열 변수 strFileExists에 할당됩니다. 파일이 존재하지 않으면 strFileExists는 공백으로 남습니다. 마지막으로 파일 존재 여부를 알려주는 메시지 박스가 나타납니다.

Dir 명령을 사용하여 폴더 존재 여부 확인하기

파일이 존재하는지 확인하는 것과 마찬가지로 폴더가 존재하는지도 확인할 수 있습니다. Dir 명령에 인수 하나만 추가하면 됩니다. 코드를 살펴봅시다:

Sub CheckFolderExists ()

Dim strFolderName As String
Dim strFolderExists As String

    strFolderName = "C:\Users\Nikola\Desktop\VBA articles\Test Folder\"
    strFolderExists = Dir(strFolderName, vbDirectory)

    If strFolderExists = "" Then
        MsgBox "폴더가 존재하지 않습니다"
    Else
        MsgBox "폴더가 존재합니다"
    End If

End Sub

먼저 폴더 경로를 strFolderName 변수에 할당했습니다. 그런 다음 Dir 함수를 사용하여 파일 이름을 strFileExists 변수로 가져옵니다. 폴더를 확인하려면 함수에 두 번째 인수를 추가해야 하는데, 바로 vbDirecotry입니다. 폴더가 디렉토리에 존재하면 그 이름이 strFolderExists 변수에 할당됩니다. 그렇지 않은 경우 strFolderExists는 공백으로 남습니다.