當文件名有重複時自動加一

Dim i As Integer = 0
INCIDX:
                                Dim ZwcadAppsName As String = "ZW_GE_DATA" & "_" & CStr(i)
                                If regTable.Has(ZwcadAppsName) Then
                                    i = i + 1
                                    GoTo INCIDX
                                End If