---

Hallo Zusammen
ich habe da mal wieder eine Frage?
Ich möchte meine Zeichnungsvorlagen in eine Combobox laden und diese von dort auswählen als Vorlage.
bekomme es leider nicht hin.............

Dim m_inventorApp As Application
        m_inventorApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")
        Dim oDrawDoc As DrawingDocument
        oDrawDoc = m_inventorApp.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, "ComboBox1.Text")
        Dim oSheet As Sheet
        oSheet = oDrawDoc.ActiveSheet

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ' Verzeichnis, dessen Dateien ermittelt werden sollen
        Dim sPath As String = "C:\Users\fkoestner\Desktop\Test INV Pfad öffnen\Test INV Pfad öffnen\Template"

        ' Directory-Object erstellen
        Dim oDir As New System.IO.DirectoryInfo(sPath)

        ' alle Dateien des Ordners
        Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.idw")

        ' Datei-Array durchlaufen und in
        ' ComboBox übertragen
        Dim oFile As System.IO.FileInfo
        ComboBox1.Items.Clear()
        For Each oFile In oFiles
            ComboBox1.Items.Add(oFile.Name)
        Next

    End Sub

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