修改文件名时一直提示文件已存在，求助下面代码需要怎么修改？   
         Dim k% = LSV1.Items.Count
            If k = 0 Then TSL1.Text = ">>>当前表格中不存在snp文件” : Exit Sub
            For i = 0 To k - 1

                oldfile = LSV1.Items(i).SubItems.Item(2).Text
                FilePath = (oldfile).ToString '提取文件路径
                FileName = Path.GetFileNameWithoutExtension(oldfile） '提取文件名
                Filetype = Path.GetExtension(oldfile)    '提取文件类型扩展名
                newfilename = Replace(FileName, FSymbol, "_")                       '替换文件名字符
                newfile = FilePath & newfilename & Filetype '重命名后文件+路径完整名
                If oldfile <> newfile Then
                    'If Not (oldfile) Then
                    Rename(oldfile, newfile）
                End If
            Next i