Save file in different name

Question

How can I save the screenshot image in different names?
Example:When button 1 is click save in screenshot1.jpg, then button 1 is click again save in screenshot2.jpg ......etc
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bmpScreenshot As Bitmap = New Bitmap(Panel1.Width, Panel1.Height - 300, PixelFormat.Format32bppArgb)
' Create a graphics object from the bitmap
Dim gfxScreenshot As Graphics = Graphics.FromImage(bmpScreenshot)
' Take screenshot of just the panel control
gfxScreenshot.CopyFromScreen(Me.PointToScreen(Panel1.Location), New Point(0, 0), Panel1.Size, CopyPixelOperation.SourceCopy)
' Save the screenshot
bmpScreenshot.Save("D:\screenshot.jpg", Imaging.ImageFormat.Jpeg)
End Sub
Thanks

Answer 1

If you only want to number the images like ScreenShot_0000, ScreenShot_0001, and so on...  Then you can use a class scoped integer variable to number them like below.  Also, you can draw the panel directly to a Bitmap without using the CopyFromScreen
method.
Public Class Form1
Private count As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bmp As New Bitmap(Panel1.Width, Panel1.Height)
Panel1.DrawToBitmap(bmp, New Rectangle(Point.Empty, Panel1.Size))
Dim fn As String = "ScreenShot_" & count.ToString.PadLeft(4, "0"c) & ".jpg"
Dim saveas As String = IO.Path.Combine("C:\TestFolder", fn)
bmp.Save(saveas, Imaging.ImageFormat.Jpeg)
count += 1
End Sub
End Class
 However, when you close your application and reopen it again it would start at ScreenShot_0000 again and would overwrite any images that are in that directory that have the same numbered names.  If you want it to automatically detect the last
numbered file and start with the next number then you can use a While loop in the above code to avoid overwriting the existing images like this.
Public Class Form1
Private count As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bmp As New Bitmap(Panel1.Width, Panel1.Height)
Panel1.DrawToBitmap(bmp, New Rectangle(Point.Empty, Panel1.Size))
Dim fn As String = "ScreenShot_" & count.ToString.PadLeft(4, "0"c) & ".jpg"
Dim saveas As String = IO.Path.Combine("C:\TestFolder", fn)
While IO.File.Exists(saveas)
count += 1
fn = "ScreenShot_" & count.ToString.PadLeft(4, "0"c) & ".jpg"
saveas = IO.Path.Combine("C:\TestFolder", fn)
End While
bmp.Save(saveas, Imaging.ImageFormat.Jpeg)
count += 1
End Sub
End Class
If you say it can`t be done then i`ll try it
Hi IronRazerz,
Thanks for your solution. I would like to ask you question about open files and rename files, I know that there are out of the question in this thread but the only way I can get the answer through your solution.
My problem is when I open files "ScreenShot_0000.jpg" and then when I want to rename files the file will rename  "ScreenShot_0001" instant of "ScreenShot_0000.jpg".
How can I suppose to open and rename files follow by sequence without interrupt?
Below codes are my modified codes to open and rename files.
Public Class Form1
Private count As Integer = 0
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'rename files
Dim fn As String = "C:\Users\hwai\Desktop\Capture\ScreenShot_" & count.ToString.PadLeft(4, "0"c) & ".jpg"
Dim saveas As String = IO.Path.Combine("C:\Users\hwai\Desktop\Capture\", fn)
My.Computer.FileSystem.RenameFile(saveas, "Rename_" & count.ToString.PadLeft(4, "0"c) & ".jpg")
count += 1
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'open files
Dim fn As String = "C:\Users\hwai\Desktop\Capture\ScreenShot_" & count.ToString.PadLeft(4, "0"c) & ".jpg"
Dim saveas As String = IO.Path.Combine("C:\Users\hwai\Desktop\Capture\", fn)
Dim ps2 As Process = Process.Start(saveas)
count += 1
End Sub
End Class
Thanks