Копирование папки

[13GHOST]

Как скопировать папку (директорию) т.е. надо как то перебрать все файлы в текущей директории и во всех вложенных в нее
заранее спасибо

[Sirik]

рекурсия

[13GHOST]

а пример есть?

[alibek]

Да, в поиске.

[HotKitten]

перебор файлов в поиск, тема пару дней назад обсуждалась

[AndreyIl]

>Как скопировать папку (директорию) т.е. надо как то перебрать все файлы в текущей директории и во всех вложенных в нее

Так надо просто скопировать папку с ее содержимым или перебрать это содержимое?

[Andrey Fedorov]

перебор файлов в поиск, тема пару дней назад обсуждалась

Бяка.

Смотри Help по SHFileOperation.

[Konst_One]

для ленивых сюда:

http://vbnet.mvps.org/index.html?code/shell/shdirectorycopy.htm

[13GHOST]

блин а можно это сделать как нибудь посредством например API copyfile? т.е. перебрать все файлы в директории и посредством этой функции скоировать их...

[Andrey Fedorov]

блин а можно это сделать как нибудь посредством например API copyfile? т.е. перебрать все файлы в директории и посредством этой функции скоировать их...

Нм. Ну и нафига тебе тогда API?
Как проще и удобней с API тебе уже сказали.

Иначе - Dir и FileCopy хватит.

[13GHOST]

мне надо чтобы эта процедура состояла из копирования каждого фалика

[Andrey Fedorov]

мне надо чтобы эта процедура состояла из копирования каждого фалика

Вопрос - зачем?

[13GHOST]

потому что папка будет копироваться по сети, у меня уже написана процедура которая копирует отдельный фалик по сети, теперь надо сделать чтобы можно было копировать директории целиком...

[GSerg]

А...
Написанная процедура копирования файла по сети - не функция filecopy случаем, нет?..

[13GHOST]

блин ну я так просто написал про Filecopy нет это не filecopy, мне просто надо представить копирование папки как копирование каждого файла!

[GSerg]

Зачем?
Препод сказал?

[13GHOST]

да блин ну просто так пишу прогу - обменник файлами по сети

[Konst_One]

ну и пиши, а при чем тогда вообще весь сырбор

[13GHOST]

в том что я НЕ ЗНАЮ КАК КОПИРОВАТЬ ВСЮ ПАПКУ ЦЕЛИКОМ! т е перебрать в ней все файлы - вот в чем весь сырбор )

[Konst_One]

тебе как , посложнее или попроще

если попроще, то через Dir(), посложнее , то через FindFirstFile() (см. ApiGuide)

[uzer_@]

вы не это обсуждаете, стесняюсь спросиь? FileSystemObject.CopyFolder

[Konst_One]

как один из вариантов от uzer_@

[13GHOST]

FileSystemObject.CopyFolder этож просто одна функция и все, а вот FindFirstFile() вроде ничего

[DirectXManiac]

Можно перебрать файлы FileList-ом. И просто создавать папку и копировать в неё файлы!

[13GHOST]

а папки вложенные как перебрать?

[AndreyIl]

Папки перебирать через DirListBox или через FSO, WMI.

[uzer_@]

видимо я чего-то не понимаю, тем не меннее метод CopyFolder выполняет копирование папок вместе с их содержимым.

[CodeName33]

Вот код, который возвращает массив файлов с полными путями внутри папки и её подпапок. Как скопировать, думаю, сам разберёшься.

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

Public Function GetSubFolderFiles(ByVal folder As String, FilesArray() As String) As Long
On Error Resume Next
Dim i As Long, ArrayF() As String, ArrayC As Long, S2 As String, cDir As Long, cSize As Long, S As String
ReDim ArrayF(1 To 1) As String
ArrayC = 1: cDir = 1
ArrayF(ArrayC) = DirFilterIN(folder) + "\"

GETFOLDERS:
folder = DirFilterIN(folder) + "\"
S = Dir(folder, vbDirectory Or vbArchive Or vbHidden Or vbNormal Or vbReadOnly Or vbSystem)
Do Until S = ""
  If Not StrComp(S, ".") = 0 And Not StrComp(S, "..") = 0 Then
    S2 = folder + S
    If (GetAttr(S2) And vbDirectory) = vbDirectory Then
      ArrayC = ArrayC + 1
      ReDim Preserve ArrayF(1 To ArrayC) As String
      ArrayF(ArrayC) = S2
    Else
      GetSubFolderFiles = GetSubFolderFiles + 1
      ReDim Preserve FilesArray(1 To GetSubFolderFiles) As String
      FilesArray(GetSubFolderFiles) = S2
    End If
  End If
  S = Dir
Loop

If cDir < ArrayC Then
  cDir = cDir + 1
  folder = ArrayF(cDir)
  GoTo GETFOLDERS
End If
End Function

Public Function DirFilterIN(DirName As String) As String
On Error Resume Next
If Mid$(DirName, Len(DirName), 1) = "\" Then
  DirFilterIN = Mid$(DirName, 1, Len(DirName) - 1)
Else
  DirFilterIN = DirName
End If
End Function