Using the API to move files

VAR was able to track down a workaround.  I'll just quote it because I can't really explain it.

I think the problem lies in the local cache.  For example.  User 1 caches the file then User 2 moves the file.  Until User 1 browses to the folder the file was moved out of the locally cached file still exists in the actual windows file system.  To work around it I check at the file system level if the file exists in the same location and rename it to a unique name if it does (Delete doesn't work in this case because of some permissions problems).  This way the local file doesn't interfere with the operation.

Anyway, checking for a local file with the same name as my source file in the destination folder and renaming it allows me to move my vault file and there is no junk file left over.  *shrug*

UPDATE 8/15/2016

I ran into this issue again with a PDF creation function I have for dwg files.  The software thinks the file is there as read-only and won't overwrite when no file exists.  I did some more testing I discovered what I think is the root cause.  When files are deleted in PDM they still exist in the deleted items of the folder properties. 

If you call IEdmFolder7::DestroyDeletedItems, System.IO.File.Exists will return false.  The only downside is the method destroys everything in the folder, you can't specify a single file.

You can try it yourself with the below code if you so wish.  Create a file in the vault and close your explorer window.  Run the function on the file path.  You should find the vault file and get a local copy.  Then from a remote or 2nd computer delete the file from the vault.  Run the function again and it will not find the vault file but the windows api will still see a file.  Uncomment one of the methods and it should correct it so windows doesn't see the file anymore.

I like the destroy method because it makes more sense to me as to why it's happening.  When using the System.IO.File.Move(fpath, path & "Temp" & name) method it's a magic ether file as far as I can tell and have no clue what, if any, problems it may cause.

This was on Windows 10 and EPDM 15.2

    Private Sub VaultTest(ByVal fPath As String)

        Try

 

 

            Dim vault As IEdmVault5 = New EdmVault5

            If Not vault.IsLoggedIn Then

                vault.LoginAuto("PPI Vault", 0)

            End If

 

            Dim path As String = System.IO.Path.GetDirectoryName(fpath)

            Dim name As String = System.IO.Path.GetFileName(fpath)

            Dim vfile As IEdmFile10 = vault.GetFileFromPath(fpath)

            Dim vfolder As IEdmFolder7 = vault.GetFolderFromPath(path)

            Dim msg As String = Nothing

 

            If vfile Is Nothing Then

                msg += "No vault file" & vbNewLine

 

                If System.IO.File.Exists(fpath) Then

                    msg += "...but system file was found." & vbNewLine

 

                    'Method One: Uses Windows Api to move and rename to an magic invisible file

                    'System.IO.File.Move(fpath, path & "Temp" & name)

 

                    'Method Two: Destroy the deleted files of the folder, but you have to destroy all of them.

                    'Dim ppoDestroyedItems() As EdmFileInfo = Nothing

                    'Dim paErrors() As EdmBatchDelErrInfo = Nothing

                    'vfolder.DestroyDeletedItems(False, Date.Now, ppoDestroyedItems, paErrors)

                    'For idx As Integer = LBound(ppoDestroyedItems) To UBound(ppoDestroyedItems)

                    '    msg += "Deleted File: " & ppoDestroyedItems(idx).mbsPath & vbNewLine

                    '    If ppoDestroyedItems(idx).mhResult = 0 Then

                    '        msg += "Status: Destroyed" & vbNewLine

                    '    Else

                    '        msg += "Status: Failed: " + "HRESULT = 0x" + CStr(paErrors(idx).mlErrorCode) & vbNewLine

                    '    End If

                    'Next

 

                    If System.IO.File.Exists(fpath) Then

                        msg += "...and it's still there!?" & vbNewLine

                    Else

                        msg += "but it's gone now." & vbNewLine

                        If System.IO.File.Exists(path & "Temp" & name) Then

                            msg += "but now the temp file is there" & vbNewLine

                        Else

                            msg += "and the temp file disappeared too." & vbNewLine

                        End If

                    End If

                Else

                    msg += "...and No System File!" & vbNewLine

                    If System.IO.File.Exists(path & "Temp" & name) Then

                        msg += "but a temp file is there." & vbNewLine

                    Else

                        msg += "...and no temp file!" & vbNewLine

                    End If

                End If

            Else

                msg += "Vault file found." & vbNewLine

                If System.IO.File.Exists(fpath) Then

                    msg += "System file found pre get." & vbNewLine

                Else

                    msg += "No System File pre get." & vbNewLine

                End If

                Dim batch As IEdmBatchGet = vault.CreateUtility(EdmUtility.EdmUtil_BatchGet)

                Dim selection(0) As EdmSelItem

                selection(0) = New EdmSelItem

                selection(0).mlDocID = vfile.ID

                selection(0).mlProjID = vfolder.ID

                batch.AddSelection(vault, selection)

                batch.CreateTree(Nothing, EdmGetCmdFlags.Egcf_Nothing)

                batch.GetFiles(0)

                If System.IO.File.Exists(fpath) Then

                    msg += "System file found post get." & vbNewLine

                Else

                    msg += "No System File post get." & vbNewLine

                End If

            End If

 

            MessageBox.Show(msg)

 

        Catch ex As Exception

            MessageBox.Show(ex.Message & vbNewLine & ex.ToString)

        End Try

 

    End Sub