Here's the simple code to Save any file to AppData

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsSave.Click

Dim appdata As String = Environment.GetFolderPath(Environment.SpecialFolde r.ApplicationData) & "\DIRECTORY1\DIRECTORY2"
IO.File.WriteAllBytes(appdata, My.Resources.YOURFILE)

End Sub


NOTE: change DIRECTORY1 and DIRECTORY2 to your desire folder
and chang YOURFILE to your desire file from your resources

-mark1993