1. 파일의 존재여부 알아내기
Function 파일존재여부(파일명) As Boolean
파일존재여부 = Dir(파일명) <> ""
End Function
파일존재여부 = Dir(파일명) <> ""
End Function
2. 폴더의 존재여부 알아내기
Function 폴더존재여부(폴더명) As Boolean
On Error Resume Next
폴더존재여부 = (GetAttr(폴더명) And vbDirectory) = vbDirectory
End Function
On Error Resume Next
폴더존재여부 = (GetAttr(폴더명) And vbDirectory) = vbDirectory
End Function
'VBA' 카테고리의 다른 글
워크쉬트 갯수세기 (8) | 2011.04.28 |
---|---|
폴더 선택을 위한 구문 (0) | 2011.03.01 |
Static 변수를 자료맵핑에 활용 (0) | 2010.06.16 |
인터넷에서 파일 다운받기 (0) | 2010.06.14 |
엑셀에서 소리내기 (0) | 2010.06.11 |