Тема вроде бы старая, но....

[CyberYen]

Не подскажете, как скопировать, или переместить папку с файлами?
Желательно код.
Наверно это где-то есть в форумах, но я не нашел .
Заранее спасибо!

[Draco]

Если хочешь обойтись средствами VB, то создаешь новую попку командой MkDir(Path As String), затем в цикле копируешь все файлы, имена которых получены функцией Dir([PathName], [Attributes As VbFileAttribute = vbNormal]), командой FileCopy(Source As String, Destination As String). При необдимости удаляешь все лишнее командами Kill(PathName) и RmDir(Path As String).

[CyberYen]

Ну это ясно. А если в папке доф..г подкаталогов? Что тогда ? А именно тут-то у меня и проблема.

[A.A.Z.]

создаешь новую попку

Хороший способ!

Project->References->Microsoft Scripting Runtime (галочка)

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

Dim FSO As New Scripting.FileSystemObject
FSO.CopyFolder <Откуда>, <Куда>, [<перезапись существующих файлов>]

[CyberYen]

Thank!