Sub Example()
xRes = Shell("xcopy.exe c:\temp\kav e:\kav /d /e /y")
MsgBox xRes
End Sub
как скопировать папку с подпапками в новое место?
Вот есть папка:
C:\Program Files\Adobe\PageMaker 7.0\RSRC\USENGLSH\Plugins\Scripts\BW\
Ее (вместе с находящимся там файлОм, ессно) надо скопировать в место резервного хранения:
F:\cpkr\Revive\Rev\BW\. Можно это сделать одно командой, или придется запускать прогон по всем поддиректориям с помощью objFso и писать потом Filecopy sF.Path & "\*.*". Кстати, а если половина файлов не имеют расширений, они тоже будут скопированы?
И можно ли как-то регламентировать режимы перезаписи типа "только более старые" или "все подряд".
Спасибо.
C:\Program Files\Adobe\PageMaker 7.0\RSRC\USENGLSH\Plugins\Scripts\BW\
Ее (вместе с находящимся там файлОм, ессно) надо скопировать в место резервного хранения:
F:\cpkr\Revive\Rev\BW\. Можно это сделать одно командой, или придется запускать прогон по всем поддиректориям с помощью objFso и писать потом Filecopy sF.Path & "\*.*". Кстати, а если половина файлов не имеют расширений, они тоже будут скопированы?
И можно ли как-то регламентировать режимы перезаписи типа "только более старые" или "все подряд".
Спасибо.
Скорее всего придётся идти по сложному пути! :rolleyes:
Не вполне уверен, что правильно понял Вашу задачу (вначале речь идёт о папке с одним файлОм, а потом - уже о множестве файлов), но предложу такой пример:
Код:
Цитата: Dmitrii
Не вполне уверен, что правильно понял Вашу задачу (вначале речь идёт о папке с одним файлОм, а потом - уже о множестве файлов), но предложу такой пример:
Код:
Sub Example()
xRes = Shell("xcopy.exe c:\temp\kav e:\kav /d /e /y")
MsgBox xRes
End Sub
xRes = Shell("xcopy.exe c:\temp\kav e:\kav /d /e /y")
MsgBox xRes
End Sub
Под файлОм я имел ввиду жаргонное употребление слова "файлы". Т.е. их там много. Но главная проблема в том, что XCOPY не понимает длинных путей с русскими символами. В частности, normal.dot скопировать не удастся, т.к. его путь содержит русские символы (в папке "Шаблоны" сидит).
Цитата: Dmitry2064
... Но главная проблема в том, что XCOPY не понимает длинных путей с русскими символами...
Сранно. У меня длинные пути (в том числе и с пробелами, и с кириллицей) прекрасно обрабатываются.
Единственное затруднение возникает в том случае, если верхний каталог содержит пробел в имени, но способ решения такой задачи мы уже разбирали. Вот пример:
Код:
Sub Example()
Const strSource = """C:\Антивирус Касперского"""
Const strTarget = """E:\Антивирус Касперского"""
'xRes = Shell("xcopy.exe ""C:\Антивирус Касперского"" ""E:\Антивирус Касперского"" /d /e /i /h /y")
'xRes = Shell("xcopy.exe " & strSource & " " & strTarget & " /d /e /i /h /y")
End Sub
Const strSource = """C:\Антивирус Касперского"""
Const strTarget = """E:\Антивирус Касперского"""
'xRes = Shell("xcopy.exe ""C:\Антивирус Касперского"" ""E:\Антивирус Касперского"" /d /e /i /h /y")
'xRes = Shell("xcopy.exe " & strSource & " " & strTarget & " /d /e /i /h /y")
End Sub
Цитата: Dmitry2064
... В частности, normal.dot скопировать не удастся, т.к. его путь содержит русские символы (в папке "Шаблоны" сидит).
А нет ли у этого файла атрибута "скрытый" или "системный"? Если есть, то используйте ещё и ключ [color=blue]/h[/color].
Цитата: Dmitry2064
Под файлОм я имел ввиду жаргонное употребление слова "файлы". Т.е. их там много...
Объект Shell так же позволяет работать не только с файлами, но и с папками:
Пример копирует папку Source (с вложениями) в папку Destination
Код:
Sub copyFolder()
Dim objShell As Object
Dim objFolder As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\Destination")
If (Not objFolder Is Nothing) Then
objFolder.CopyHere "C:\Source", 128
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("C:\Destination")
If (Not objFolder Is Nothing) Then
objFolder.CopyHere "C:\Source", 128
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
[QUOTE=Host;]Объект Shell так же позволяет работать не только с файлами, но и с папками...[/QUOTE]Но не позволяет вот этого:
[QUOTE=Dmitry2064;]... режимы перезаписи типа "только более старые"...[/QUOTE]
[QUOTE=Dmitry2064;]... режимы перезаписи типа "только более старые"...[/QUOTE]
Цитата: Dmitrii
Но не позволяет вот этого:
Интересно, т.к. действительно нужно что-то перезаписать, а что-то скопировать только новое.
Будем сейчас прописываться. :-))
Спасибо за идеи.