とても整理出来ないです。整理のヒントいただけませんか？

'■機能：ファイルを保存する
'■タイミング：メニューの保存がクリックされたときと、右下の保存ボタンがクリックされたとき
'■lvFileList（旧）、lvNewFileList（新）はリストビューコントロール
'■旧、新リストのアイテム数は共に同数。（旧が8個なら新も必ず8個。）
'■imageDirは、フォルダ名が格納されている。

Private Sub miSava_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles miSava.Click, btn_save.Click
　　’新リストのアイテム数分ループ処理
For I As Integer = 0 To lvNewFileList.Items.Count - 1
'ファイルのリネーム
'単独での旧リストと新リストとの名前比較
If lvPhotoList.Items(I).SubItems(列1).Text <> lvNewFileList.Items(I).SubItems(列2).Text Then

ここでエラー→ Microsoft.VisualBasic.FileSystem.Rename(imageDir & "\" & lvPhotoList.Items(I).SubItems(列1).Text, _
imageDir & "\" & lvNewFileList.Items(I).SubItems(列2).Text)
End If
Next I

MsgBox("ファイル更新が完了しました。")
End Sub

※※エラー内容はこのプロセスはアクセスできません。とかなんとか・・。