Discussion :

[Eratos]

Bonjour à tous,
j'aimerais copier un fichier - provenant des ressources - sur le bureau pour tous les utilisateurs. J'ai testé ces 2 lignes de codes, mais elles ne fonctionnent pas (il me semble que WriteAllBytes ne développe pas les variables d'environnement). Je ne connais pas la bonne formule.
Merci pour votre aide.
(Fichier txt dans les ressources.)

Code :

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

1
2
WriteAllBytes("C:\Users\%UserName%\Desktop\Fichier.txt",My.Resources.Fichier.txt)
WriteAllBytes("C:\Users\%UserProfile%\Desktop\Fichier.txt",My.Resources.Fichier.txt)

[Miska59]

Bonsoir,

vous pouvez faire ceci pour copier le fichier texte dans My.Resources sur le bureau :

Code :

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

File.WriteAllBytes(Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "Fichier.txt"), System.Text.Encoding.UTF8.GetBytes(My.Resources.fichier_test))

Cordialement,

[wallace1]

Bonsoir,

Le bureau de tous les utilisateurs :

Code :

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

Dim AllUsersDesktop As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory)

[Eratos]

Merci à vous deux de me répondre (Miska59 et Wallace1). Si j’essaie cette déclaration : Dim AllUsersDesktop As String, quel code j'associe pour copier le fichier texte se trouvant dans les ressources ?

[popo]

WriteAllBytes ne fonctionne plus ?

[Eratos]

Oui, en VB.net, WriteAllBytes ne développe pas les variables d'environnement.

[popo]

C'est une question rhétorique en réponse à une question que tu as posé et dont tu connais déjà la réponse.

AllUsersDesktop contient le chemin vers le Bureau.
WriteAllBytes prends en paramètre un chemin (comme par hasard ).

Prend le temps de la réflexion et la réponse te semblera évidente.

[Eratos]

C'est une question rhétorique en réponse à une question que tu as posé et dont tu connais déjà la réponse.

AllUsersDesktop contient le chemin vers le Bureau.
WriteAllBytes prends en paramètre un chemin (comme par hasard ).

Prend le temps de la réflexion et la réponse te semblera évidente.

Après réflexion, mes 80 milliards de neurones m'ont retourné cette ligne de codes :

Code :

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

WriteAllBytes("C:\Users\Public\Desktop\Fichier.txt", My.Resources.Fichier.txt)

Pour ceux que ça intéresse, elle fonctionne parfaitement.

[popo]

L'idée était que tu réfléchisse à une solution utilisant AllUsersDesktop.

Mettre un chemin en dur, c'est rarement une bonne idée.
Image que Microsoft décide pour Windows 12 (ce serait pas la première fois que ça arrive) de tout révolutionner et de définir le Bureau sur C:\AllUsers\Desktop.
Ton programme ne fonctionnera pas sur cet OS.

Nous t'avons donné tout ce dont tu as besoin.

• wallace1 t'a fourni le code pour aller chercher le chemin vers le bureau et la fameuse variable AllUsersDesktop.
• Miska59 t'a fourni la méthode Path.Combine pour concaténer ce chemin avec le nom du fichier à créer.
• Et tu connais déjà WriteAllBytes.

La solution la plus pérenne réside dans l'utilisation de ces 3 informations.

[Eratos]

Évidemment. Je vais essayer de suivre tes recommandations en évitant de me prendre les pieds dans le tapis.

[Eratos]

Merci à vous tous, cette commande fonctionne parfaitement.

Code :

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

WriteAllBytes(Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "Fichier.txt"), My.Resources.Fichier.txt)

[popo]

Si ton objectif est bien de copier sur le bureau pour tous les utilisateurs (tu l'a même mis en gras), alors ce code ne fait pas ce que tu veux.
Mais tu es sur la bonne voie.

Tu as déjà bien utilisé WriteAllBytes et Path.Combine.
Ne reste plus qu'à utiliser le bon chemin, celui dans AllUsersDesktop.

[Eratos]

Pourtant, lorsque je lance mon programme avec cette commande, mon "Fichier.txt" - provenant des ressources - s'affiche bien sur le bureau de mon PC. J'imagine qu'il doit bien s'afficher sur le PC d'un autre utilisateur, vrai ou pas ?

[popo]

Il est logique que ça marche sur ton poste puisque tu as ouvert une session dessus avec ton propre compte !

Affiche le contenu de My.Computer.FileSystem.SpecialDirectories.Desktop et tu verras ce qu'il en est réellement.

Code :

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

1
2
3
4
5
6
Dim AllUsersDesktop As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonDesktopDirectory)
 
Console.WriteLine(My.Computer.FileSystem.SpecialDirectories.Desktop)
Console.WriteLine(AllUsersDesktop)
 
Console.ReadKey()

Edit :
Après c'est une question de terminologie.
Avec ton code actuel, le fichier sera copié sur le bureau d'un utilisateur uniquement s'il utilise lui-même ton programme avec son compte.
En utilisant AllUsersDesktop, le fichier sera copié sur le bureau de tous les utilisateurs même s'ils n'ont jamais utilisé ton programme.

[Eratos]

Dans mon projet, les utilisateurs lanceront mon programme à partir de leur PC. Donc, en comprenant les différences que tu évoques, ma ligne de codes fonctionnera bien sur le PC des autres utilisateurs.
Je vais tester AllUsersDesktopen suivant ton code, comme cela j'aurai un aperçu du résultat.