Discussion :

[LeGeorges]

Bonjour tout le monde.

De base je cherchais un moyen pour copier le contenu d'un Textbox afin de le mettre dans un fichier ".txt" que je voulais enregistrer par la suite.
Le problème c'est que je n'avais pas accès au dossier dans lequel je voulais utiliser StreamWriter.

J'ai alors fais des recherches sur comment avoir accès à ce dossier , je suis tombé sur des posts parlant du manifest (qu'il fallait modifier). Ce que j'ai fait par la suite( je l'ai mit en "requireAdministrator").
J'ai également, comme marqué sur un post(https://www.developpez.net/forums/d8...ista-standard/) désactiver la sécurité du ClickOnce et Généré ma solution ( cela à apparemment fonctionné avec lui ) .

Mais quand je fais comme cela mon programme ne veut même plus importé de dossier ( Il n'a pas accès au chemin , alors que jusque là il l'avait !)

Donc j'ai un nouveau problème sur les bras et je ne sais pas quoi faire car le chemin à toujours été bon !

Et je ne trouve rien qui m'aide... Une idée ?

Merci pour vos éventuelles réponses.

[Sidonay]

Salut,
Je ne sais pas si cela peux t'aider mais moi j'utilise cette technique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Directory.Exists(PathAccess) Then
            'Contrôle l’existence du fichier
            If File.Exists(PathAccess & "\" & Name & "." & Ext) Then
            'Ton code
            End if
Else
   'Création du répertoire
   Directory.CreateDirectory(PathAccess)
End If

je pense aussi que supprimer les droits d'admin serait moins contraignant dans le cas où il ne serait pas vraiment nécessaire. Sinon il faut démarrer l'appli en tant qu'admin.

Je n'ai jamais eu de soucis en faisant comme ça.

[LeGeorges]

Bonjour , et merci pour ta réponse.

J'ai essayé comme tu me l'a dit mais il me sort toujours la même erreur : System.UnauthorizedAccessException*: 'L'accès au chemin d'accès 'C:\Users\moi\Documents\test' est refusé.'
Voici mon code associé à mon enregistrement. En espérant qu'il soit utile !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub BtnSave_Click(sender As Object, e As RoutedEventArgs) Handles BtnSave.Click
 
 
 
        Savefile.InitialDirectory = "C:\Users\moi\Documents\test"
        Savefile.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        Savefile.FileName = txtnumprog.Text & "(" & lsttrad.SelectedItem & ".mpf"
        Savefile.Title = "Enregistrer sous"
        Savefile.ShowDialog()
        Savefile.OpenFile()
        If Directory.Exists(Savefile.InitialDirectory) Then
            If File.Exists(Savefile.FileName) Then
                Dim file As File
                File.WriteAllText(Savefile.InitialDirectory, tradtxt.Text) ---> C'est à cette ligne que le programme plante.
            End If
        Else
            'Création du répertoire
            Directory.CreateDirectory(Savefile.InitialDirectory)
        End If

J'ai également été voir du côté des attributs de mes dossiers, et même après avoir décoché la case "Lecture seule", le fichier la re-coche lui même dés lors que je ferme mon dossier.
Le programme ne me demande pas les droits administrateurs pourtant ..
J'ai voulu ajouter ASPNET aux membres pouvant accéder à mes dossiers en écriture et en lecture, mais je ne le trouve tout simplement pas dans la liste proposée.

[François DORIN]

On va reprendre depuis le début, car il y a des info contradictoire. De quel type d'application s'agit-il ? Winform ? UWP ? ASP.NET ?

[LeGeorges]

On va reprendre depuis le début, car il y a des info contradictoire. De quel type d'application s'agit-il ? Winform ? UWP ? ASP.NET ?

Bonjour François ,

C'est une application WPF.

Merci pour ta sollicitude

[François DORIN]

Bon, alors oublie l'utilisateur ASPNET. Cela ne serait utile que dans le cas d'une application ASP.NET hébergé par IIS par exemple.

Est-ce que tu as bien accès à C:\Users\moi\Documents\test ? Si tu l'ouvres en passant par l'explorateur Windows, aucun soucis ? Il s'agit bien d'un répertoire ?

[baloub]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
        Savefile.InitialDirectory = "C:\Users\moi\Documents\test"
        
        If Directory.Exists(Savefile.InitialDirectory) Then
            If File.Exists(Savefile.FileName) Then
                Dim file As File
                File.WriteAllText(Savefile.InitialDirectory, tradtxt.Text) ---> C'est à cette ligne que le programme plante.
            End If
        Else
            'Création du répertoire
            Directory.CreateDirectory(Savefile.InitialDirectory)
        End If

il n'y a pas de nom de fichier dans "Savefile.InitialDirectory". C'est juste un chemin d'accès d'où le refus.