VBNet - Форум - Как копировать каталог со всем содержимым и сод...

Вопрос: Как копировать каталог со всем содержимым и сод... Добавлено: 13.07.03 10:52

Автор вопроса: Morpheus | Web-сайт: xury.zx6.ru

Как копировать каталог со всем содержимым, подкаталогами и содержимым его подкаталогов? У меня есть идеи типа вот этой:
1)Создать новую папку с таким же именем
2)Найти все файлы с помощью Find(First/Next)File
3)Копровать их в новую директорию.
НО! У меня возникли проблемы с копированием подпапок и их содержимого. Не могли бы вы мне помочь?
Заранее благодарен.

Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

ZeroX

ICQ: 220401330

Вопросов: 47
Ответов: 406

Профиль | | #1

Добавлено: 13.07.03 11:04

Посмотри здесь --> http://sharig.webzone.ru/IndexMainTopic.htm

Удачи в кодинге

Ответить

Номер ответа: 2
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #2

Добавлено: 13.07.03 11:07

Легко и просто без поисков файлов используя FSO.

dim fs

Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "c:\mydocuments\letters\*", "c:\tempfolder\"

Ответить

Номер ответа: 3
Автор ответа:

Morpheus

Вопросов: 224
Ответов: 3777

Web-сайт: xury.zx6.ru
Профиль | | #3

Добавлено: 14.07.03 06:36

thanx, попробую

Ответить

Номер ответа: 4
Автор ответа:

Morpheus

Вопросов: 224
Ответов: 3777

Web-сайт: xury.zx6.ru
Профиль | | #4

Добавлено: 14.07.03 06:49

Так. Работает. Урраааа! А не знаете как к етому прогресс-бар прилепить?

Ответить

Номер ответа: 5
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #5

Добавлено: 14.07.03 08:36

Вот пример копирования с progress bar:

Option Explicit

Private 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

Private Const FO_MOVE As Long = &H1
Private Const FO_COPY As Long = &H2
Private Const FO_DELETE = &H3
Private Const FO_RENAME As Long = &H4

Private Const FOF_ALLOWUNDO = &H40
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Sub Form_Click()
Dim SHFileOp As SHFILEOPSTRUCT

    With SHFileOp
        'copy operation
        .wFunc = FO_COPY
        'Source directory
        .pFrom = "C:\projects\*"
        'destination directory
        .pTo = "c:\temp\"
    End With
    'perform file operation
    SHFileOperation SHFileOp
    If SHFileOp.fAborted Then
        MsgBox "The operation was aborted by user", vbExclamation + vbOKOnly
    Else
        MsgBox "The directory was copied", vbInformation + vbOKOnly
    End If

End Sub

Ответить

Страница: 1 |