Transfert des fichiers

Question

Salut!

Voici mon problème:

Dans une application nommée "ASTRA", je veux qu'un clic sur le bouton "Sauvegarder" puisse copier le fichier "Identité" qui contient la Table du même nom (de mon application) dans la disquette, laissant ainsi l'originale (Table) en son emplacement original; mais en plus, il y a encore un 2ème bouton nommée "Restaurer" pour lequel je veux qu'un clic, remplace le fichier "Identité" contenant la Table du même nom original (dans le programme) par la copie qui avait été copié dans au par avant  dans la disquette, remplaçant ainsi l'existant par le nouveau.

Question1: Quel code utilisé pour le bouton "Sauvegarder"
Question2: Quel code utilisé pour le bouton "Restaurer"

Une explication un peu plus clair suivant l'exemple que j'ai utilisé, m'arrangerait...

A bientôt.

AnteManoclis · Answer

Salut,

  Pour l'enregistrement, je te suggére:


  Open "A:\Fichier.txt" for Output as #1
  For i=0 to Ubound(Table)
  Write #1, Table(1)
  Next i
  Close #1


  Pour la restauration...

  Call FileCopy("A:\Fichier.txt",Destination)

  Et il ne te resteras plus qu'à charger le fichier maintenant remplacé.

  En espèrant que cela aura pu t'aider
  Tchô  ;) 
AnteManoclis

YPMN · Answer

Salut!

Comme c'est gentil... je veux essayé mais puis-je savoir: est-ce qu'une fois mon fichier dans la disquette, il est sécurisé vraiment? (contre les modifications indésirables?) si non, comment alors sécuriser le fichier de sauvegarde mise dans la disquette?

Espérant sur ta collaboration...

AnteManoclis · Answer

Alors là... à vrai dire, je vois pas bien comment faire... mis à part le verrou qu'il y a sur la disquette...

  Tchô  ;) 
AnteManoclis

YPMN · Answer

oui, mais je parle du format des données dans la disquette (compréssé, soit autre) pour éviter les falcification par une personne malveillante le temps qu'ils sont encore dans la disquette...

merci d'avance.

AnteManoclis · Answer

Bah y'a toujours moyen de coder le fichier, soit en utilisant des logiciels déjà tout fait, ou alors, en codant directement telle ou telle donnée enregistrée... si tu vois pas trop comment le faire, je te passerais un exemple si ça t'dis

  Tchô  ;) 
AnteManoclis

YPMN · Answer

avec plaisir, j'attend ... que le crépuscule de cette année te soit doux!Votre texte ICI

AnteManoclis · Answer

Voilà un 'tit exemple de cryptage de fichier, c'est pas extraordinaire, mais quelqu'un qui ne sait pas que le fichier est codé, ou qui ignore comment le décoder, ça peut s'avérer satisfaisant. Dans le code tu trouveras le cryptage, pour le décryptage, c'est rigoureusement la même procédure.

  Dim Fichier As String
  Dim Tableau() As Byte: ReDim Tableau(1 To FileLen(Fichier))
  
  'Récupération des données
  Open Fichier For Binary As #1
    Get #1, , Tableau
  Close #1
  
  'Codage des données
  For i = 1 To UBound(Tableau)
    Tableau(i) = 255 - Tableau(i)
  Next i
  
  'Enregistrement du fichier codé
  Open Fichier For Binary As #1
    Put #1, , Tableau
  Close #1



  Si tu as la moindre question, n'hésites pas
  Tchô  ;) 
AnteManoclis

Transfert des fichiers

7 réponses

Discussions similaires