Incrementing a digit tin existing file name to avoid duplicate file creation in same path

See more:

VB

I am generating an excel file in a particular path

the path is concatenated with the file name :

Dim filename As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\RevLog_reports\ABC"

so the default file name is "ABC."extension""

Here is the code to generate the file:

xlWorkBook = oAPP.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")

For nrow As Integer = 1 To newgrid.Rows - 2
For crow As Integer = 1 To newgrid.Cols - 2
xlWorkSheet.Cells(nrow, crow) = _
newgrid.Cell(nrow, crow).Text
Next
Next

xlWorkBook.SaveAs(filename)



I want the default file to be ABC(0).Xlsx
if second time file is generated it should be ABC(1).Xlsx
if a file is already existing with same name it should be incremented by +1 to avoid duplication.
like this each time file should be created without ambiguity in the folder.
As I am in a support project I cannot change the default path.
and I have to open the file as a popup while exporting the excel.