[RESOLVED] File name generator

[jareck]

Hi, im working for a school project and im trying to make a screenshot tool
so i made it very simple with the following code below

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenGrab)
            g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)
            screenGrab.Save("C:\Screen.jpeg")
            MsgBox("Screenshot has been succesfully made!", MsgBoxStyle.Information, "Screenshot Success!")
        Catch ex As Exception
            MsgBox("Error", MsgBoxStyle.Critical, "Error!")
        End Try
    End Sub
End Class

so as you can see in my form only exists one button that takes the screenshot and then saves it in C:\ directory with the name SCREEN.JPEG
but here's the problem i want to make it whenever i click the BUTTON to take the screeshot to generate a new name for the new screenshot (e.g. screen2.jpeg and so on and on...). I just want to not overwrite the first screenshot but to generate another name for the second screenshot.
I'm sorry for my bad english...
i would appreciate your help

p.s
i forgot to mention, I'm using Visual Basic 2008 Express Edition

[Siddharth Rout]

Why don't you use unique names such as

Dim strFilename As String
strFilename = Format(Now, "ddmmyyyyhhmmss")
MsgBox strFilename & ".Jpeg"

BTW is this vb.net? You might have to change it to vb.net code...

[isnoend07]

try this:
'from vbwire 11-19-08 if the filname exists it appends a number to the filename

Public Function GetUniqueFileName(ByVal FileName As String) As String
    Dim uniqueID As Long
    Dim sFile As String
    Dim sExt As Long, iExt As Integer
    
    
    sFile = Dir$(FileName, vbArchive)
    If sFile = vbNullString Then
        GetUniqueFileName = FileName
    Else
        iExt = InStrRev(FileName, ".")
        If iExt = 0 Then
            FileName = FileName & "[#]"
        Else
            FileName = Left$(FileName, iExt - 1) & "[#]" & Mid$(FileName, iExt)
        End If
        Do
            uniqueID = uniqueID + 1
            sFile = Dir$(Replace$(FileName, "#", uniqueID), vbArchive)
        Loop Until sFile = vbNullString
        GetUniqueFileName = Replace$(FileName, "#", uniqueID)
    End If

End Function

[Hack]

I'm using Visual Basic 2008 Express Edition

And that is why it should be in Visual Basic .NET rather than Visual Basic 6 And Earlier.

Moved

[Negative0]

You could always use IO.Path.GetTempFileName() to get a temp file name. Just make sure you clean them up when you are done with them.

[jareck]

hey thanks for your help everyone
now i see how dump i am
i just could use unique file names as koolsid said
thnx again