Dim savefolder As String = "delthisfolder"
Dim sHomeFolder As String
sHomeFolder = GetSystemProperty("user.home", "")
If File.Exists(sHomeFolder & "/" & savefolder, "") = False Then
File.MakeDir(sHomeFolder , savefolder)
End If
Dim sFolder As String = sHomeFolder & "/" & savefolder
If File.Exists(sFolder,"PleaseWaitProcessing.mp3") = False Then
File.Copy(File.Dirassets, "PleaseWaitProcessing.mp3", sFolder, "PleaseWaitProcessing.mp3")
End If
mp.Initialize("mp", File.GetUri(sFolder, "PleaseWaitProcessing.mp3"))
mp.Play