Discussion :

[Enix13]

Bonjour j'aimerais créer un fichier en cliquant sur un bouton.
Mais sans choisir soi même l'emplacement.

Je veux que l'emplacement soit dans le code, j'essaie de faire ça depuis 2 jours et je n'arrive pas
Je n'arrive même pas à générer un simple fichier texte

Merci d'avance.

PS : Pourrais-je aussi modifier l'extension du fichier ?

[Pol63]

http://plasserre.developpez.com/cours/vb-net/

il y a un chapitre sur les fichiers

[Enix13]

Je ne vois pas ce chapitre, il y en a tellement..

[Enix13]

Super j'arrive à créer le fichier, le seul problème c'est que je n'arrive pas à choisir l'emplacement

[ebastien]

Bonjour,

Difficile de comprendre où se trouve la difficulté. Peut-être qu'avec un peu de code ça serait plus clair et que quelqu'un pourra t'aider ...

eb.

[_Ez3kiel]

File.Create

[Pol63]

il faut bien expliquer le problème si tu veux des solutions

si par exemple tu veux que le chemin soit demandé à l'utilisateur il faut utiliser SaveFileDialog

[Enix13]

Non je veux juste que l'endroit ou s'enregistre le fichier soit sur le bureau par exemple, mais je veux pas que ce soit l'utilisateur qui choisisse, voici mon code :

Code :

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

1
2
3
4
5
        Dim SW As StreamWriter = File.CreateText("MonFichier.bat")
        SW.WriteLine("start %windir%\system32\calc.exe")
        SW.Close()
        Process.Start("C:\Users\XXXX\AppData\Local\Temporary Projects\WindowsApplication1\bin\Debug\Monfichier.txt")
        Me.Close()

Le fichier s'enregistre dans : C:\Users\XXXX\AppData\Local\Temporary Projects\WindowsApplication1\bin\Debug

Or je voudrais choisir un autre emplacement, tout simplement.

[Enix13]

Je viens de régler le problème, merci à _EZ3kiel !
Il suffit tout simplement de faire ceci :

Code :

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

1
2
3
4
5
Dim SW As StreamWriter = File.CreateText("C:\Users\XXXX\Desktop\MonFichier.bat")
        SW.WriteLine("start %windir%\system32\calc.exe")
        SW.Close()
        Process.Start("C:\Users\XXXX\Desktop\MonFichier.bat")
        Me.Close()

Rien de plus simple
Merci encore

[noftal]

Je ne suis pas devant mon IDE mais je te préconise d'utiliser plutôt des instructions du type

Code :

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

Environment.SpecialFolder....

pour désigner un chemin d'ordinateur

Par exemple :

Code :

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

Environment.SpecialFolder.MyDocuments

est un string désignant le chemin complet du dossier Mes Documents.
Selon la version de Windows, ce sera :
Win XP : "C:/DocumentsAndSettings/<user>/Mes Documents"
Win 7 : "C:/users/<user>/Mes Documents"
Je pense qu'il existe l'équivalent de MyDocuments pour désigner le Bureau (Desktop peut-être ?)

EDIT : pour avoir accès à ces Strings, il faut peut-être faire "imports System.IO en tête de module", je ne sais plus...

[_Ez3kiel]

Je ne suis pas devant mon IDE mais je te préconise d'utiliser plutôt des instructions du type

Code :

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

Environment.SpecialFolder....

pour désigner un chemin d'ordinateur

Par exemple :

Code :

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

Environment.SpecialFolder.MyDocuments

est un string désignant le chemin complet du dossier Mes Documents.
Selon la version de Windows, ce sera :
Win XP : "C:/DocumentsAndSettings/<user>/Mes Documents"
Win 7 : "C:/users/<user>/Mes Documents"
Je pense qu'il existe l'équivalent de MyDocuments pour désigner le Bureau (Desktop peut-être ?)

EDIT : pour avoir accès à ces Strings, il faut peut-être faire "imports System.IO en tête de module", je ne sais plus...

Moi je suis devant l'IDE.

Le code exact pour le path du desktop est :

Code :

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

Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

[Enix13]

Et avec ce Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Le fichier s'installera sans contrainte chez tout les utilisateurs ayant mon logiciel ?

Car je viens de m'apercevoir que mon chemin de destination est (logiquement) unique du à l'User, comment y remédier ?

[_Ez3kiel]

Et avec ce Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Le fichier s'installera sans contrainte chez tout les utilisateurs ayant mon logiciel ?

Car je viens de m'apercevoir que mon chemin de destination est (logiquement) unique du à l'User, comment y remédier ?

Comme l'a indiqué judicieusement noftal, avec Environment.GetFolderPath(Environment.SpecialFolder.Desktop) le chemin sera défini selon l'utilisateur du logiciel.

Si l'user Toto qui a Windows XP utilise ton logiciel, cette ligne de code te renverra C:\DocumentsAndSettings\Toto\Desktop
Si l'user Bob qui a Windows 7 utilise ton logiciel, cette ligne de code te renverra C:\users\Bob\Desktop

[Enix13]

Merci beaucoup, je viens enfin de réussir mon logiciel
Voici le code :

Code :

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

1
2
3
4
5
Dim SW As StreamWriter = File.CreateText(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "MonFichier.bat")
        SW.WriteLine("start %windir%\system32\calc.exe")
        SW.Close()
        Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "MonFichier.bat")
        Me.Close()

Merci encore !

[_Ez3kiel]

Il ne manque pas un anti-slash avant MonFichier.bat ?

[noftal]

Il ne manque pas un anti-slash avant MonFichier.bat ?

Normalement, si...

[Enix13]

Anti-slash ?
Je pense pas puisque tout se déroule normalement

[_Ez3kiel]

Environment.GetFolderPath(Environment.SpecialFolder.Desktop) retourne "C:\users\xxx\Desktop" et tu concatènes NomDeFichier.Bat, ce qui devrait ainsi donner C:\users\xxx\DesktopNomDeFichier.Bat ...

Mais bon si ça marche, c'est peut-être windows à bien géré son path pour le rajouter implicitement en cas de concaténation ?

Ps:
Slash -> /
Anti-slah -> \

[Enix13]

Bizarrament quand je mets l'anti-slah le fichier s'affiche bel et bien sur le bureau et quand je l'enlève rien ne s'affiche.

Dès à présent mon logiciel est sûr à 200%