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