[Basic]File existence(파일 존재 유무)

리턴형이 True,False 가 아니라 가능한 파일명입니다.

Public Function File_Exist(Path As String, FILENAME As String)

    Dim notexist As Boolean

    Dim temp As String

    temp = FILENAME

    Dim i As Integer

    i = 1

    

    Do While (Len(Dir(Path & "\" & FILENAME)) > 0)

        FILENAME = "A" & i & "_" & temp

        i = i + 1

    Loop

    

    File_Exist = FILENAME

End Function

출처 : http://gofox.tistory.com/25