Ресайз картинок - Visual Basic .NET

Формулировка задачи:

Всем привет!!! Такая задачка: В указанной папке через фолдеропен всем имеющимся картинкам изменить разрешение. У Памирыча нашел код ресайза, картинки из папки добавляю в массив.
 Dim ofd As New FolderBrowserDialog
        If ofd.ShowDialog = DialogResult.OK Then
            Dim p = ofd.SelectedPath
            Dim Files() As String = IO.Directory.GetFiles(p & "", "*.jpg", IO.SearchOption.TopDirectoryOnly)
            lb.Items.AddRange(Files)
            For Each i In Files
                Dim pp As String = Files(i)
                Dim myImg1 As System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(pp), System.Drawing.Bitmap)
                x(i) = myImg1.Width
                y(i) = myImg1.Height
 
                Dim K As Double = myImg1.Width / myImg1.Height 'Соотношение сторон
                Dim myImg2 As New System.Drawing.Bitmap(myImg1, 640, 480 / K)
                myImg2.Save(p & "" & IO.Path.GetFileName(IO.Path.GetFileNameWithoutExtension(Files(i))) & "-.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) 'Сохраняем в формате JPG
            Next
        End If
Сохранить надо в указанную папку или в текущую. К имени файла добавить напр. "-1" Он ругается на строчку Dim pp As String = Files(i) Dim myImg1 As System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(pp). (нельзя стринг к интегер привести) Подскажите что исправить, плиз. Спасибо!!!

Код к задаче: «Ресайз картинок - Visual Basic .NET»

textual
 Dim pp As String = Files(i).Name

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ