Suchprogramm nach jpg suchen und in DataGridView

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Suchprogramm nach jpg suchen und in DataGridView

    Hi zusammen,

    hab ein kleines Problem und bräuchte bitte eure Hilfe :)



    Mach grad ein "Suchprogramm" für meine Filmesammlung:

    1. Ich suche per FolderBrowserDialog einen Ordner aus (FolderBrowser)

    2. Ich wähle per ComboBox eine Dateiendung fest (*.avi, *.mkv, *.mpg)

    3. Ich drücke auf einen Button und er Listet mir z.B. alle AVI-Filmdateien in meinem DataGridView1.


    Soweit klappt auch alles! ABER:

    Wie mache ich es nun, dass das Programm auch gleich überprüft, ob sich eine JPG im Ordner der AVI befindet?

    Also quasi, ob bei jedem gelisteten Film ein Cover dabei ist?!



    Hier der Code für's Ordner wählen:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim FolderBrowser As New FolderBrowserDialog
    7. FolderBrowser.Description = "Bitte wählen ..."
    9. FolderBrowser.ShowNewFolderButton = True
    11. FolderBrowser.RootFolder = System.Environment.SpecialFolder.Desktop
    13. FolderBrowser.SelectedPath = My.Computer.FileSystem.SpecialDirectories.Desktop
    15. If FolderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
    17. Me.Label1.Text = FolderBrowser.SelectedPath
    19. End If
    21. pfad = Me.Label1.Text
    23. If Not pfad.EndsWith("\") Then
    25. pfad &= "\"
    27. End If
    29. End Sub




    Hier der Code, bei dem ich Hilfe brauche wegen "Coversuche":

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    3. DataGridView1.Rows.Clear()
    5. Dim Datei As String
    7. Dim cover As String = True
    9. Dim nocover As String = False
    13. If ComboBox1.SelectedItem Is Nothing Then
    15. ElseIf Label1.Text = "" Then
    17. MsgBox("Bitte erst Ordner wählen und Endung zuweisen!")
    19. Else
    23. For Each Datei In My.Computer.FileSystem.GetFiles(pfad, FileIO.SearchOption.SearchAllSubDirectories, ComboBox1.SelectedItem)
    25. 'Hier ist Frage Nr. 1: Wie überprüfe ich, ob in dem Ziellaufwerk auch ein Bild ist?
    27. If Datei.Verzeichnis.hat.auch.Jpg.drin Then
    29. DataGridView1.Rows.Add(System.IO.Path.GetFileNameWithoutExtension(Datei), System.IO.Path.GetDirectoryName(Datei) & "\", cover)
    31. Else
    33. DataGridView1.Rows.Add(System.IO.Path.GetFileNameWithoutExtension(Datei), System.IO.Path.GetDirectoryName(Datei) & "\", nocover)
    35. End If
    37. Next
    43. 'Hier wird jedes Feld eingefärbt, welches 'Cover = "True"' ist
    45. Dim CellWert As String
    47. Dim CellFarbe As Color
    51. For I As Integer = 0 To DataGridView1.Rows.Count - 1
    53. CellWert = DataGridView1.Rows(I).Cells(2).Value
    57. If CellWert = cover Then
    59. CellFarbe = Color.Green
    61. Else
    63. CellFarbe = Color.Red
    65. End If
    67. DataGridView1.Rows(I).Cells(2).Style.BackColor = CellFarbe
    69. Next
    71. End If
    73. End Sub




    Hier mal der komplette Code bisher:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    5. Public Class Form1
    9. Dim pfad As String
    13. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. pfad = ""
    17. DataGridView1.Columns.Add("1", "Name")
    19. DataGridView1.Columns.Add("2", "Pfad")
    21. DataGridView1.Columns.Add("3", "Cover")
    23. ComboBox1.Items.Add("*.avi")
    25. ComboBox1.Items.Add("*.mkv")
    27. ComboBox1.Items.Add("*.mpg")
    29. ComboBox1.SelectedIndex = 0
    31. End Sub
    35. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    37. Dim FolderBrowser As New FolderBrowserDialog
    41. FolderBrowser.Description = "Bitte wählen ..."
    43. FolderBrowser.ShowNewFolderButton = True
    45. FolderBrowser.RootFolder = System.Environment.SpecialFolder.Desktop
    47. FolderBrowser.SelectedPath = My.Computer.FileSystem.SpecialDirectories.Desktop
    49. If FolderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
    51. Me.Label1.Text = FolderBrowser.SelectedPath
    53. End If
    55. pfad = Me.Label1.Text
    57. If Not pfad.EndsWith("\") Then
    59. pfad &= "\"
    61. End If
    63. End Sub
    67. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    69. DataGridView1.Rows.Clear()
    71. Dim Datei As String
    73. Dim cover As String = True
    75. Dim nocover As String = False
    79. If ComboBox1.SelectedItem Is Nothing Then
    81. ElseIf Label1.Text = "" Then
    83. MsgBox("Bitte erst Ordner wählen und Endung zuweisen!")
    85. Else
    89. For Each Datei In My.Computer.FileSystem.GetFiles(pfad, FileIO.SearchOption.SearchAllSubDirectories, ComboBox1.SelectedItem)
    91. 'Hier ist Frage Nr. 1: Wie überprüfe ich, ob in dem Ziellaufwerk auch ein Bild ist?
    93. If Datei.Verzeichnis.hat.auch.Jpg.drin Then
    95. DataGridView1.Rows.Add(System.IO.Path.GetFileNameWithoutExtension(Datei), System.IO.Path.GetDirectoryName(Datei) & "\", cover)
    97. Else
    99. DataGridView1.Rows.Add(System.IO.Path.GetFileNameWithoutExtension(Datei), System.IO.Path.GetDirectoryName(Datei) & "\", nocover)
    101. End If
    103. Next
    109. 'Hier wird jedes Feld eingefärbt, welches 'Cover = "True"' ist
    111. Dim CellWert As String
    113. Dim CellFarbe As Color
    117. For I As Integer = 0 To DataGridView1.Rows.Count - 1
    119. CellWert = DataGridView1.Rows(I).Cells(2).Value
    123. If CellWert = cover Then
    125. CellFarbe = Color.Green
    127. Else
    129. CellFarbe = Color.Red
    131. End If
    133. DataGridView1.Rows(I).Cells(2).Style.BackColor = CellFarbe
    135. Next
    137. End If
    139. End Sub
    141. End Class

    Meinst Du dies:

    VB.NET-Quellcode

    1. Dim pathIn As String = "c:\temp\new.avi"
    2. Dim pathOut As String = System.IO.Path.ChangeExtension(pathIn, ".jpg")
    3. Dim ex As Boolean = System.IO.File.Exists(pathOut)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Danke

    Danke erstmal für die Antwort.

    Ähm..und wie binde ich das Ganze nun ein?

    Ich meine:

    Mein Programm sucht in einem Ordner ALLE Dateien nach der Endung AVI.

    Listet mir dann ALLE AVI-Dateien inkl. jeweiligem Pfad in einem DataGridView.



    Also:

    Film 1 | Folder\Ordner123\OrdnerABC\

    Film 2 | Folder\OrdnerYXZ\

    (Folder ist der Ordner, den ich per FolderBrowserDialog gewählt hab..)



    Nun will ich halt, dass er in den jeweiligen Ordnern nach irgendeinem JPG sucht (muss nicht den gleichen Namen haben wie der Film):

    Also am Schluss dann so:

    Film 1 | Pfad | Cover JA (JPG ist mit im Ordner von Film 1)

    Film 2 | Pfad | Cover NEIN (Es ist kein JPG im Ordner von Film 1)



    Oumann..ich bin echt schlecht im erklären ;)

    Hoffe, jemand versteht mich :)

    LG Markus


    Entwurfsansicht zur besseren Verständnis:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DiDi“ ()

    DiDi schrieb:

    Ähm..und wie binde ich das Ganze nun ein?

    Deine Frage haben wir im Hauptforum gefunden, das bedeutet zumindest, dass Du gewisse Grundlagen beherrschst und CodeSnippets verwenden kannst.
    Nimm Dir mein Post, pack Dir den Code in ein Button_Click-Event und füge als neuen Code hintendran:

    VB.NET-Quellcode

    1. If ex Then
    2. MessageBox.Show("Vorhanden")
    3. Else
    4. MessageBox.Show("Nicht vorhanden")
    5. End If
    Dann holst Du Dir die Variable pathIn aus einem OpenFileDialog.
    Und dann ist Dein Programm schon fast fertig.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook