i need to copy all mp3 files in a directory and its child directorys

Dim wantedExtension as String = ".jpeg"
	 
	For Each file_name As String In OpenFileDialog1.FileNames
	    If (file_name.EndsWith(wantedExtension) Then
	        TEST1.lstFiles.Items.Add(file_name)
	        TEST1.txtList.Text = TEST1.txtList.Text + Environment.NewLine + file_name
	        File.Copy(file_name, "C:\Documents and Settings\kmoloney\Desktop\kmoloney\RELEASEDtest" & "\" & Path.GetFileName(file_name), True)
	    End If
	Next