code to add a pst file to a data file

See more:

VB

Greetings To every one,

Can any body know how to add a pst file to a data file .

actually i am Developing Pst Parser in which i want to compresses pst by filtering methods in mail items

i can add pst file to data file but i cant find folders Like In box,Outbox etc...

Here is my code to add a pst file to data File

Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.MAPIFolder
Dim strDisplayName As String
Dim dmppstpath As String
Dim ptFileName As String
ptFileName = "Archive.Pst"
'dmppstpath = pstDirectory + "" + pstFileName
strDisplayName = "PersonalFolder"
objOL = CreateObject("Outlook.Application")
objNS = objOL.GetNamespace("MAPI")
objNS.AddStore(ptFileName)
Dim Inbox As String = "Inbox"
objFolder = objNS.Folders.GetLast
objFolder.Name = strDisplayName
'objNS.Session.RemoveStore(objFolder)

please help me to add a complete pst contains all folders in it.

Thanks in advance.