[vb6]폴더 내 파일유무

private Function FileCheck(ByVal fPatn as strig , ByVal fName as string )
       fname = fname + ".tif"

        if LenB(Dir$(fPath + fname)) then

                FileCheck = true
       else
                FileCheck = false
      end if
end Function

 

특정 폴더 안에 특정 파일을 검사 할때