파일 존재유무
본문
리턴형이 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
댓글목록 0
등록된 댓글이 없습니다.