Discussion :

[davidtolkien]

Bonjour à tous

Pour une rapide présentation, j'utilise VB6 dans mon nouvel emploi(depuis le 04/08/2008). Mon niveau est débutant voir bébé developpeur.

Je fais face à la problèmatique suivante :

4 fichiers de types excel, sont mis à jour par les marketeurs de ma boite, un fichier ZIP est généré dans un repertoire.
Le logiciel qui permet le transfert type FTP vers le serveur distant, ne trouve pas les fichiers ZIP généré.
Il s'avère que ses derniers ne sont pas générés dans le bon repertoire.

Le but du developpement de ce petit bout de code est de scanner les fichiers zip qui sont générés dans le mauvais répertoire, dès que la date de modification du fichier change, le code copie colle le fichier zippé dans le bon repertoire.

J'ai lu les divers bout de code présent sur le fofo, la FAQ VB, j'ai donc lu la page suivante :

http://vb.developpez.com/faq/?page=F...#dates_fichier

Qui regroupe des extraits de code, il semble que ce qui m'interesse ici serait soit "ftLastWriteTime" qui sera le facteur de contrôle entre les deux repertoires.

Mais voila je n'arrive pas à utiliser cette commande, quelqu'un peut il m'expliquer ou m'aider a utiliser cette élément si c'est le bon car j'ai trouvé aussi quelques infos sur "FTIME" qui semble lui aussi permettre de prendre en compte la date de dernière modification.

Voila j'espère que l'explication de mon problème est assez claire et merci d'avance.

[ProgElecT]

Bienvenue sur DVP davidtolkien

4 fichiers de types excel, sont mis à jour par les marketeurs de ma boite, un fichier ZIP est généré dans un repertoire.
....................
Il s'avère que ses derniers ne sont pas générés dans le bon repertoire.

Si cela est possible (tu es le programmeur qui permet de générer le fichier.zip ?), le plus simple serait de maitriser la génération du fichier et son placement dans le bon repertoire, les problémes que tu rencontres seront donc résoluts.

[davidtolkien]

Oui effectivement j'y ai pensé, le truc c'est que je viens d'arriver sur ce poste et je n'ai aucune trace de ce qui a été fait, les procédures c'est simple il n'y en as pas... J'ai donc scruté l'existant du moins ceux que j'ai trouvé, il peux s'agir d'un autre service, il peux n'y avoir jamais rien eut de fais pour ses fichiers, mais pendant ce temps là le problème perdure sur ses 4 fichiers.

Comme il y a souvent des mises a jours, j'avais pensé faire un ti bout de code pour ses 4 fichiers. Ainsi plus de soucis et cela me laisse le temps de trouver ce qui génère ses zip

[ProgElecT]

qui sont générés dans le mauvais répertoire

Toujours le même mauvais répertoire ?
et/ou le même nom de fichier?

dès que la date de modification

, donc il te faut un prog qui scanne le/les mauvais dossiers, ce qui nécessite de mémorisé le dernier ZIP trensférer et de comparer avec le fichier en cour, bien sûr cela est possible, les reponses à mes questions devraient permettre (à moi ou d'autre) de te guider utilement.

[davidtolkien]

Voici en gros les détails :

Chaque fichier zip est généré dans un répertoire différent, donc le mauvais répertoire ou est envoyé le zip change pour chaque fichier.

Le nom des fichiers là aussi est différent pour chaque fichier on a donc :

Simulateur 1. zip copié dans le répertoire "W" au lieu du répertoire "A"
Simulateur 2. zip copié dans le répertoire "X" au lieu du répertoire "B"
Simulateur 3. zip copié dans le répertoire "Y" au lieu du répertoire "C"
Simulateur 4. zip copié dans le répertoire "Z" au lieu du répertoire "D"


Quand les commerciaux modifient le fichier la moulinette en cours génère des fichiers dans les mauvais répertoire, donc en attendant d'identifier cette moulinette, je voudrais faire un programme qui scan le répertoire ou est généré le fichier, et qui compare la dernière date de modification avec le fichier se trouvant dans le bon répertoire, ainsi dès qu'une modification sera faites la date de modification étant différente, le programme modifie le nom de l'ancienne version en ajoutant "old" au nom du zip et copie la dernière version du fichier à la bonne place.

Le renommage de l'ancienne version du fichier en ajoutant "old" à son nom est fait pour pouvoir revenir en arrière en cas de soucis avec le nouveau fichier.

[ProgElecT]

Sur un Form, 1 Label, 3 TextBox (TextChemComplet, TextInf et TextInfos), 1 DriveListBox, 1 DirListBox, 1 FileListBox, 4 CommandButton indexé 0 à 7.
Les controls sont configurés dans Form_Load.
Faire réference à Microsoft Scripting Runtime (scrrun.dll)
et ce code

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
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
Option Explicit
Dim fs As Object
Dim f, f1, sf
Dim Msg$
Dim T As Integer
Dim UniteR As String, DossieR As String, FichiieR As String
Dim CheminEtFichieR As String
Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err Then 'unité non valide(pas de CD ou de Disquette ou ....)
 Err.Clear: Drive1.Drive = UniteR
 TextChemComplet = CheminEtFichieR
 Exit Sub
End If
UniteR = Drive1.Drive
End Sub
Private Sub Dir1_Change()
If Right(Dir1.Path, 1) <> "\" Then
 DossieR = Dir1.Path & "\"
 Else
 DossieR = Dir1.Path
End If
If Dir1.ListIndex = -1 Then
 CheminEtFichieR = DossieR
 TextChemComplet = CheminEtFichieR
End If
 
File1.Path = DossieR
If File1.ListCount >= 1 Then
 File1.ListIndex = 0
 Else
 FichiieR = ""
 CheminEtFichieR = DossieR
 TextChemComplet = CheminEtFichieR
End If
End Sub
Private Sub File1_Click()
If File1.ListCount >= 1 Then
 FichiieR = File1.List(File1.ListIndex)
 CheminEtFichieR = DossieR & FichiieR
 Else
 FichiieR = ""
 CheminEtFichieR = DossieR
End If
TextChemComplet = CheminEtFichieR
End Sub
Private Sub TextChemComplet_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
 
Private Sub Form_Load()
'Placement des controls
Label1.Move 60, 60, 2265, 195: Label1.Caption = "ACTIF :  Unité   Dossier   Fichier"
TextChemComplet.Move 60, 330, 7065, 285: TextChemComplet.Text = ""
Drive1.Move 30, 690, 1755
Dir1.Move 30, 1050, 3495
File1.Move 30, 2310, 3495, 2430
TextInf.Move 60, 4770, 3435, 2055: TextInf.Text = ""
TextInfos.Move 3630, 2820, 3495, 1905: TextInfos.Text = ""
TextInfos.ScrollBars = 2
 
Command1(0).Move 3660, 1050, 1725, 405: Command1(0).Caption = "DateCreat Fichier"
Command1(1).Move 3660, 1500, 1725, 405: Command1(0).Caption = "Nom Court"
Command1(2).Move 3660, 1950, 1725, 405: Command1(0).Caption = "Liste Dos/fich"
Command1(5).Move 3660, 2400, 1725, 405: Command1(0).Caption = "Taille fichier"
 
Command1(3).Move 5430, 1050, 1725, 405: Command1(0).Caption = "Infos Acces Fichier"
Command1(4).Move 5430, 1500, 1725, 405: Command1(0).Caption = "Taille Dossier"
Command1(6).Move 5430, 1950, 1725, 405: Command1(0).Caption = "Attribut fichier"
Command1(7).Move 5430, 2400, 1725, 405: Command1(0).Caption = "Attribut dossier"
 
UniteR = Drive1.Drive
File1.Hidden = True
If Right(Dir1.Path, 1) <> "\" Then
 DossieR = Dir1.Path & "\"
 Else
 DossieR = Dir1.Path
End If
If File1.ListCount >= 1 Then
 File1.ListIndex = 0
 Else
 FichiieR = ""
End If
 
Set fs = CreateObject("Scripting.FileSystemObject")
End Sub
 
Private Sub Command1_Click(Index As Integer)
Select Case Index
 Case 0: AfficherInfoFichier CheminEtFichieR
 Case 1: AfficheNomCourt DossieR, "dossier"
 Case 2: AfficheListeDossier DossieR
 Case 3: AfficheInfoAccesFichier CheminEtFichieR
 Case 4: AfficheTailleDossier DossieR, "dossier"
 Case 5: AfficheTailleDossier CheminEtFichieR, "fichier"
 Case 6: AfficheAttribut CheminEtFichieR, "fichier"
        TextInf = FichiieR & vbCrLf & "Infos attribut " & GetAttr(CheminEtFichieR) & vbCrLf _
        & DefiniAttrib(GetAttr(CheminEtFichieR))
 
 Case 7: AfficheAttribut DossieR, "dossier"
        TextInf = DossieR & vbCrLf & "Infos attribut " & GetAttr(DossieR) & vbCrLf _
        & DefiniAttrib(GetAttr(DossieR))
 
End Select
End Sub
 
Sub AfficheInfoAccesFichier(specfichier)
If FichiieR = "" Then Beep: TextInfos.Text = "pas de fichier actif": Exit Sub
Set f = fs.GetFile(specfichier)
Msg$ = f.Name & " on Drive " & UCase(f.Drive) & vbCrLf
Msg$ = Msg$ & UCase(f.Name) & " est dans " & UCase(f.ParentFolder) & vbCrLf
Msg$ = Msg$ & "Créé le : " & f.DateCreated & vbCrLf
Msg$ = Msg$ & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
Msg$ = Msg$ & "Dernière modification le : " & f.DateLastModified
TextInfos.Text = "Infos d'accès au fichier" & vbCrLf & Msg$
End Sub
Sub AfficherInfoFichier(specfichier)
If FichiieR = "" Then Beep: TextInfos.Text = "pas de fichier actif": Exit Sub
Set f = fs.GetFile(specfichier)
Msg$ = f.DateCreated
TextInfos.Text = "Date création " & vbCrLf & Msg$
End Sub
Sub AfficheNomCourt(specfichier As String, DossierOuFichier As String)
If LCase(DossierOuFichier) = "dossier" Then
 Set f = fs.GetFolder(specfichier)
 Else
 Set f = fs.GetFile(specfichier)
End If
Msg$ = "Le nom abrégé de " & "" & UCase(f.Name) & vbCrLf
Msg$ = Msg$ & "est : " & "" & f.ShortName & ""
TextInfos.Text = "Infos de nom abrégé" & vbCrLf & Msg$
End Sub
Sub AfficheListeDossier(specdossier)
Set f = fs.GetFolder(specdossier)
Set sf = f.SubFolders
Msg$ = "": T = 0
For Each f1 In sf
 Msg$ = Msg$ & f1.Name & vbCrLf
 T = T + 1
Next
TextInfos.Text = T & " Dossier(s) contenu(s) dans " & specdossier & vbCrLf & Msg$
TextInfos.Text = TextInfos.Text & String$(25, "-")
Set sf = f.Files
Msg$ = "": T = 0
For Each f1 In sf
 Msg$ = Msg$ & f1.Name & vbCrLf
 T = T + 1
Next
TextInfos.Text = TextInfos.Text & vbCrLf & T & " Fichier(s) contenu(s) dans " & specdossier & vbCrLf & Msg$
End Sub
Sub AfficheTailleDossier(specfichier, DossierOuFichier As String)
If LCase(DossierOuFichier) = "dossier" Then
 Set f = fs.GetFolder(specfichier)
 Else
 If FichiieR = "" Then Beep: TextInfos.Text = "pas de fichier actif": Exit Sub
 Set f = fs.GetFile(specfichier)
End If
Msg$ = UCase(f.Name) & " uses " & f.Size & " bytes."
TextInfos.Text = "Infos de taille du dossier" & vbCrLf & Msg$
End Sub
Sub AfficheAttribut(specfichier, DossierOuFichier As String)
If LCase(DossierOuFichier) = "dossier" Then
 Set f = fs.GetFolder(specfichier)
 Else
 If FichiieR = "" Then Beep: TextInfos.Text = "pas de fichier actif": Exit Sub
 Set f = fs.GetFile(specfichier)
End If
Msg$ = UCase(f.Name) & " attribut: " & f.Attributes & vbCrLf
Msg$ = Msg$ & DefiniAttrib(f.Attributes)
TextInfos.Text = "Infos attribut" & vbCrLf & Msg$
End Sub
Private Function DefiniAttrib(Att As Integer) As String
DefiniAttrib = ""
'If Att >= 2048 Then DefiniAttrib = " Compressé": Att = Att - 2048
'If Att >= 1024 Then DefiniAttrib = DefiniAttrib & " Alias": Att = Att - 1024
If Att >= 128 Then DefiniAttrib = " Compressé": Att = Att - 128
If Att >= 64 Then DefiniAttrib = DefiniAttrib & " Lien ou raccourci": Att = Att - 64
If Att >= 32 Then DefiniAttrib = DefiniAttrib & " Archive": Att = Att - 32
If Att >= 16 Then DefiniAttrib = DefiniAttrib & " Dossier": Att = Att - 16
If Att >= 8 Then DefiniAttrib = DefiniAttrib & " Volume": Att = Att - 8
If Att >= 4 Then DefiniAttrib = DefiniAttrib & " System": Att = Att - 4
If Att >= 2 Then DefiniAttrib = DefiniAttrib & " Caché": Att = Att - 2
If Att = 1 Then DefiniAttrib = DefiniAttrib & " Lecture seulement"
If Att = 0 Then DefiniAttrib = DefiniAttrib & " Normal"
End Function

Le bouton "Infos Acces Fichier" declanche la sub AfficheInfoAccesFichier, là tu verras les commandes pour lire les infos dates.
Je pense que cela te permetrat d'avencer.
Dans l'editeur VB, fait un F2, selectionne la librairie "Scripting", interesses toi (entre autre) à la Class File pour plus d'infos.
Fais un bout de code, si tu as des difficultés, reviens nous les soumetrent ici, il y aura bien quelqu'un pour te donner un coup de mains.

[davidtolkien]

Bon je dois avouer que je n'ai pas tous saisie dans le bout de code que tu me donne par contre avec une amie, nous avons réalisés un bout de code.

La date de modification est bien prise en compte, mais cela ne fonctionne que si les fichiers sont déjà éxistant dans l'arborescence Windows vu que je les compare l'un à l'autre dans le code si l'un manque le code ne fonctionne plus et se retrouve donc avec une fenêtre de type "fin/débogage".

Pour le moment je me suis basé sur une form avec un seul bouton me permettant de vérifier l'information souhaitée lors de mes tests.
Mais je parle je parle voici le code développé :

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
Private Sub Command1_Click()
 
    'Mettre les fichiers pour test dans E:\VB TUTO\(simulant le mauvais repertoire ou est généré le zip)
    'Mettre une version antérieur du fichier dans E:\VB TUTO\Nouveau dossier (le bon repertoire)
 
    Dim Date_Derniere_Modif_Fich1 As Date
    Dim Date_Derniere_Modif_Fich2 As Date
 
 
    Date_Derniere_Modif_Fich1 = FileDateTime("E:\VB TUTO\Base VBA exceltest.zip")
    Date_Derniere_Modif_Fich2 = FileDateTime("E:\VB TUTO\Nouveau dossier\Base VBA exceltest.zip")
 
    MsgBox Date_Derniere_Modif_Fich1 & "-------" & Date_Derniere_Modif_Fich2
 
    If Date_Derniere_Modif_Fich1 > Date_Derniere_Modif_Fich2 Then
 
        'Remplacement du fichier
 
        FileCopy "E:\VB TUTO\Base VBA exceltest.zip", "E:\VB TUTO\Nouveau dossier\Base VBA exceltest.zip"
    End If
End Sub
 
 
'Attention ce bout de code ne fonctionne pas si le fichier n'existe pas dans l'un ou l'autre des repertoires
'on aura alors un plantage du code avec option fin/débogage

Pour avoir le code final, je vais enlever la partie :

"Private Sub Command1_Click()"
"MsgBox Date_Derniere_Modif_Fich1 & "-------" & Date_Derniere_Modif_Fich2"


Ha si mes notions vb n'étaient pas seulement celle du net avec les tutos exercices et autres, je pense que cela représenterais une broutille.

Pour VBA j'ai pris "VBA pour excel pour les nuls" j'espère que ce sera une bonne initiation VBA.
Pour VB je ne sais trop quoi prendre vu mon niveau disons très légé, je me perd dans les détails et sans l'aide de mon amie ou de vous je serais encore en train de chercher^^

Des conseils pour optimiser le code? ou bien pour mes prochaines lectures?

[davidtolkien]

Et bien moi qui pensais que j'étais sur la fin je me rend compte que c'est moins évident que cela ^^ mais j'y arriverais

Voici donc ou j'en suis à 16H56, et cela fonctionne sur mon fichier test

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
 
    Dim Date_Derniere_Modif_Fich1 As Date
    Dim Date_Derniere_Modif_Fich2 As Date
 
    Date_Derniere_Modif_Fich1 = FileDateTime("E:\VB TUTO\Nouveau Document Microsoft Word.doc")
    Date_Derniere_Modif_Fich2 = FileDateTime("E:\VB TUTO\Nouveau dossier\Nouveau Document Microsoft Word.doc")
 
    If Date_Derniere_Modif_Fich1 > Date_Derniere_Modif_Fich2 Then
        FileCopy "E:\VB TUTO\Nouveau Document Microsoft Word.doc", "E:\VB TUTO\Nouveau dossier\Nouveau Document Microsoft Word.doc"
    End If
 
    End
End Sub

Je vais donc agrandir ce code pour mes 4 fichiers afin qu'ils soient tous prient en compte, j'ai généré un fichier de type "Project.EXE" qui sera intégré dans les tâches planifiés.

Pour information on voit la form se charger et partir très très rapidement lors de l'execution.

Un gros merci à tous.

PS : j'ai édité ma premiere réponse car je parlais de générer un VBS à partir de VB ce qui, d'après mes toutes petites notions, n'est possible que sous VBscript désolé de la confusion