URGENT !! Créer un fichier à l'interieur d'un dossier prédéfiniRésolu

Question

Bonjour, j'ai un léger problème (que je n'arrive pas à résoudre). J'aimerais pouvoir créer un fichier directement dans un dossier que j'ai spécifié.
C'est à dire que je crée le dossier userpath avec System.Io.Directory.Create dans le répertoire de l'application. Maintenant j'aimerais créer un fichier par exemple username dans ce dossier.
Comment m'y prendre ?

Dagry · Accepted Answer

J'ai trouvé la solution et elle marche!!!



par exemple, on recueille un nom avec



dim



 Prompt, NomPrompt = 


"Entrez le nom d'utilisateur"

Nom = InputBox$(Prompt)

ensuite on crée un dossier portant le nom qu'on a recueilli


Dim



 userpath = System.IO.Directory.CreateDirectory(Nom).ToString



on crée un fichier portant le nom qu'on a recueilli avec une extension 




Dim



 namext 

As



String
 = Nom & 

".usn"



ensuite on définit le répertoire créé précédement comme répertoire par défaut puis on y crée le fichier




System.IO.Directory.SetCurrentDirectory(userpath)


System.IO.File.Create(namext)








pour la forme on fait un beep et on envoie un message






Beep()


MsgBox(




"Votre Compte d'utilisateur a été créé avec succès."
)



on peut utiliser ce bout de code comme une fonction aussi, ça marche quand même

Utilisateur anonyme · Answer

Salut,

Y'a pas à chercher bien loin :
System.Io.File.Create

__________
  Kenji

Dagry · Answer

justement c'est ce que j'ai fait mais il met le fichier ailleurs

Kevin.Ory · Answer

Salut,

Si il ne met pas ton fichier ou tu veux, c'est parce que ton chemin est faux, c'est tout 

        Dim path As String = IO.Path.Combine(Application.StartupPath, "Username.txt")
        Dim stream As IO.FileStream = IO.File.Create(path)

Utilisateur anonyme · Answer

Tu as mis quoi en paramètre ?

__________
  Kenji

Dagry · Answer

merci kevin.ory ça marche. ça m'aide beaucoup.

Dagry · Answer

mais le fichier n'est pas à l'interieur du dossier créé

Utilisateur anonyme · Answer

Bien sur il faut apporter quelques modifications :
        Dim path As String = IO.Path.Combine(userpath, "Username.txt")
        Dim stream As IO.FileStream = IO.File.Create(path)

__________
  Kenji

Dagry · Answer

excusez moi
quand j'utilise l'instruction combine il me dit Le processus ne peut pas accéder au fichier car il est en cours d'utilisation par un autre processus. que faire ?

Dagry · Answer

excusez moi
quand j'utilise l'instruction combine il me dit Le processus ne peut pas accéder au fichier car il est en cours d'utilisation par un autre processus. que faire ?

Kevin.Ory · Answer

Ce n'est pas Path.Combine qui te génère cette erreur, mais File.Create.

C'est parce que ton fichier est déjà ouvert, soit dans ton code, soit par un autre processus.

Dagry · Answer

je vais continuer à chercher
merci quand même

Kevin.Ory · Answer

Lol,

Ce qu'il faut savoir sur l'ouverture des fichiers:
- Un fichier ne peut être ouvert qu'une seule fois. Si on tente de le réouvrire alors qu'il est déjà ouvert, ça provoquera l'erreur que tu as (Le processus ne peut pas accéder au fichier car il est en cours d'utilisation par un autre processus)
- Il faut donc refermer le fichier une fois qu'on a fini d'y écrire des données. On peut le faire manuellement en appelant stream.close, ou ceci est fait automatiquement lorsque stream n'est plus utilisé (lorsque il n'y a plus de référence à l'objet stream). Donc pour être sur que ton fichier est fermé, on va mettre stream.close:

    ' Chemin du dossier:
    Dim dossier As String = IO.Path.Combine(Application.StartupPath, "UserPath")
    ' Si le dossier n'existe pas, le créer:
    If Not IO.Directory.Exists(dossier) Then IO.Directory.CreateDirectory(dossier)
    ' Création du fichier:
    Dim stream As IO.FileStream = IO.File.Create(IO.Path.Combine(dossier, "Username.txt"))
    ' Ecrire les données dans le fichier
    ...
    ' Une fois fini, il faut fermer le fichier
    stream.Close()

Mets ces 4 lignes dans un nouveau projet, tu verra que ça fonctionne très bien

URGENT !! Créer un fichier à l'interieur d'un dossier prédéfini

13 réponses

Votre réponse

Discussions similaires