Sujet Précédent Sujet Suivant

SAUVEGARDE LOCALE

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 13 mars 2008 à 16:32
cs_GorGor33 Messages postés 29 Date d'inscription lundi 3 mars 2008 Statut Membre Dernière intervention 26 mars 2008 - 26 mars 2008 à 14:02

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/46041-sauvegarde-locale

cs_GorGor33 Messages postés 29 Date d'inscription lundi 3 mars 2008 Statut Membre Dernière intervention 26 mars 2008
26 mars 2008 à 14:02

Merci ^^

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
26 mars 2008 à 13:05

y'a pas grand chose a comprendre...

modifie

Public Sub CopieRepertoire(ByVal dirsource As String, ByVal dirdest As String)
'copie du répertoire source dans le répertoire destination de même nom
My.Computer.FileSystem.CopyDirectory(dirsource, dirdest, True)
'appel procédure traitement des fichiers
TraitementFichier(My.Computer.FileSystem.GetDirectoryInfo(dirsource))

End Sub

par

Public Sub CopieRepertoire(ByVal dirsource As String, ByVal dirdest As String)
'copie du répertoire source dans le répertoire destination de même nom
My.Computer.FileSystem.CopyDirectory(dirsource, dirdest, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
'appel procédure traitement des fichiers
TraitementFichier(My.Computer.FileSystem.GetDirectoryInfo(dirsource))

End Sub

cs_GorGor33 Messages postés 29 Date d'inscription lundi 3 mars 2008 Statut Membre Dernière intervention 26 mars 2008
26 mars 2008 à 12:30

Renfield au risque de paraître lourd je n'y comprend rien.Je ne suis pas programmeur, à la base j'ai une formation réseau.
DSL.Sinon tant pis

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
26 mars 2008 à 12:16

que dire de plus que la doc ?

My.Computer.FileSystem.CopyDirectory( ...source..., ...dest..., FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)

cs_GorGor33 Messages postés 29 Date d'inscription lundi 3 mars 2008 Statut Membre Dernière intervention 26 mars 2008
26 mars 2008 à 12:12

Euh je dois t'avouer que je ne sais pas comment manipuler le showUI.J'ai bien essayié mais que dalle.Et je dois mettre l'appli en ligne cette aprèm!Tu crois que tu pourrais me dire ou le mettre dans le code stp?

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
26 mars 2008 à 11:40

voir parametre showUI

http://msdn2.microsoft.com/en-us/library/2swy9y5e(VS.80).aspx

cs_GorGor33 Messages postés 29 Date d'inscription lundi 3 mars 2008 Statut Membre Dernière intervention 26 mars 2008
26 mars 2008 à 11:36

J'aimerais bien mettre une barre de progression pendant la procédure CopieRépertoire(), mais je ne sais pas vraiment où placer l'appel la procédure servant à faire avancer la barre.

Sub BarreProgression()
Dim i As Integer
With PB1
PB1.Maximum = 100
PB1.Minimum = 0
For i = 0 To 100
'Le traitement de la boucle
PB1.Value = i
Next i
End With
End Sub

Renfield, vole à mon secours!!

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
14 mars 2008 à 12:06

normallement rien, ce sont les users qui vont le lancé, donc ca ne changera rien

cs_GorGor33 Messages postés 29 Date d'inscription lundi 3 mars 2008 Statut Membre Dernière intervention 26 mars 2008
14 mars 2008 à 11:57

Dites moi je pensais que cela serait bien de mettre cette application disponible sur un serveur, mais pour cela il faut changer le code ou alors c'est simplement des paramètres à mettre en place sur le serveur?

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
13 mars 2008 à 17:11

voir Try...Catch...Finally
voir My.Settings

cs_GorGor33 Messages postés 29 Date d'inscription lundi 3 mars 2008 Statut Membre Dernière intervention 26 mars 2008
13 mars 2008 à 17:07

Je dois t'avouer que pour éviter les crash je ne vois pas du tout comment faire, et je ne vois pas non plus comment faire un fichier de configuration...ni trop ce que c'est d'ailleurs :S

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
13 mars 2008 à 17:05

Pour C:\ et autres chemins, je pensais plutot a un fichier de config

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
13 mars 2008 à 17:04

que si un des fichiers est occupés, par exemple, ou que le repertoire Save est occupé, etc => CRASH

cs_GorGor33 Messages postés 29 Date d'inscription lundi 3 mars 2008 Statut Membre Dernière intervention 26 mars 2008
13 mars 2008 à 17:00

oups dsl c'était pour les tests je m'étais crée des fichiers, je n'en avais pas dont la dernière écriture datait de 30 jours...
Pour C:\ une constante ça irait?
Par gestion d'exceptions tu entends quoi?

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
13 mars 2008 à 16:32

on devrait pouvoir spécifier des repertoires qui ne seraient pas supprimés quelque soient les dates des fichiers
une liste également des repertoires a vider systématiquement.

pouvoir configurer le nombre de jours limite

gaffe aux C:\ en dur dans le code

pas de gestion d'exceptions, dangereux, surtout avec des fichiers...

tu dis 30 jours dans le descriptif, dans le code on lit 7:
If TFfic.LastWriteTime.AddDays(7)

Discussions similaires

Système de sauvegarde en local

Comment réaliser une sauvegarde de base MS SQL via un raccourci sur le bureau

Sauvegarde automatique de ma base de données Oracle

restaurer une base à partir d'un fichier bak

sauvegarde et backup

Votre réponse

Discussions similaires