asp
get new non repeated file name on a specific folder
duraboys
2010. 8. 24. 22:58
http://hanhead.tistory.com/entry/get-new-non-repeated-file-name-on-a-specific-folder
Private Function getNewFileName(strSavePath, strFileName)
Dim fso
Dim strStartName, strEndName
Dim i
Set fso = server.CreateObject("scripting.filesystemobject")
If fso.FileExists(strSavePath & strFileName) = "True" Then
If InStrRev(strFileName, ".") <> 0 Then
strStartName = Left(strFileName, InStrRev(strFileName, ".") - 1)
strEndName = Mid(strFileName, InStrRev(strFileName, "."))
Else
strStartName = strFileName
strEndName = ""
End If
i = 2
Do While (1)
strFileName = strStartName & "(" & i & ")" & strEndName
If fso.FileExists(strSavePath & strFileName) = "False" Then Exit Do
i = i + 1
Loop
End If
Set fso = Nothing
getNewFileName = strFileName
End Function