Verzeichnis auslesen und Dateinamen aufsplitten

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • Verzeichnis auslesen und Dateinamen aufsplitten

      Hi,

      ich hab folgendes Problem:

      ich möchte ein bestimmtes Verzeichnis auslesen

      Quellcode

      1. Dim path As String = Application.StartupPath
      2. Dim pluginFiles As String() = Directory.GetFiles(path, "*.dll")


      Die dateien im Verzeichnis beginnen alle mit cont (also z.B. contHome.dll).
      Nun müßte ich den dateinamen aufsplitten in cont und einer variable, damit ich es in der Form :

      Quellcode

      1. Me.TestControl1.Items.Add(i).ItemTag = New cont + i


      (weis das dass Quatsch ist, soll nur verdeutlichen was ich meine ;) )

      Kann mir jemand einen Tipp geben, steh grad voll aufm Schlauch.

      Gruß

      Daniel

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • Ok Splitten ist klar nur wie setz ich das dann wieder zusammen?

      Das ganze soll ein Menü werden, welches sich dynamisch aufbaut.

      Bisher hab ichs fest im code in der form drin:

      Quellcode

      1. Me.TestControl1.Items.Add("Home").ItemTag = New contHome
      2. Me.TestControl1.Items.Add("Test").ItemTag = New contTest


      die dazugehörigen dll Dateien heißen dann zwangsläufig:

      contHome.dll und contTest.dll

      EDIT:
      soweit so gut, zwei Sachen funktionieren noch nicht.
      hier mein derzeitiger code:

      Quellcode

      1. Dim j As Long
      2. Try
      3. Dim pfad As String = My.Application.Info.DirectoryPath
      4. Dim arrAllFiles As Object = _
      5. Directory.GetFiles(pfad & "\plugins\")
      6. 'ListBox1.Items.Clear()
      7. For j = 0 To arrAllFiles.Length - 1
      9. Dim array() As String = Split(arrAllFiles(j), "cont")
      11. Me.VistaMenuControl1.Items.Add(array(1)).ItemTag = Trim("cont" + array(1))
      12. Next
      14. Catch Except As Exception
      15. MsgBox(Except.Message & vbNewLine & _
      16. "Möglicherweise ist die Pfadangabe falsch.", _
      17. MsgBoxStyle.Exclamation)
      18. End Try
      Alles anzeigen

      Nun was ich nicht hinbekomme ist das er mir auch ".dll" wegnimmt. Füge ich ein zweites Split ein bekomme ich eine leeres item.
      Zweiter Fehler ist:

      Das Objekt des Typs "System.String" kann nicht in Typ "System.Windows.Forms.Control" umgewandelt werden.

      Hoffe kann mir noch jemand helfen?!
      mfg und Guten Nacht