get new non repeated file name on a specific folder

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