- Code: Select all
Private Sub CopySong(ByVal i As Integer)
Dim SongPath As String = SongList.Items.Item(i).Tag
Dim SongName As String = SongList.Items.Item(i).SubItems.Item(1).Tag.ToString
Dim SongArtist As String = SongList.Items.Item(i).SubItems.Item(2).Tag.ToString
Dim SongAlbum As String = SongList.Items.Item(i).SubItems.Item(3).Tag.ToString
'MsgBox(SongPath)
'MsgBox(SongName)
'MsgBox(SongArtist)
'MsgBox(SongAlbum) This part works fine.
Dim RootPath = "C:\Users\Caleb\Desktop\Music"
Dim ArtistDir = RootPath & "\" & SongArtist & "\"
Dim AlbumDir = ArtistDir & "\" & SongAlbum & "\"
MsgBox(RootPath)
MsgBox(ArtistDir)
MsgBox(AlbumDir) 'This part will show everything except for the SongAlbum
End Sub
Any help would be awesome!
Thanks,
Daniel


