Files = Dir("E:\music\*.mp3")
 
        If Files <> "" Then
    Do
    Files = Dir()
    TagWriter1.MP3_FileName = Files
        List1.AddItem TagWriter1.ID3tag_Artist
    Loop While Files <> ""
    End If

Files = Dir("E:\music\*.mp3")
Do  While Files <> ""
    TagWriter1.MP3_FileName = Files
    List1.AddItem TagWriter1.ID3tag_Artist
    Files = Dir()
Loop

    TagWriter1.MP3_FileName = "E:\music\" & Files