Create new PST and import items from an existing PST

The following example shows you how to create a new PST file, read folders and items from an existing PST file and import them into the new file.

C# example

using System;
using System.Collections.Generic;
using Independentsoft.Pst;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            PstFile sourceFile = new PstFile("c:\\testfolder\\Source.pst");
            PstFile targetFile = PstFile.Create("c:\\testfolder\\New.pst");

            using (sourceFile)
            using (targetFile)
            {
                Folder sourceStartFolder = sourceFile.MailboxRoot;
                Folder targetStartFolder = targetFile.MailboxRoot;

                IList<Folder> folders = sourceStartFolder.GetFolders(false);

                for (int i = 0; i < folders.Count; i++)
                {
                    Folder sourceFolder = folders[i];

                    targetStartFolder.AddFolder(new Folder(sourceFolder.DisplayName));

                    Folder targetFolder = targetFile.MailboxRoot.GetFolder(sourceFolder.DisplayName);

                    IList<Item> items = sourceFolder.GetItems();

                    if (items.Count > 0)
                    {
                        targetFolder.AddItems(items);
                    }
                }

                targetFile.Save();
            }

            Console.WriteLine("Done.");
            Console.WriteLine("Press ENTER to exit.");
            Console.Read();
        }
    }
}

VB example

Imports System
Imports System.Collections.Generic
Imports Independentsoft.Pst

Namespace Sample
    Class Module1
        Shared Sub Main(ByVal args As String())

            Dim sourceFile As New PstFile("c:\testfolder\Source.pst")
            Dim targetFile As PstFile = PstFile.Create("c:\testfolder\New.pst")

            Using sourceFile
                Using targetFile
                    Dim sourceStartFolder As Folder = sourceFile.MailboxRoot
                    Dim targetStartFolder As Folder = targetFile.MailboxRoot

                    Dim folders As IList(Of Folder) = sourceStartFolder.GetFolders(False)

                    For i As Integer = 0 To folders.Count - 1
                        Dim sourceFolder As Folder = folders(i)

                        targetStartFolder.AddFolder(New Folder(sourceFolder.DisplayName))

                        Dim targetFolder As Folder = targetFile.MailboxRoot.GetFolder(sourceFolder.DisplayName)

                        Dim items As IList(Of Item) = sourceFolder.GetItems()

                        If items.Count > 0 Then
                            targetFolder.AddItems(items)
                        End If
                    Next

                    targetFile.Save()
                End Using
            End Using

            Console.WriteLine("Done.")
            Console.WriteLine("Press ENTER to exit.")
            Console.Read()

        End Sub
    End Class
End Namespace

IndependentsoftProfessional software libraries for developers

PST .NET > Tutorial > Create new PST and import items from an existing PST

Need help? Ask our developers: