[VB.NET] vb.net : process et interval de temps

**1coni** · 02/06/2006, 10h59

bonjour à tous en magnifique vendredi (magnifique car précédent le week end)

voilà ce que je veux faire est un peut compliqué et pas très simple à expliquer.
Je voudrait exécuter un process une fois par jour (une fois seulement) mais avec des arguments différents en fonction du jour.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
 Private Sub save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click
 
        Dim pathSupport As String
        Dim pathSource As String
 
        pathSupport = "C:\sauvegarde Wanadoo\support.txt"
        pathSource = "C:\sauvegarde Wanadoo\sources.txt"
 
        Dim jour As Day
 
        Dim saveType As String
        Dim saveName As String
 
        If saveName = "Totale1.bkf" Or "Totale2.bkf" Then
            saveType = "normale"
        End If
 
        If Not saveName = "Totale1.bkf" Or "Totale2.bkf" Then
            saveType = "incrémentielle"
        End If
 
        Dim support As String
        Dim sources As String = ""
 
        support = File.ReadAllText(pathSupport) & "\" & saveName
        sources = File.ReadAllText(pathSource) 
 
        Dim backup As New System.Diagnostics.Process
        ' Nom de l'executable à lancer
        backup.StartInfo.FileName = "ntbackup.exe"
        ' Arguments à passer à l'exécutable à lancer
        backup.StartInfo.Arguments = "backup " & sources & " /f " & support & " /m " & saveType
        ' Démarrage du processus
        backup.Start()
 
    End Sub

- le premier jour de l'utilisation de mon appli les arguments passés au process devront être:
saveName -> "Totale1.bkf"
saveType -> "normale"

-les cinq jours suivant lorsque l'utilisateur l'ance l'appli les arguments passés au process devront être :
saveName -> "inc1a.bkf"
"inc1b.bkf"
.............. (en fonction du jour)
"inc1e.bkf"
saveType -> "incrémentielle"

- le septiéme jour, lorsque l'utilisateur l'ance l'appli les arguments passés au process devront être:
saveName -> "Totale2.bkf"
saveType -> "normale"

-les cinq jours suivant lorsque l'utilisateur l'ance l'appli les arguments passés au process devront être :
saveName -> "inc2a.bkf"
"inc2b.bkf"
.............. (en fonction du jour)
"inc2e.bkf"
saveType -> "incrémentielle"

et les jours suivant on écrase les sauvegardes existantes:
la troisième semaine ont remplace le jeux de sauvegarde de la première semaine.
Ainsi les sauvegardes des deux dernière semaines seront toujours dsponibles..

en faite le problème c'est que je sait pas du temps comment gérer les dates.
Ce qu'il me faudrait c'est le bloc d'instruction permettant de changer la valeur de la variable "saveName" en fonction du jour de la première exécution de mon appli.

j'espère que je n'est été trop confus...
merci de votre aide.
à+

**1coni** · 02/06/2006, 12h17

alors c compèt ce que je veut fairre et je vous rappel que sa fait seulement un mois que g commencé le vb et on me demande déjà de faire des bordèles pareil.... quel galère....

donc voila tout aide m'est plus que nécessaire....
merci à+

**1coni** · 02/06/2006, 15h38

alors apparement sa n'intéresse personne je vais essayé de m'en sortir (mais bon sans aide c pas garantit....)

**arthenius** · 02/06/2006, 15h48

je dirais bien install un programme de backup

plus serieusement je connais pas trop VB mais j'ai tenter de faire un truc equivalent en C# et j'ai laisser tomber....

**1coni** · 02/06/2006, 16h08

t'es gentil mais moi j'suis en stage et et c le projet sur lequel je travail
(en plus il m'semble que ma soutenance n'est que dans 15 jours...)
donc une seule chose à dire c que j'crois que j'suis dans le caca....

**arthenius** · 02/06/2006, 16h17

erf navré de pas pouvoir t'aider ...

**1coni** · 02/06/2006, 16h22

tanpis
mais en attendant je me demande bien ou sont les boss du Vb, les mecs qui assurent.... et qui sont assez sympatique pour perdre un peut de leur temps afin d'expliquer quelques truc à des débutants comme moi!!!

**arthenius** · 02/06/2006, 16h22

et si tu sauvais la date de ta premiere execution dans un fichier
et que tu compare ta date du jour avec la date du fichier ???

ainsi tu pourra te positionner dans tes sauvegardes ???

si j'ai bien compris ton pb...

apres avec des dateadd ou autre tu pourra comparer a la date du jour...

**1coni** · 02/06/2006, 16h44

ouhais je vais essayer de faire ça entrer la première date dans un bloc-notes.
que je récupère à chaque exécution de l'appli....
mouhais mais après sa va pas gérer les moi de 30 jours ou 28 etc....
j'sais pas trop....

ou peut-être un truc capable de lire le dossier "wanadoo sauvegarde" (arguments support) ; explorer l'ensemble des fichiers; et en fontion des fichiers déjà existant il modifie l'arguments "saveName".....

pfffffff....

d'autres propositions...

**Angath** · 02/06/2006, 16h57

Pourquoi ne pas lancer ton exe avec le planificateur de taches de Windows ?

En sauvegardant les infos de ta dernière sauvegarde dans un petit fichier texte (pour faire simple) et en analysant la date en cours tu devrais pouvoir déterminer les paramètres à passer.

**1coni** · 05/06/2006, 11h10

en fait g surement trouvé une solution je vais faire un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
 
 
Private Sub save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click
 
        Dim pathSupport As String
        Dim pathSource As String
        Dim pathSave As String
 
        Dim saveType As String
        Dim saveName As String
        Dim lastSave As String
 
        pathSupport = "C:\sauvegarde Wanadoo\support.txt"
        pathSource = "C:\sauvegarde Wanadoo\sources.txt"
        pathSave = "C:\sauvegarde Wanadoo\lastSave.txt"
 
        If Not File.Exists(pathSave) Then
            saveName = "Totale1.bkf"
            File.Create(pathSave)
            File.WriteAllText(pathSave, saveName)
        End If
 
        If File.Exists(pathSave) Then
 
            lastSave = File.ReadAllText(pathSave)
 
            If lastSave = "Totale1.bkf" Then
                saveName = "inc1a.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc1a.bkf" Then
                saveName = "inc1b.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc1b.bkf" Then
                saveName = "inc1c.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc1c.bkf" Then
                saveName = "inc1d.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc1d.bkf" Then
                saveName = "inc1e.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc1e.bkf" Then
                saveName = "inc1f.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc1f.bkf" Then
                saveName = "Totale2.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
 
            If lastSave = "Totale2.bkf" Then
                saveName = "inc2a.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc2a.bkf" Then
                saveName = "inc2b.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc2b.bkf" Then
                saveName = "inc2c.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc2c.bkf" Then
                saveName = "inc2d.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc2d.bkf" Then
                saveName = "inc2e.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc2e.bkf" Then
                saveName = "inc2f.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
            If lastSave = "inc2f.bkf" Then
                saveName = "Total1.bkf"
                File.Delete(pathSave)
                File.Create(pathSave)
                File.WriteAllText(pathSave, saveName)
            End If
 
        End If
 
        If saveName = "Totale1.bkf" Or "Totale2.bkf" Then
            saveType = "normale"
        End If
 
        If Not saveName = "Totale1.bkf" Or "Totale2.bkf" Then
            saveType = "incrémentielle"
        End If
 
        Dim support As String
        Dim sources As String = ""
 
        support = File.ReadAllText(pathSupport) & "\" & saveName
        sources = File.ReadAllText(pathSource)
 
        Dim backup As New System.Diagnostics.Process
        ' Nom de l'executable à lancer
        backup.StartInfo.FileName = "ntbackup.exe"
        ' Arguments à passer à l'exécutable à lancer
        backup.StartInfo.Arguments = "backup " & sources & " /f " & support & " /m " & saveType
        ' Démarrage du processus
        backup.Start()
 
    End Sub

c peut-être pas super jolie mais bon sa marche.Quelque petit bug quand même si quelqu'un voit ce qui qui pose problème:

-l'exception IoException n'a pas été gérée:
(au début =>If Not File.Exists(pathSave) Then)
Le processus ne peut pas accéder au fichier 'C:\sauvegarde Wanadoo\lastSave.txt', car il est en cours d'utilisation par un autre processus.

-l'exception InvalidCastExceptionn'a pas été gérée:
(au niveau => If saveName = "Totale1.bkf" Or "Totale2.bkf" Then)
La conversion de la chaîne "Totale2.bkf" en type 'Boolean' n'est pas valide.

voilà si quelqu'un sait pourquoi sa plante à se niveau là son aide me serait bien utile...
merci d'avance.

[VB.NET] vb.net : process et interval de temps

Windows Forms

Discussions similaires

Partager

Partager