Для знающих большое количество команд

[mefestofele]

Команды FileCopy мне недостаточно
Необходимо производить копирование целых папок
И при этом желательно получать данные об этом (например, скопировано 83% или 372Mb)
Прошу не давать ссылки зайди на сайт … прочитай RFC …

Заранее спасибо

[ALX_2002]

Я думаю одной командой тебе не обойтись.

Скорее всего придётся делать так

1) Создать папку в новом месте.
2) Перетаскивать файло по одному.
3) Брать объём той папки из которой ты копируешь и сравнивать с объёмом уже скопированных файлов и находить проценнтное соотношение.

Вариантов реализации много - можешь через API можешь через FSO

[Alexanbar]

Есть функция SHFileoperation, которая всё показывает, а заодно выдаёт диалоги, если найден файл с таким же именем:

Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type
Public Const FO_DELETE = &H3
Public Const FO_COPY = &H2
Public Const FO_MOVE = &H1
Public Const FO_RENAME = &H4
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_CONFIRMMOUSE = &H2
Public Const FOF_FILESONLY = &H80 ' on *.*, do only files
Public Const FOF_MULTIDESTFILES = &H1
Public Const FOF_NOCONFIRMATION = &H10 ' Don't prompt the user.
Public Const FOF_NOCONFIRMMKDIR = &H200 ' don't confirm making any needed dirs
Public Const FOF_RENAMEONCOLLISION = &H8
Public Const FOF_SILENT = &H4 ' don't create progress/report
Public Const FOF_SIMPLEPROGRESS = &H100 ' means don't show names of files
Public Const FOF_WANTMAPPINGHANDLE = &H20 ' Fill in SHFILEOPSTRUCT.hNameMappings
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

[mefestofele]

У меня не работает
Придирается ко всему подряд
Есть ещё варианты

[Andrey Fedorov]

Да нет - SHFileoperation нормально работает.
Посмотри примеры в интернете - там их много.

Только раз у меня затык с ней пролучился - не захотела копировать большое кол-во файлов (не по маске, а по списку) на одной из машин. Конечно, в той ситуации скорей всего что-то в операционке покорежено было, но там я просто заменил ее на FileCopy ибо разбираться в чем там дело совсем неохота было...

[ALX_2002]

2 mefestofele: Замени везде Public на Private и всё будет работать.

P.S Низзя Public в форму пихать.

[Alexanbar]

Возможные затруднения:

pfrom
pto
содержат списки файлов/каталогов, разделитель vbnullchar

Допускаются варианты:
а) весь список pfrom копируется в один каталог pto
б) один элемет prom в один элемент списка pto (с флагом FOF_MULTIDESTFILES )