dirPath = Server.MapPath("~\public\Secciones\SeccionPublicaciones\doc\" & objAddPublicaciones.idPublicacion & "\")
Directory.CreateDirectory(dirPath)
Dim TargetPath = dirPath & Path.GetFileName(objAddPublicaciones.idPublicacion & Path.GetExtension(txtUpload.PostedFile.FileName))
If Path.GetExtension(txtUpload.PostedFile.FileName) <> ".gif" And Path.GetExtension(txtUpload.PostedFile.FileName) <> ".jpg" Then
MsgBox1.ShowMessage("Solo se está permitido subir imágenes gif o jpg")
Exit Sub
End If
txtUpload.PostedFile.SaveAs(TargetPath)