파일의 존재 여부 검사하기(Checking for the existence of a file in VB 6.0)

안녕하세요. 공유민입니다.

이번 포스팅은 VB 6.0에서 로컬에 있는 파일의 존재 여부를 검사하는 방법을 정리하겠습니다.

---

Checking for the existence of a file

① Dir 함수 활용하기

첫 번째로 사용했던 방법은 Dir() 함수를 활용하는 것 입니다.

 If Dir(sFileName) <> "" Then 
      ' File exist 
 Else 
      ' File not exist
 End If

위 소스와 같이 파일이 없다면 "" 을 리턴하는 것을 활용해서 사용하는 방법입니다.

좀 더 수치화 하려면 

 If Len(Dir(strFileName)) <> 0 Then 
      ' File exist 
 Else 
      ' File not exist
 End If

하지만 저는 첫 번째 방법을 사용할 때, Dir("")에서 쓰레기 값이 들어있어서 사용할 수 없었습니다.

---

② FSO 활용하기

FSO를 사용하면 쉽게 구현할 수 있습니다.

FSO를 사용하기 위해선,

프로젝트 -> 참조 (reference)로 가서 'Microsoft Scripting Runtime'을 체크하고 적용합니다.

 

Option Explicit
Dim Fso As FileSystemObject

 

Private Sub Form_Load()
    Set Fso = New FileSystemObject
End Sub

 

If Fso.FileExists(testFile) = True Then        ' testFile : 존재유무를 확인할 파일 경로
    <...>
End If

그리고 사용하는 곳에서 위와 같이 활용할 수 있습니다.

 

 

Set Fso = Nothing