폴더가 있는지 확인 후 작업하는 방법

매크로를 실행 중에 폴더를 생성해야 할 때가 있습니다. 

실행 중에 폴더가 있어야 하는데 없으면 오류가 납니다. 

있는 데 또 만들려고 해도 오류가 발생하지요. 

아래 체크 로직을 사용해서 폴더를 확인 후 생성합니다.

Sub createFolders()

Dim fs, f, s

NewFDName = Date & " 전체"

NewFDName = "D:\temp\" & NewFDName

'날짜가 필요한 곳이 있으므로 날짜를 추출

Cells(4, 8) = Left(Right(NewFDName, 13), 10)

'하루 전날로 셋팅

Cells(4, 28) = Cells(4, 8) - 1

'폴더가 있는지 확인

pathCheck = Dir(NewFDName, vbDirectory)

'없으면 만들고 있으면 무시

If pathCheck = "" Then

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.createFolder(NewFDName)

MsgBox ("폴더를 준비하였습니다 ")

Else

MsgBox ("폴더가 이미 존재합니다.")

End If

Cells(4, 7) = Right(NewFDName, 10)

End Sub