Click here to Skip to main content
13,141,576 members (34,723 online)
Click here to Skip to main content
Add your own
alternative version


20 bookmarked
Posted 9 Jun 2011

Batch Image Resizer

, 9 Jun 2011
Rate this:
Please Sign up or sign in to vote.
Resize batch or many images at once, just drag and drop files and specify height and width
Sample Image - maximum width is 600 pixels</img />


Batch Image Resizer resizes all the selected images to a particular size as specified in the textbox. To resize several images at once, just drag and drop the files to the left box (Left box accepts only image files), specify the height and width to which you want to resize them and click on the resize button. Then, it will show all the resized images in the right box. Images checked in the right box are resized successfully and images that are unchecked are not successfully resized due to some error.

Using the Code

Given below is the main source code...

The below subroutine resizes images of different formats, and keeps their format as it is.

Private Sub BatchImageResizerfun(ByVal strr As String)

        Dim bm As New Bitmap(strr)
        Dim i As Integer

        Dim str11 As String = Mid(strr, Len(strr) - 2, 3) 'Stores the format 
						'of the image i.e. png, jpg

        Dim bmname As String = ""
        Dim c As Char = Nothing

        For i = 4 To Len(strr) 'stores  filename
            c = Mid(strr, Len(strr) - i, 1)
            If c = Char.Parse("\") Then
                Exit For
            End If
            bmname = bmname + c

        bmname = mypicturefolder & "\" & StrReverse(bmname)

        Dim width As Integer = Integer.Parse(TextBox2.Text)	'image width.
        Dim height As Integer = Integer.Parse(TextBox1.Text)	'image height

        Dim thumb As New Bitmap(width, height)
        Dim g As Graphics = Graphics.FromImage(thumb)

        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        g.DrawImage(bm, New Rectangle(0, 0, width, height), _
		New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel)

            Select Case Strings.LCase(str11) 'saves the file to their 
					'corresponding format after resize
                Case ""
                    Exit Sub
                Case "bmp"
                    thumb.Save(bmname & ".bmp", Imaging.ImageFormat.Bmp)
                Case "jpg"
                    thumb.Save(bmname & ".jpg", Imaging.ImageFormat.Jpeg)
                Case "gif"
                    thumb.Save(bmname & ".gif", Imaging.ImageFormat.Gif)
                Case "ico"
                    thumb.Save(bmname & ".ico", Imaging.ImageFormat.Icon)
                Case "png"
                    thumb.Save(bmname & ".png", Imaging.ImageFormat.Png)
                Case "tiff"
                    thumb.Save(bmname & ".tiff", Imaging.ImageFormat.Tiff)
                Case "wmf"
                    thumb.Save(bmname & ".wmf", Imaging.ImageFormat.Wmf)
            End Select
            CheckedListBox1.Items.Add(bmname & "." & str11, True) 'file resized 
        Catch ex As Exception
            CheckedListBox1.Items.Add(bmname & "." & str11, False) 'file resizing 
        End Try


    End Sub

When images are dropped to the left box from the explorer, it checks for the following:

  1. It is an image file or not. If not, then don't add to the list.
  2. If the image file is already added to the list, then don't add it again.
    To remove pictures from being resized, select the file and right click to remove from the list.

To resize pictures, specify width and height to be resized, and then click on resize button. It resizes pictures and opens the directory where the pictures have been stored.

The below image shows how it works:


This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


About the Author

Software Developer
India India
No Biography provided

You may also be interested in...

Comments and Discussions

QuestionMy vote 5 Pin
Steven Sky25-Jun-13 21:38
memberSteven Sky25-Jun-13 21:38 
GeneralUse methods from System.IO.Path to parse path Pin
maskrtnik0112-Jun-11 5:30
membermaskrtnik0112-Jun-11 5:30 
GeneralMy vote of 4 Pin
vallarasus9-Jun-11 7:56
membervallarasus9-Jun-11 7:56 
GeneralMy vote of 3 Pin
bomt9-Jun-11 1:59
memberbomt9-Jun-11 1:59 
GeneralRe: My vote of 3 Pin
thatraja12-Jul-11 15:51
mvpthatraja12-Jul-11 15:51 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

Permalink | Advertise | Privacy | Terms of Use | Mobile
Web03 | 2.8.170915.1 | Last Updated 9 Jun 2011
Article Copyright 2011 by Hassanoor
Everything else Copyright © CodeProject, 1999-2017
Layout: fixed | fluid