Discussion :

[fabibi001]

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

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

Merci d'avance

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
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

[fabibi001]

Re le forum,

Toujours personne pour éclairer ma lanterne svp ?

[SfJ5Rpw8]

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

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
 
Dim MonMessage
...
...
MonMessage = "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
...
..
MonMessage = MonMessage & vbcrlf & "Name : " & oFl.Name & vbCrlf & _
	 " " & vbCrlf & _
	 "DateLastModified : " & oFl.DateLastModified
 
....
..
 
msgbox MonMessage

[fabibi001]

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

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
 
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

[fabibi001]

Voilà, ça marche nickel !

Merci !!!

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

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
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

[vikingraver]

tu devrais cliquer sur resolu en bas.