25 lip 2008 Kopiowanie katalogów i podkatlogów Dim oFS Set oFS=CreateObject("Scripting.FileSystemObject") oFS.CopyFolder "d:\temp\*", "E:\tmp\" Set oFS=Nothing