ciao sono un new.
Allora sto realizzando un programmino che mi rinomini delle foto contenute in una cartella.
Queste foto vengono rinominate in base ad un foglio in excel dove nella prima colonna c'è il nome della foto nella seconda il nome con cui deve essere rinominata.

questo è il cod

Public Class Form2

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Integer, ByRef lpdwProcessId As IntPtr) As IntPtr

Private Function seFileEsiste(ByVal nomeCompFile As String) As Boolean

Dim F As New System.IO.FileInfo(nomeCompFile)
If F.Exists Then
seFileEsiste = True
Else
seFileEsiste = False
End If

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim percorso As String = Application.StartupPath & "\Files\"
Dim nomeFile As String = "Elenco.xls"

* *da qui ho problemi e non va il prg* *

Dim appExcel As New Excel.Application
Dim WB As Excel.Workbook = appExcel.Workbooks.Open(percorso & nomeFile)
Dim WS As Excel.Worksheet = WB.Worksheets("Foglio1")
appExcel.Visible = False

Dim i As Integer = 0
Try
For i = 1 To 3
If seFileEsiste(percorso & WS.Range("A" & i).Text) Then
My.Computer.FileSystem.RenameFile(percorso & WS.Range("A" & i).Text, WS.Range("B" & i).Text)
End If
Next i
Catch ex As Exception
'...
Finally
'Chiusura oggetti Excel...
End Try

End Sub

End Class