копировать папку с файлами

[Chuvak]

Как скопировать с одного места на другое папку с файлами?

[Resser]

Не знаю, может криво, но работает:

Код: Выделить всё

Private Sub Copy()
Dim z, z1
Shell "e:\program files\winrar\WinRAR  a  d:\res\r.rar d:\res\*.*"
z = "d:\res\r.rar"
z1 = "d:\res1\r.rar"
FileCopy z, z1
Shell "e:\program files\winrar\WinRAR  x  d:\res1\r.rar *.* d:\res1\" Kill "d:\res1\r.rar"
End Sub


По крайней мере выход из положения!

[RayShade]

Вы чего вообще?

На страом форуме поискать что ли не можете ? Это настолько старая тема, что можно уже ее в оффтопик смело заносить.

[GSerg]

Private Sub Copy()
Dim z, z1
Shell "e:\program files\winrar\WinRAR a d:\res\r.rar d:\res\*.*"
z = "d:\res\r.rar"
z1 = "d:\res1\r.rar"
FileCopy z, z1
Shell "e:\program files\winrar\WinRAR x d:\res1\r.rar *.* d:\res1\" Kill "d:\res1\r.rar"
End Sub

Wow...
А я-то думал, что RayShade в этом деле круче всех, ан нет...

Подключай Microsoft Scripting Runtime из раздела References, и юзай метод CopyFolder.

[serix]

2 GSerg. Сначала наверное надо написать
Dim NewFSO As New FileSystemObject
А то CopyFolder работать не будет...