Tjekke om billede findes i forvejen ved upload
Jeg har følgende funktion til upload af et billede. Jeg vil gerne tjekke om billedet eksisterer i forvejen, så evt. eksisterende billeder ikke overskrives.Hvordan kan jeg gøre det?
Private Sub Upload_Image(ByVal imagePrefix As String, ByVal imageName As String)
Dim imgType As String
imgType = fileImage.PostedFile.ContentType
If imgType = "image/gif" Then
imgType = "gif"
ElseIf imgType = "image/pjpeg" Then
imgType = "jpg"
ElseIf imgType = "imge/x-png" Then
imgType = "png"
Else
imgType = ""
lblError.Text = "FEJL: Billedet skal være af typen JPG, GIF eller PNG."
lblError.Visible = True
lblOK.Visible = False
End If
If imgType <> "" Then
Dim imgPath As String
Dim imgName As String
imgPath = ConfigurationSettings.AppSettings("uplPath") & "/" & imagePrefix & "/" & imageName & "." & imgType
imgName = imageName & "." & imgType
fileImage.PostedFile.SaveAs(imgPath)
Save_Image(pId, imgName, 5, tbDescription.Text)
End If
End Sub
