Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datei Pfad DataGridView
Autor: Asor71
Datum: 20.02.16 20:23
Hallo Zusammen Hallo Manfred X danke nochmal für deine letzte Hilfe kann mir da jemand helfen? Ich möchte den Pfad der ausgewallten Dateien in DataGridView eintragen. Der Pfad wird eingetragen aber es fehlt der Datei Name und satfix DataGridView ist wie folgt aufgeteilt: Auswahl: ist eine Checkbox wen diese aktiviert ist brauche ich den Datei Pfad als Variable, Model: hier sollte der komplette Pfad rein, Typ: hier sollte nur der Satfix, idw: hier sollte ein grüner hacken Vals es in diesen Verzeichnis schon eine Datei mit den nahmen gibt oder ein rotes X als Grafik Imports System Imports System.Type Imports System.Activator Imports System.Runtime.InteropServices Imports Inventor Public Class Form1 Private inCustomDlg As Boolean Private WithEvents oEvents As FileUIEvents Private ofd As New OpenFileDialog With {.Multiselect = True, .InitialDirectory = "C:\Users\fkoestner\Desktop\Test INV Pfad öffnen\Test INV Pfad öffnen\Template\", .CheckFileExists = True, .Filter = "Inventor-Dateien|*.idw|Alle" & "Dateien|*.*"} Dim path As String = "" Dim idw As String = "" Dim Model As String = "" Dim filelist As New List(Of String) Dim openFileDialog1 As New OpenFileDialog() Dim FolderBrowser As New FolderBrowserDialog Dim m_inventorApp As Application = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application") Private Sub iptÖffnen_Click(sender As Object, e As EventArgs) Handles iptÖffnen.Click Try Catch ex As Exception MessageBox.Show("Inventor must Gestartet sein.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End Try Dim oDesignProjectMgr As DesignProjectManager oDesignProjectMgr = m_inventorApp.DesignProjectManager Dim Arbeitsbereich As String Arbeitsbereich = oDesignProjectMgr.ActiveDesignProject.WorkspacePath FolderBrowser.Description = "idw Ordner wählen ..." FolderBrowser.ShowNewFolderButton = True FolderBrowser.RootFolder = System.Environment.SpecialFolder.Desktop FolderBrowser.SelectedPath = Arbeitsbereich openFileDialog1.Filter = "Inventor Files (*.iam;*.ipt)|*.iam;*.ipt|All Files (*.*)|*.*" openFileDialog1.Title = "Datei Öffnen" openFileDialog1.InitialDirectory = Arbeitsbereich openFileDialog1.Multiselect = True With openFileDialog1 If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then path = IO.Path.GetDirectoryName(.FileNames(0)) End If Dim oDoc As Document oDoc = m_inventorApp.Documents.Open(openFileDialog1.FileName, False) End With Dim i As Integer With DataGridView1 If .Rows(i).Cells(0).Value = "" Then .Rows(i).Cells(1).Value = path .Rows(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft End If End With End Sub Private Sub idvVorlagewählen_Click(sender As Object, e As EventArgs) Handles idvVorlagewählen.Click ' Überprüfen ob Inventor geöffnet ist. Dim invApp As Inventor.Application Try invApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application") Catch ex As Exception MessageBox.Show("Inventor must Gestartet sein.", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End Try With ofd If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub If .FileNames.Count = 0 Then Exit Sub filelist.Clear() cboFiles.DataSource = Nothing path = IO.Path.GetDirectoryName(.FileNames(0)) For i As Integer = 0 To .FileNames.Count - 1 filelist.Add(IO.Path.GetFileName(.FileNames(i))) Next i cboFiles.DataSource = filelist End With End Sub Private Sub cboFiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFiles.SelectedIndexChanged With cboFiles If .SelectedIndex = -1 Then Exit Sub idw = path & "\" & filelist(.SelectedIndex) End With End Sub End Class MfG Asor71

Datei Pfad DataGridView	2.300	Asor71	20.02.16 20:23
Re: Datei Pfad DataGridView	1.304	Manfred X	21.02.16 12:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen