Копирование файлов(папок)

[RED]

Мне очень надо скопировать папку в которой в свою очередь много других папок и файлов. А в VB нет такой функции. Да и копировать шаблонами типа *.* тоже нельзя. Я же не могу писать код на копирование каждого файла.(их там около 700).
Помогите, может как нибудь через API. ?!??!

С уважением Вячеслав

[alibek]

Про циклы слышал?
Поищи в форуме по строке Dir$ и приспособь к своим потребностям.

[RED]

Циклы говоришь.... Да но как, нельзя же задавать шаблон для копирования. Может я чего то не понимаю.

[Andrey Fedorov]

Помогите, может как нибудь через API. ?!??!

См. SHFileOperation - то что тебе нужно.

[Pite]

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

Set FSys as New CreateObject("Scripting.FileSystemObject")
или
dim FSys as New FileSystemObject

А там столько методов и свойств и папку скопирует вместе с папками и удалит вместе с файлами и всякие даты создания и пр. и тд и тп.


[Pite]

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

Set FSys as New CreateObject("Scripting.FileSystemObject")
или
dim FSys as New FileSystemObject

А там столько методов и свойств и папку скопирует вместе спапками и удалит вместе сфайлами и всякие даты создания и пр. и тд и тп.


[GM]

[off] У юзера Pite, уже как минимум два сообщения, а форум пишет что 0. [/off]

[AndreyIl]

Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "C:\Scripts" , "C:\FSO" , OverWriteFiles

[AjaxVS]

Та млин, че вы колесо изобретаете?
Можно же в цикле через Dirs$, написали же уже...