Dim FSO As New FileSystemObject
FSO.CopyFolder SourcePath, DestinationPath, True
Копирование каталога.
Всем добрый день!
Подскажите пожалуйста, как скопитовать каталог и все что внутри?
Заранее блгодарю.
Подскажите пожалуйста, как скопитовать каталог и все что внутри?
Заранее блгодарю.
В проводнике выделить имя каталога, нажать Ctrl+C, перейти в место предполагаемого копирования и нажать Ctrl+V.
Вас не устраивает такой ответ? А как мы тут могли догадаться, где Вы собрались копировать?
Вас не устраивает такой ответ? А как мы тут могли догадаться, где Вы собрались копировать?
Мне нужно скопировать папку и его содержимое из програмы написанной на VB6.
Вот пример с использованием Microsoft Scripting Runtime
Код:
Вот ещё вариант:
Код:
Sub Main()
Dim objShell As Object
Dim objFolder As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\")
If Not objFolder Is Nothing Then
objFolder.CopyHere "C:\Test"
Else
MsgBox "Не найден целевой каталог."
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Dim objShell As Object
Dim objFolder As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\")
If Not objFolder Is Nothing Then
objFolder.CopyHere "C:\Test"
Else
MsgBox "Не найден целевой каталог."
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
А просто CopyFile с именем папки не покатит?
Цитата: Dmitrii
Вот ещё вариант:
Код:
Sub Main()
Dim objShell As Object
Dim objFolder As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\")
If Not objFolder Is Nothing Then
objFolder.CopyHere "C:\Test"
Else
MsgBox "Не найден целевой каталог."
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Dim objShell As Object
Dim objFolder As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\")
If Not objFolder Is Nothing Then
objFolder.CopyHere "C:\Test"
Else
MsgBox "Не найден целевой каталог."
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
:) Огромное спосибо!!!
О да!Такая оптимизация!!!:eek: Что,по-твоему,легче организовать?Несколько строк обьектного кода,которые к тому же могут завершиться с ошибкой,или 1 строчку кода с вызовом API-функции,которая просто возвращает значение,есть ли ошибка или нет,и ты сам принимаешь решение,что тебе делать,а не пишешь On Error GoTo <метка> с мучительным написанием обработки ошибочной ситуации
Кстати,для подобных целей вроде бы существует функция в Shell32.dll,называется как-то типа SHFileOperation
Кстати,для подобных целей вроде бы существует функция в Shell32.dll,называется как-то типа SHFileOperation