While 1
$file = FileFindNextFile($search)
; Si plus de fichiers/dossiers on sort.
If @error Then ExitLoop
; Pour ne prendre en compte que les dossiers.
If StringInStr(FileGetAttrib ($file), "D") Then
Dircopy($Src & "\" & $file, $Dst & "\" & $file, 1)
EndIf
WEnd
Merci.
Modifié en dernier par DimVar le jeu. 03 juil. 2008 11:30, modifié 1 fois.
N'évoquons pas la pierre, les jeunes risqueraient d'en poire !
