copier des enregistrements dans .txt

Question

Bonjour &#224; tous et &#224; toutes
Voil&#224;, je dois r&#233;cuperer des enregistrements contenus dans un dossier afin de les copier dans un .txt. Mon probl&#232;me est que je ne r&#233;cup&#232;re que le dernier enregistrement car celui-ci &#233;crase tous les autres. Pourriez vous m'aider en m'indiquant la d&#233;marche &#224; suivre afin de ne pas ecraser les enregistrements. Merci d'avance

chmouette · Answer

ton dernier enregistrement &#233;crase tous les autres dans ton fichier texte?
pour ajouter ton enregistrement tu ouvre ton fichier, tu ajoute, tu ferme et tu recomence avec le suivant non?
si c'est ca, c'est que tu ouvres ton fichier dans un mauvais format.
ouvre ton fichier en mode "ajout"

avec MON_FIC le nom de tonfichier avec chemin et tout... ("c:\monrep\monfichier.txt")

   Dim NumFich As Integer
    ' ouvre le fichier journal en ajout
    NumFich = FreeFile
    If Dir(MON_FIC, vbNormal Or vbReadOnly Or vbHidden Or vbArchive) = "" Then
        'Le fichier n' existe pas, alors...le cr&#233;er!
        Open MON_FIC For Output As #NumFich
    Else
         ' ouverture du fichier en mode ajout
        Open MON_FIC For Append As #NumFich 
    End If
 
voil&#224;, bon code...

_____________________________________________________________________   
On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

cs_audrey08 · Answer

Le probl&#232;me ne vient pas du append car meme en ouvrant avec le append mes enregistrements sont &#233;cras&#233;s. Existe t-il un efonction qui permettrait de lui dire de copier les fichiers sans les ecraser. Merci

chmouette · Answer

d&#233;cris ta boucle d'enregistrement ou mets ton code...

On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

cs_audrey08 · Answer

'd&#233;finit le chemin d'acc&#232;s
    Mypath = "C:	emp\developpement"
    
     'renvoie tous les fichiers VM*.cuv si existant
    Myfile = Dir("C:	emp\developpement\VM*.cuv")
    Myname = Mypath & Myfile
    
    '
    ' boucle tant qu'il y a des fichiers &#224; traiter
    '
    
    open "C:\cuvemes\as400\cuvemes.txt"   
    Do While Myfile <> ""
        'copie le fichier dans archives
        fs.CopyFile Myname, "C:\cuvemes\archives"
         'copie dans le fichier txt pour tansfert dans as400
   fs.copyFile Myname, "C:\cuvemes\as400\cuvemes.txt"   

        
        'supprime le fichier du serveur
        fs.deletefile Myname, True
       
       'fichier suivant
        Myfile = Dir
        Myname = Mypath & Myfile
    Loop

chmouette · Answer

mon mail, ce sera plus direct pour debugger
the.mouette@gmail.com

On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

Copier des enregistrements dans .txt

5 réponses

Discussions similaires