Renaming Pictures files by comparing a list

[brjames32]

Hi people

I have around 1300 jpeg's that need to be renamed based on the value in an excel spreadsheet.

What I need to be able to do is parse each jpeg in a directory, compare the filename to a list of names in a column in the spreadsheet and if it exists, rename it with the corresponding value from the next column and then move to the next file and so on and so on.

I have the following code for opening the spreadsheet and reading the files but am not sure how to compare the spreadsheet values to the filenames and then rename them:

Imports System
Imports System.IO
Imports System.IO.File

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Open Excel file and read info
        Dim cnStudents As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Logon\WORK\ben\Desktop\Names.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=0""")
        Dim daStudents As New OleDb.OleDbDataAdapter("Select * from [Sheet1$]", cnStudents)

        Dim dsStudents As New DataSet
        daStudents.Fill(dsStudents)

        'Read picture files from folder

        Dim s As String
        For Each s In System.IO.Directory.GetFiles("\\logon\shared\Penalty Points\Backup\")

        ' do comparing and renaming here ??        

        Next s




    End Sub
End Class

Can anyone help me out??

Thanks in advance