Visual Basic

iTunes play event
Private Sub iTunes_OnPlayerPlayEvent(ByVal iTrack As Variant)

    ‘Find the current track
    Set Track = iTunes.CurrentTrack

        Dim Art1 As iTunesLib.IITArtworkCollection
        Dim Art2 As iTunesLib.IITArtwork
        Set Art1 = Track.Artwork

        If Art1.Count > 0 Then

        Set Art2 = Art1.Item(1)
        Art2.SaveArtworkToFile ("C:\art\" & Track.Artist & " - " & Track.Album & ".jpg")
        Open "C:\art\config.txt" For Output As #5
        Print #5, Track.Artist & " - " & Track.Album
        Close #5

    End If

End Sub

Private Sub btncheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncheck.Click
        Dim di1 As DirectoryInfo = New DirectoryInfo(txtdir1.Text) ' Folder A
        Dim di2 As DirectoryInfo = New DirectoryInfo(txtdir2.Text) ' Folder B
                
        Try
            Dim dirs1 As FileSystemInfo() = di1.GetDirectories
            Dim dirs2 As FileSystemInfo() = di2.GetDirectories
            Dim d1, d2 As DirectoryInfo
            Dim i As Integer
          
            For i = 0 To dirs1.Length - 1
                For Each d1 In dirs1
                    Dim f1 As FileInfo() = d1.GetFiles()

                    For Each d2 In dirs2
                        Dim f2 As FileInfo() = d2.GetFiles()

                        If d1.Name = d2.Name Then
                        Else

                            Console.WriteLine(d1.Name)
                        End If
                    Next
                Next
            Next



        Catch ex As Exception

        End Try

    End Sub


    Private Sub btndirectory_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndirectory.Click
        Dim folderopen As New FolderBrowserDialog
        With folderopen
            .RootFolder = Environment.SpecialFolder.Desktop
            .SelectedPath = "C:\DOCUMENT"
            .Description = "Select the source directory"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                ' Display the selected folder if the user clicked on the OK button.
                MessageBox.Show(.SelectedPath)
                txtdir1.Text = .SelectedPath
            End If

        End With
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lbldate.Text = Now.ToLongDateString
    End Sub

  
    Private Sub btndirectory2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim folderopen As New FolderBrowserDialog
        With folderopen
            .RootFolder = Environment.SpecialFolder.Desktop
            .SelectedPath = "C:\DOCUMENT"
            .Description = "Select the source directory"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                ' Display the selected folder if the user clicked on the OK button.
                MessageBox.Show(.SelectedPath)
                txtdir2.Text = .SelectedPath
            End If

        End With
    End Sub