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
|
Dim sFic As String
Dim pDicTmp As Dictionary
Dim lRep As Long
Dim lFic As Long
Dim source As String
Dim dest As String
source = App.Path & "\VTUPDATENV\"
dest = App.Path & "\VTUPDATE\"
lstscript.AddItem Now & "Mise à jour du dossier " & dest
fichierlog "Write", nomficlog, "Mise à jour du dossier " & dest
Set pDicTmp = New Dictionary
pDicTmp.Add source, 0
Do Until pDicTmp.Count = 0
sFic = Dir$(pDicTmp.Keys(0) & "*", 31)
Do Until sFic = ""
If Left$(sFic, 1) <> "." And Left$(sFic, 2) <> ".." Then
If (GetAttr(pDicTmp.Keys(0) & sFic) And vbDirectory) = vbDirectory Then
If PathFileExists(dest & Mid$(pDicTmp.Keys(0) & sFic, Len(source) + 1)) = 0 Then
MkDir dest & Mid$(pDicTmp.Keys(0) & sFic, Len(source) + 1)
lRep = lRep + 1
End If
pDicTmp.Add pDicTmp.Keys(0) & sFic & "\", 0
Else
If PathFileExists(dest & Mid$(pDicTmp.Keys(0) & sFic, Len(source) + 1)) = 0 Then
CopyFile pDicTmp.Keys(0) & sFic, dest & Mid$(pDicTmp.Keys(0) & sFic, Len(source) + 1), 0
lFic = lFic + 1
Else
CopyFile pDicTmp.Keys(0) & sFic, dest & Mid$(pDicTmp.Keys(0) & sFic, Len(source) + 1), 0
lFic = lFic + 1
End If
End If
End If
DoEvents
sFic = Dir$
Loop
pDicTmp.Remove pDicTmp.Keys(0)
Loop
Set pDicTmp = Nothing |
Partager