---

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

---

Hallo 

Code:

---

'DeleteFilesFromFolder("C:\New Folder")

Sub DeleteFilesFromFolder(Folder As String)
    If Directory.Exists(Folder) Then
        For Each _file As String In Directory.GetFiles(Folder)
            File.Delete(_file)
        Next
    End If
End Sub

---

MFG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tacker,

es geht nicht um das Auflisten von Dateien unter Windows sondern um das Auflisten von Bauteilen, die sich unter Inventor in einem Ordner befinden.

Konnte das Problem lösen:

For Each oBrowserNode In oBrowserFolder.BrowserNode.BrowserNodes

Georg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP