Avviare programma come Amministratore (problema)

[eziogsv]

...Nome Programma\1.0.0.0 >> quando cambio versione mi creerà una nuova cartella???

Si, ma puoi benissimo bypassare il problema immettendoli in una cartella (esempio "Files", che se non c'è dovrà essere creata) direttamente in "NomeProgramma"

ReadOnly Destinazione = _
(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData).Replace(Application.ProductVersion, "Files")

'al Load del Form Principale
If Not My.Computer.FileSystem.DirectoryExists(Destinazione) Then
     My.Computer.FileSystem.CreateDirectory(Destinazione)
End If

[Pamela72]

Scusami, ma i file dove li salvo??
in "My.Computer.FileSystem.SpecialDirectories.Current UserApplicationData" o "Files" oppure "Destinazione"???

AGGIORNAMENTO:
Allora, ho fatto un prova: devo salvare il file in Destinazione & "\nomefile.txt". GIUSTO??
Inoltre ho dovuto modificare ReadOnly Destinazione in Dim Destinazione as string, poichè uno StreamReader non lo accettava. Va bene lo stesso?

Si, ma puoi benissimo bypassare il problema immettendoli in una cartella (esempio "Files", che se non c'è dovrà essere creata) direttamente in "NomeProgramma"

ReadOnly Destinazione = _
(My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData).Replace(Application.ProductVersion, "Files")

'al Load del Form Principale
If Not My.Computer.FileSystem.DirectoryExists(Destinazione) Then
     My.Computer.FileSystem.CreateDirectory(Destinazione)
End If

[eziogsv]

AGGIORNAMENTO: Allora, ho fatto un prova: devo salvare il file in Destinazione & "\nomefile.txt". GIUSTO??

Giusto.

Inoltre ho dovuto modificare ReadOnly Destinazione in Dim Destinazione as string, poichè uno StreamReader non lo accettava. Va bene lo stesso?

Strano, ma va benissimo lo stesso.