Hallo zusammen,
wie kann ich den Inhalt eines Ordners löschen?
Den Ordner selbst kann ich wie folgt löschen:
Dim m_inventorApp As Inventor.Application = Nothing
m_inventorApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")
Dim oAssyDoc As AssemblyDocument
oAssyDoc = m_inventorApp.ActiveDocument
Dim oPanes As BrowserPanes
oPanes = oAssyDoc.BrowserPanes
oPanes.Item("Modell").Activate()
Dim oPane As BrowserPane
oPane = oAssyDoc.BrowserPanes("Modell")
Dim oTopNode As BrowserNode = oPane.TopNode
oTopNode = oPane.TopNode
'Iterate through the browser folders
Dim oFolder As BrowserFolder
'Delete Empty Folders
For Each oFolder In oTopNode.BrowserFolders
If oFolder.Name = "Test" Then
oFolder.Delete()
End If
Next
Vielen Dank
Georg
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP