Discussion :

[maxmarie]

Bonjour,

CF 1.0, pour programme PPC
VS 2005

actuellement, je créé un fichier txt de sauvegarde avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
Dim wAssemby As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim wAppPath As String = System.IO.Path.GetDirectoryName(wAssemby.GetName.CodeBase)
 
                  If aboxnom.Text <> ("") Then
                Dim FilePath As String = wAppPath & "\sauvegarde_" & aboxnom.Text & ".txt"
                  Dim flux As StreamWriter = New StreamWriter(FilePath, False, Encoding.UTF8)
                flux.Write(dossier.Text & vbCrLf)
                flux.Close()
            End If

Ce code créé le fichier dans le même repertoire que le programme. Comment faire pour que le fichier soit créé dans un sous repertoire "données", qui sera créé si il n'existe pas ?

Merci d'avance

[hurricane]

en modifiant le FilePath.
C'est quoi ce problème

[skaraa]

en modifiant le FilePath.
C'est quoi ce problème

oui en effet tu change le path... ou pour faire simple tu fait :

Code :

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

 Dim SW As Streamwriter = File.CreateText("\repertoire\sousrepertoire\Fichier.txt")

[maxmarie]

J'ai fait ca :

Code :

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

1
2
3
 
Directory.CreateDirectory(wAppPath & "\texte\")
Dim FilePath As String = wAppPath & "\texte\bipase_" & aboxnom.Text & ".txt"

Ca semble marcher correctement

Point de détail : y'a moyen de n'executer la fonction de création du rep que si celui ci n'existe pas déjà ?

Merci

[debug]

Tu peux tester l'existence d'un répertoire avec Directory.Exists()