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
|
REM Option Explicit
Dim fso, fichier, fileItem
Dim i, imax, z, valeur, cible, liste
Set fso = CreateObject("Scripting.FileSystemObject")
imax = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set oss = objWMIService.ExecQuery ("Select Version from Win32_OperatingSystem")
For Each os in oss
version = Left(os.Version, 3)
Next
REM Wscript.Echo version
if version = "5.1" then
Reponse_OS = fso.FolderExists("C:\Documents and Settings\All Users\Bureau")
if Reponse_OS = True Then
Docs_Users = "C:\Documents and Settings\All Users\Bureau"
else
Docs_Users = "C:\Documents and Settings\All Users\Desktop"
end if
elseif version = "6.1" then
Reponse_OS = fso.FolderExists("C:\Users\Public\Desktop")
if Reponse_OS = True Then
Docs_Users = "C:\Users\Public\Desktop"
else
Docs_Users = "C:\Users\Public\Bureau"
end if
else
Docs_Users = "C:"
End if
REM Wscript.Echo version
REM Wscript.Echo Docs_Users
Const PathMDB = "\\10.11.7.24\IDS"
'MsgBox TriRepertoire,,"Enumération " & PathMDB
'---lister les fichiers du répertoire ---
'Function TriRepertoire()
REM Dim fso, fichier, fileItem
REM Dim i, imax, z, valeur, cible, liste
REM Set fso = CreateObject("Scripting.FileSystemObject")
REM imax = 0
'début de l'énumération
For Each fichier In fso.GetFolder(PathMDB).Files
Set fileItem = fso.GetFile(fichier)
imax = imax + 1
ReDim Preserve Tableau(2, imax)
Tableau(1, imax) = Fichier.Name
Tableau(2, imax) = FileItem.DateLastModified
'---trier les fichiers par ordre décroissant de création ---
Do
Valeur = 0
For i = 1 To imax - 1
If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then
For z = 1 To 2
Cible = Tableau(z, i)
Tableau(z, i) = Tableau(z, i + 1)
Tableau(z, i + 1) = Cible
Next
Valeur = 1
End If
Next
Loop While Valeur = 1
Set fileItem = nothing
Next
'Affichage du résultat classé
'Afficher le dernier fichier recent
REM msgbox(Tableau(1, 1))
If fso.FileExists(Docs_Users &"\"& Tableau(1, 1) ) Then
REM Wscript.Echo "Le fichier existe."
Else
REM Wscript.Echo "Le fichier n'existe pas." & PathMDB & "\" & Tableau(1, 1) &", "& Docs_Users &"\"
fso.CopyFile PathMDB & "\" & Tableau(1, 1) , Docs_Users &"\"
Wscript.Echo "La Mise a jour IDS a été copier sur le PC." & PathMDB & "\" & Tableau(1, 1) &", "& Docs_Users &"\"
End If
'///////////
REM For i = 1 To imax
REM liste = liste &vbTab& i &vbTab& Tableau(1, i) &Space(2)&vbTab&vbTab& Tableau(2, i) &vbCr
REM 'MsgBox liste,,i & " / " & imax &Space(3)& "Liste du répertoire"&Space(3)& PathMDB
REM If i = imax Then MsgBox liste ,,"Liste du répertoire" &Space(3)& PathMDB
REM Next
REM TriRepertoire = liste
Set fso = nothing
REM End Function |
