AnsweredAssumed Answered

iedmfile6 from string

Question asked by Jeff Gallo on Jul 30, 2015
Latest reply on Jul 30, 2015 by Lee CS Young

I am trying to create a program that is going to take a group of files from my local or somewhere else on my network (not in the vault) and move them into the vault.

I am having trouble getting the file to become the iedmfile6 format from a string.

 

What i am trying to do is use Getfilefrompath.

in the below code what i am trying to do to make it work is use the windows based move to move the files into the vault and then convert to a iedmfile6 and move them to there final destination.

 

That is the general gist of what i want to do but i know i have something not wanting to work..

 

Thanks,

 

Private Sub Move_Ok_Click(sender As Object, e As EventArgs) Handles Move_Ok.Click

        Dim File_Name As String

        Dim Name_File As String

        Dim Create_Date As Date

        Dim New_Name As String

        Dim File_Dest As String

        Dim File_Ext As String

        Dim vault2 As IEdmVault7 = Nothing

        If vault1 Is Nothing Then

            vault1 = New EdmVault5()

        End If

        vault2 = DirectCast(vault1, IEdmVault7)

        If Not vault1.IsLoggedIn Then

            vault1.LoginAuto(Pick_Vault.Text, Me.Handle.ToInt32)

        End If

        Dim afile As IEdmFile6

        Dim folder As IEdmFolder6

        folder = vault2.RootFolder

        Dim Files() As EdmAddFileInfo

        ReDim Files(Input_File.Items.Count - 1)

        Dim Index As Integer = 0

        Dim Dest As IEdmFolder5 = Nothing

        Dest = vault2.GetFolderFromPath(Destination.Text)

        For Each File_Name In Input_File.Items

            Files(Index).mbsPath = File_Name

            Files(Index).mlEdmAddFlags = EdmAddFlag.EdmAdd_Simple

            Files(Index).mlFileID = 0

            Files(Index).mlSrcDocumentID = 0

            Files(Index).mlSrcProjectID = 0

            Files(Index).mbsNewName = ""

 

            File_Ext = System.IO.Path.GetExtension(File_Name)

            Name_File = System.IO.Path.GetFileName(File_Name)

            Create_Date = System.IO.File.GetCreationTime(File_Name)

 

 

            New_Name = Create_Date.ToString("MM.dd.yy_hhmmss")

            File_Dest = Destination.Text & "\" & New_Name & File_Ext

            My.Computer.FileSystem.MoveFile(File_Name, File_Dest)

            Stop

 

            afile = vault2.GetFileFromPath(File_Dest)

            afile.Move(Me.Handle.ToInt32(), folder.ID, Dest.ID, 0)

            afile.RenameEx(Me.Handle.ToInt32(), New_Name, 0)

 

 

 

            'MsgBox(Name_File & "  " & File_Ext & "  " & New_Name)

 

        Next

 

 

 

 

        LBL_Done.Visible = True

    End Sub

Outcomes