Import Assembly into Teamcenter

Option Strict Off
Imports System
Imports System.IOImports System.CollectionsImports System.Windows.FormsImports NXOpen
Imports NXOpenUI
Imports NXOpen.UFImports NXOpen.UIImports NXOpen.UtilitiesImports NXOpen.PDM 
Module Import_Assy
    Dim theSession As Session = Session.GetSession()Dim theUI As UI = UI.GetUI()Dim ufs As UFSession = UFSession.GetUFSession()Dim pathsave AsString="" 
    Sub Main() 
        TryDim FolderBrowserDialog AsNew FolderBrowserDialog
            With FolderBrowserDialog
                .RootFolder= Environment.SpecialFolder.Desktop.SelectedPath="D:\NX_Data\import\".Description="Select the directory to Import"If.ShowDialog= DialogResult.OKThen
                    pathsave =.SelectedPathElse'user pressed "cancel", exit the journalExitSubEndIfEndWith 
        Catch ex As NXException
            ExitSub 
        EndTry 
        ufs.Clone.Terminate()
        ufs.Clone.Initialise(UFClone.OperationClass.ImportOperation)
        ufs.Clone.SetFamilyTreatment(UFClone.FamilyTreatment.StripFamilyStatus)
        ufs.Clone.SetDefDirectory(pathsave)
        ufs.Clone.SetDefAction(UFClone.Action.Overwrite)'ufs.Clone.SetDefAction(UFClone.Action.UseExisting)
        ufs.Clone.SetLogfile(pathsave +"\"+"Import.log")
        ufs.Clone.SetDefAssocFileCopy(False)
        ufs.Clone.SetDefFolder("tceadm:Test")
        ufs.Clone.SetDefOwner("migration")
        ufs.Clone.SetDefGroup("dba")
        ufs.Clone.SetDefNaming(UFClone.NamingTechnique.Autotranslate)
        ufs.Clone.SetDefPdmName("${DB_PART_NAME}")
        ufs.Clone.SetDefPdmDesc("${DB_PART_NAME}")Dim naming_failures As UFClone.NamingFailures 
        Dim DirInfo AsNew IO.DirectoryInfo(pathsave)Dim FileList As IO.FileInfo()= DirInfo.GetFiles("*.prt")Dim foundfile As IO.FileInfo 
 
        ' get the files in the directory'================================ForEach foundfile In FileList
            ufs.Clone.AddAssembly(pathsave +"\"+ foundfile.Name, Nothing)
            ufs.Clone.AddPart(pathsave +"\"+ foundfile.Name)
            ufs.Clone.SetAssocFileCopy(foundfile.Name, False)Next'================================= 
        ufs.Clone.InitNamingFailures(naming_failures)
        ufs.Clone.SetDryrun(False)
        ufs.Clone.GenerateReport()
        ufs.Clone.PerformClone(Nothing)
        ufs.Clone.Terminate() 
    EndSub 
    Sub Echo(ByVal output AsString)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)EndSub 
    PublicFunction GetUnloadOption(ByVal dummy AsString)AsInteger 
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately 
    EndFunction 
EndModule