Multiple file upload in ASP.NET

Saving files temporarily in the application folder and displaying in a Gridview

Protected Sub btnattachsiteplan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnattachsiteplan.Click
Dim usersession As myApp.UserSession
usersession = Session("UserSession")
lbluploadsiteplan.Text = ""
Dim uname As String = usersession.UserName
Dim path As String = "temp\Siteplan\" + uname + "\"
Dim appPath As String = Request.PhysicalApplicationPath
If FileUpload2.HasFile Then
If Not Directory.Exists(appPath + path) Then
Directory.CreateDirectory(appPath + path)
End If
Dim savePath As String = appPath + path + Server.HtmlEncode(FileUpload2.FileName)
FileUpload2.SaveAs(savePath)
Dim dt As DataTable = New DataTable
dt.Rows.Clear()
dt.Columns.Add("Attachment", GetType(String))
Dim dr As DataRow
dr = dt.NewRow
dr("Attachment") = FileUpload2.PostedFile.FileName
dt.Rows.Add(dr)
GridView2.DataSource = dt
GridView2.DataBind()
dt.Rows.Clear()
lbluploadsiteplan.Text = "File Attached"
Else
lbluploadsiteplan.Text = "Browse a File and then Click Attach"
End If
End Sub

Deleting uploaded files from the temporary folder

Protected Sub btndeletesiteplan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeletesiteplan.Click
lbluploadsiteplan.Text = ""
Dim usersession As myApp.UserSession
userSession = Session("UserSession")
Dim uname As String = userSession.UserName
Try
Dim path1 As String = Server.MapPath("~\temp\Siteplan\" + uname)
If Directory.Exists(path1) Then
Dim s As String
For Each s In System.IO.Directory.GetFiles(path1)
System.IO.File.Delete(s)
Next s
End If
lbluploadsiteplan.Text = "Files Deleted"
Dim dt As DataTable = New DataTable
GridView2.DataSource = dt
GridView2.DataBind()

Catch
lbluploadsiteplan.Text = "Select a File and then Click Delete"
End Try
End Sub

Saving files from the temporary folder

Protected Sub SaveFilesFromTemporaryFolder
Dim uname as myApp.UserSession.UserName
Try
Dim path1 As String = Server.MapPath("~/temp/ExtraPages/" + uname + "/")
Dim path2 As String = Server.MapPath("~/Uploads/ExtraPages/" + maxcrplankey.ToString() + "/")
If Not Directory.Exists(path2) Then
Directory.CreateDirectory(path2)
End If
Dim diSource As DirectoryInfo = New DirectoryInfo(path1)
Dim diTarget As DirectoryInfo = New DirectoryInfo(path2)

For Each fi As FileInfo In diSource.GetFiles()

fi.CopyTo(Path.Combine(diTarget.ToString(), fi.Name), True)
fi.Delete()
Next
lbluploadpage.Text = ""
Catch
End Try

Try
Dim path3 As String = Server.MapPath("~/temp/Siteplan/" + uname + "/")
Dim path4 As String = Server.MapPath("~/Uploads/Siteplan/" + maxcrplankey.ToString() + "/")
If Not Directory.Exists(path4) Then
Directory.CreateDirectory(path4)
End If
Dim diSource1 As DirectoryInfo = New DirectoryInfo(path3)
Dim diTarget1 As DirectoryInfo = New DirectoryInfo(path4)

For Each fi As FileInfo In diSource1.GetFiles()

fi.CopyTo(Path.Combine(diTarget1.ToString(), fi.Name), True)
fi.Delete()
Next
lbluploadsiteplan.Text = ""
Catch
End Try
End Sub

Send emails from Dotnet applications

using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Net.Mail;
namespace ie.app
{
///

/// Summary description for SendMails
///

public class SendMails
{
public SendMails()
{
//
// TODO: Add constructor logic here
//
}
public static void sendEmailMessage(string subject, string toAddress, string body)
{
string fromAddress = ConfigurationManager.AppSettings.Get("fromaddress");
MailMessage mm = new MailMessage(fromAddress, toAddress);

mm.Subject = subject;
mm.Body = body;
mm.IsBodyHtml = false;

SmtpClient smtp = new SmtpClient();

smtp.Send(mm);
}
}
}