Как скопировать файлы или папку?

В одну руку берем WinAPI, в другую свои мозги (на крайняк смотрим Help) и копируем.

FileCopy
CopyFile....

Dexter дал более дельный совет...

SHFileOperation

Цитата(Klin @ 10.11.2002, 11:09)

Как скопировать файлы или папку?

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

CopyFile копирует файл из одного места в другой(операция подобная копированию файлов в Проводнике). В зависимости от значения bFailIfExists, функция либо перепишет файл,если он уже существует,либо возникнет ошибка. В успешном случае функция возвращает 1 , в случае ошибки возвращается 0

lpExistingFileName
Файл-источник; т.е. файл для копирования
lpNewFileName
Файл-назначение; т.е. новый файл, являющийся копией файла-источника
bFailIfExists
Если значение равно 0, функция перепишет файл lpNewFileName,если он существует. Если значение отлично от нуля, то произойдет ошибка
Пример:

' Скопируем файл C:\Samples\temp.txt в C:\Russia\buffer.txt.
' Не будем переписывать файл C:\Russia\buffer.txt если он существует.
Dim retval As Long  ' возвращаемое значение

' копируем файл
retval = CopyFile("C:\Samples\temp.txt", "C:\Russia\buffer.txt", 1)
If retval = 0 Then  ' если ошибка
 Debug.Print "Не могу скопировать файл -- C:\Russia\buffer.txt уже существует.
Else  ' если все нормально
 Debug.Print "Файл скопирован."
End If
Схожие функции: MoveFile

Описание конечно не на с++ но тут это все тоже будет работать  
Если не получится пиши помогу  

Папки не копируются   зато можно их создавать а потом в созданные копировать содержимое ...

Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Платформа

Windows 95/98: Поддерживается
Windows NT: Требуется Windows NT 3.1 или выше
Windows 2000: Поддерживается
Windows CE: Требуется Windows CE 1.0 или выше

CreateDirectory создает новую папку на диске. Также вы можете установить аттрибуты безопасности для вновь созданной папки,если это позволяет операционная система

Возвращаемое значение
В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки). В успешном случае функция возвращает значение отличное от нуля

Параметры
lpPathName
Имя для новой папки
lpSecurityAttributes
Windows NT, 2000: Аттрибуты безопасности для новой папки.Windows 95, 98, CE: Этот параметр игнорируется
Пример

' Создаем новую папку C:\RussianProject и
' устанавливаем аттрибуты по умолчанию.
Dim Security As SECURITY_ATTRIBUTES  ' структура аттрибутов безопасности
Dim retval As Long  ' возвращаемое значение

' Создаем папку.
retval = CreateDirectory("C:\RussianProject", Security)
'Если CreateDirectory вернул 0, значит ошибка
   If retval = 0 Then MsgBox "Ошибка : Не могу создать папку !", vbCritical + vbOKOnly

Схожие функции
CreateDirectoryEx, RemoveDirectory

Как программно написать программу?    

2 HexoGenus:
Ну и че это за бардак?
Уж с копифайл бы он разобрался... не стоило было приводить код на басике.
На крайний случай мог бы и руками переписать в си

2 man2002ua:
Ты о чем?

что за оффтопик такой пошел, а?

немного смешно...

Цитата

немного смешно...

Что смешного?
Давно небыл на форуме(уезжал), уже сам разобрался:

Код

SHFILEOPSTRUCT sh; sh.hwnd=Form1->Handle; sh.wFunc = FO_COPY; sh.pFrom = "c:\\from\0"; sh.pTo = "c:\\to\0"; sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT; sh.hNameMappings = 0; sh.lpszProgressTitle = NULL; SHFileOperation (&sh);

извини, не хотел