Ik heb onderstaande code:
Als ik het programma vervolgens run, gaan worden de eerste twee items keurig netjes naar de desbetreffende kolom geschreven, doch het programma zegt bij de vetgedrukte zin ( subItems(2).Text = ultra.Artist(File)
De conversie van tekenreeks (c:\ desbetreffendefile.mp3 naar type integer is ongeldig)
Hoe maak ik van dit tekenreeks dan een geldige type integer.
Vriendelijke groet
Code:
Imports System.IO
Imports HundredMilesSoftware.UltraID3Lib
Public Class Form1
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Dim ultra As New UltraID3
Dim openfile As New OpenFileDialog
openfile.FileName = "Bestanden"
openfile.Filter = "Audiobestanden (*.mid, *.mp3, *.wav, *.wma, .aac|*.mid;*.mp3;*.wav;*.wma;*.aac"
openfile.Multiselect = True
If openfile.ShowDialog = DialogResult.OK Then
For Each File As String In openfile.FileNames
Dim subItems As ListViewItem.ListViewSubItem() = New ListViewItem.ListViewSubItem(4 - 1) {}
subItems(0) = New ListViewItem.ListViewSubItem()
subItems(0).Name = ListView1.Columns(0).Text
subItems(0).Text = (Path.GetFileNameWithoutExtension(File))
subItems(1) = New ListViewItem.ListViewSubItem()
subItems(1).Name = ListView1.Columns(1).Text
subItems(1).Text = File
subItems(2) = New ListViewItem.ListViewSubItem()
subItems(2).Name = ListView1.Columns(2).Text
[B] ultra.Read(File)
subItems(2).Text = ultra.Artist(File)[/B]
subItems(3) = New ListViewItem.ListViewSubItem()
subItems(3).Name = ListView1.Columns(3).Text
subItems(3).Text =ultra.Album(File)
Dim Item As New ListViewItem(subItems, 0)
ListView1.Items.Add(Item)
Next
Else
Exit Sub
End If
End Sub
Als ik het programma vervolgens run, gaan worden de eerste twee items keurig netjes naar de desbetreffende kolom geschreven, doch het programma zegt bij de vetgedrukte zin ( subItems(2).Text = ultra.Artist(File)
De conversie van tekenreeks (c:\ desbetreffendefile.mp3 naar type integer is ongeldig)
Hoe maak ik van dit tekenreeks dan een geldige type integer.
Vriendelijke groet