Vérification des caractéristiques de plusieurs fichiers

Version imprimable

[Résolu] Vérification des caractéristiques de plusieurs fichiers

Bonjour le forum,

J'ai un léger soucis.

J'ai récupérer et modifié un script que je pense d'ailleurs avoir pris ici pour pouvoir vérifier les caractéristiques d'un fichier.

Maintenant, je souhaite vérifier la même chose pour plusieurs fichiers.

Mais ... même si ça marche, je souhaiterais que les informations apparaissent dans une seule fenêtre (MessageBox) et pas dans une succession de fênetres ...

Voilà, ça doit être tout simple mais je coince :oops:

Alors si qqn sait comment m'aider, ça m'aiderait :mouarf:

Merci d'avance :ccool:

Code:

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
Dim Document
Dim Temp
Temp=0
'Document=ABDAVOMU
'InputBox("Entrez le nom du document (nom+extension) ")
 
Dim stFichier 'Nom du Fichier a tester 
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stFichier = "\\SPBEAPP\ABDAV"
stFichier2 = "\\SPBEAPP\\ABDENC"
stFichier3 = "\\SPBEAPP\\\ABDU"
stFichier4 = "\\SPBEAPP\\\DASNS"
stFichier5 = "\\SPBEAPP\\DASI"
 
If oFSO.FileExists(stFichier) Then
 
Set oFl = oFSO.GetFile(stFichier)
  MsgBox " " & vbCrlf & _
	 "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
 
Set oFl = oFSO.GetFile(stFichier2)
  MsgBox " " & vbCrlf & _
	 "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
 
 
Set oFl = oFSO.GetFile(stFichier3)
  MsgBox " " & vbCrlf & _
	 "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
 
 
Set oFl = oFSO.GetFile(stFichier4)
  MsgBox " " & vbCrlf & _
	 "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
 
Set oFl = oFSO.GetFile(stFichier5)
  MsgBox " " & vbCrlf & _
	 "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
 
ELSE
 
Msgbox "Pas de fichier gevonden"
End if

05/07/2010, 08h24
fabibi001

Re le forum,

Toujours personne pour éclairer ma lanterne svp ?

:oops:

tu utilise un variable temporaire pour stoker la succession de message et tu fini par afficher son contenu...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim MonMessage
...
...
MonMessage = "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
...
..
MonMessage = MonMessage & vbcrlf & "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
 
....
..
 
msgbox MonMessage

Citation:
Envoyé par bbil
tu utilise un variable temporaire pour stoker la succession de message et tu fini par afficher son contenu...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim MonMessage ... ... MonMessage = "Name : " & oFl.Name & vbCrlf & _ " " & vbCrlf & _ "DateLastModified : " & oFl.DateLastModified ... .. MonMessage = MonMessage & vbcrlf & "Name : " & oFl.Name & vbCrlf & _ " " & vbCrlf & _ "DateLastModified : " & oFl.DateLastModified .... .. msgbox MonMessage
Héhé, pas bête !

J'essaie de suite !

Merci

Voilà, ça marche nickel !

Merci !!!

Pour ceux que ça pourrait intéresser, voici le code complet :

Code:

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
Dim Document
Dim Temp
Dim MonMessage 
Dim MonMess2 
Dim MonMess3
Dim MonMess4
Dim MonMess5
Dim MonMess6
Dim MonMess7
 
Temp=0
 
Dim stFichier 'Nom du Fichier a tester 
Dim oFSO,oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stFichier  = "\\Main\LNDM"
stFichier2 = "\\Main\SV"
stFichier3 = "\\Main\HF"
stFichier4 = "\\Main\IN"
stFichier5 = "\\Main\SO"
stFichier6 = "\\Main\LP"
stFichier7 = "\\Main\HB"
 
If oFSO.FileExists(stFichier) Then
 
Set oFl = oFSO.GetFile(stFichier)
 
'  MsgBox " " & vbCrlf & _
MonMessage = "Name : " & oFl.Name & vbCrlf & _
	     " " & vbCrlf & _
	     "DateLastModified : " & oFl.DateLastModified & vbCrlf & _
	     " " & vbCrlf
 
Set oFl = oFSO.GetFile(stFichier2)
'  MsgBox " " & vbCrlf & _
MonMess2 = MonMessage & vbCrlf & "Name : " & oFl.Name & vbCrlf & _
	   " " & vbCrlf & _
	   "DateLastModified : " & oFl.DateLastModified & vbCrlf & _
	     " " & vbCrlf
 
Set oFl = oFSO.GetFile(stFichier3)
'  MsgBox " " & vbCrlf & _
MonMess3 = MonMess2 & vbCrlf & "Name : " & oFl.Name & vbCrlf & _
	   " " & vbCrlf & _
	   "DateLastModified : " & oFl.DateLastModified & vbCrlf & _
	   " " & vbCrlf
 
Set oFl = oFSO.GetFile(stFichier4)
'  MsgBox " " & vbCrlf & _'
MonMess4 = MonMess3 & vbCrlf &  "Name : " & oFl.Name & vbCrlf & _
 	   " " & vbCrlf & _
	   "DateLastModified : " & oFl.DateLastModified & vbCrlf & _
	   " " & vbCrlf
 
Set oFl = oFSO.GetFile(stFichier5)
'  MsgBox " " & vbCrlf & _
MonMess5 = MonMess4 & vbCrlf &  "Name : " & oFl.Name & vbCrlf & _
	   " " & vbCrlf & _
	   "DateLastModified : " & oFl.DateLastModified & vbCrlf & _
	   " " & vbCrlf
 
Set oFl = oFSO.GetFile(stFichier6)
'  MsgBox " " & vbCrlf & _
MonMess6 = MonMess5 & vbCrlf & "Name : " & oFl.Name & vbCrlf & _
	   " " & vbCrlf & _
	   "DateLastModified : " & oFl.DateLastModified & vbCrlf & _
	   " " & vbCrlf
 
Set oFl = oFSO.GetFile(stFichier7)
'  MsgBox " " & vbCrlf & _
MonMess7 = MonMess6 & vbCrlf & "Name : " & oFl.Name & vbCrlf & _
	   " " & vbCrlf & _
	   "DateLastModified : " & oFl.DateLastModified & vbCrlf & _
	   " " & vbCrlf
 
MsgBox MonMess7
ELSE
 
Msgbox "Pas de fichier gevonden"
End if

05/07/2010, 15h41
vikingraver

tu devrais cliquer sur resolu en bas.