dim yol as string = "C:\Users\"& Environment.UserName & "\Downloads"