Redimensiona un conjunto de jgp de una carpeta a otra a un tamaño especificado en vb.net

gistfile1.vb

Imports System
Imports System.Drawing

Module Program
    Sub Main(args As String())
        Dim sourcePath As String = args(0)
        Dim outputPath As String = args(1)

        IO.Directory.CreateDirectory(outputPath)

        Dim dir = New IO.DirectoryInfo(sourcePath)
        Dim files As IO.FileInfo() = dir.GetFiles("*.jpg", IO.SearchOption.AllDirectories)
        For Each fInfo In files
            Console.WriteLine("Procesando archivo" & fInfo.FullName)
            Using img As Bitmap = Image.FromFile(fInfo.FullName)
                Using resizedImg As New Bitmap(img, args(2), args(3))
                    resizedImg.Save(IO.Path.Combine(outputPath, fInfo.Name),
                                    Imaging.ImageFormat.Jpeg)
                End Using
            End Using
        Next
    End Sub
End Module