4 Replies Latest reply on Nov 8, 2018 8:11 AM by Farzad Sidhva

    How to delete an EPDM file using VBA

    Farzad Sidhva

      I am currently running into an issue where I have a very simple delete command. I Get a 438 error "Object doesn't support this property or method"

       

      Any suggestions for how to resolve this error would help. I have successfully used similar commands in VBA but this particular function seems to be giving me issues.

       

      Sub DeleteFile()

      Dim eVault              As EdmVault5

      Dim FolderPath          As String

      Dim FilePath            As String

      Dim eFile               As IEdmFile5

      Dim eFolder             As IEdmFolder5

        

          Set eVault = New EdmVault5

          eVault.LoginAuto "_EngVault", 0

        

          FolderPath = "C:\_EngVault\USER_PROTOTYPE\FSIDHVA"

          FilePath = FolderPath & "\assy.SLDASM"

        

          Set eFolder = eVault.GetFolderFromPath(FolderPath)

          Set eFile = eVault.GetFileFromPath(FilePath, eFolder)

        

          eFolder.DeleteFile 0, eFile, True

        

      End Sub