Excel VBA를 사용하여 컴퓨터에 파일이나 폴더가 있는지 확인하는 방법은 무엇입니까?

오늘의 Office 자동화 자습서는 컴퓨터 디렉터리 중 하나에 파일이 있는지 확인하는 방법을 배우는 데 중점을 둡니다.

준비

코딩이 처음이라면 Microsoft Office Excel 개발 탭이 활성화되어 있고 기본적인 Excel VBA에 익숙해야 합니다 .

Excel VBA로 파일이 존재하는지 확인

다음 코드는 사용자로부터 파일 경로와 파일 이름 자체를 캡처하기 위해 입력 상자를 활용합니다.

그런 다음 Dir 메서드를 활용하여 파일 경로가 실제로 존재하는지 확인합니다.

마지막으로 확인 결과와 함께 사용자에게 메시지 상자를 표시합니다.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

폴더가 있는지 확인

매우 유사한 방식으로 운영 체제에 특정 폴더가 있는지 확인할 수 있습니다. 또한 여기에서는 Dir 메서드를 활용하지만 vbDirectory 매개 변수를 사용합니다.

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

코드 사용

• Microsoft Excel을 열고 통합 문서로 이동합니다.
• 개발자를 누른 다음 Visual Basic을 누르십시오.
• 위의 코드를 복사하여 VBA 모듈의 특정 시트에 서브루틴으로 붙여넣습니다.
• 코드를 실행(F5)합니다.
• 통합 문서를 저장합니다.

가능한 확장

위의 보일러 플레이트 코드는 다음 사용 사례에 대해 확장됩니다.

• 폴더/파일이 아직 없으면 생성합니다.
• 운영 체제 파일 디렉토리에 있는 폴더의 파일을 삭제합니다.
• 와일드카드를 사용하여 파일/폴더를 검색합니다.