Répertoire

Question

Bonjour ,

je voudrais cr&#233;er un r&#233;pertoire en sauvegardant ayant le Nom comme 
sous-r&#233;pertoire, voici ma sauvegarde :

   ' Cr&#233;ation du Fichier Nom+An.txt
            Set FSys = CreateObject("Scripting.FileSystemObject")
            Set MonFic = FSys.CreateTextFile(App.Path & "" & Nom + " " + An + ".txt")
    ' Ecriture des Lignes
            MonFic.WriteLine An
            MonFic.WriteLine Nom
            MonFic.WriteLine Part

Merci de votre aide.

pjcleder · Answer

PAT

Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonRepertoire  = FSys.Createfolder(App.Path & "" & Nom)

Ensuite tu fais ta moulinette

lcastell · Answer

Ok mais si mon r&#233;pertoire existe comme y entr&#233; sans le supprimer.

Merci

lcastell · Answer

Comment faire pour voir si un r&#233;pertoire est d&#233;j&#224; cr&#233;&#233;, pour l'ouvrir et copier
mon fichier &#224; l'int&#233;rieur.

Merci de votre aide

pjcleder · Answer

PAT

Au lieu de faire Create tu fias GetFolder

lcastell · Answer

Au secour je n'arrive pas, je fais mon r&#233;pertoire, je copie mon fichier TXT
dans  mon r&#233;pertoire, mais quand je veux sauvegarder dans mon r&#233;pertoire 
qui est l&#224; d&#233;j&#224; cr&#233;&#233;, cela ne marche pas. Voici ce que je fais :

   If ExistFile(App.Path & "" & Nom) Then
            Set FSys = CreateObject("Scripting.FileSystemObject")
            Set MonRepertoire = FSys.Getfolder(App.Path & "" & Nom)
        Else
            Set FSys = CreateObject("Scripting.FileSystemObject")
            Set MonRepertoire = FSys.Createfolder(App.Path & "" & Nom)
        End If

Mais quand il regarde si il existe, la formule passe directement &#224; ELSE.

Help me.

Merci

Répertoire

5 réponses

Discussions similaires