Vba excel копирование папки

Метод CopyFolder

Рекурсивно копирует папку из одного места в другое.

Синтаксис

object. Источник CopyFolder , назначение, [ перезапись ]

Синтаксис метода CopyFolder состоит из следующих частей:

Part	Описание
object	Обязательно. Всегда имя объекта FileSystemObject.
источник	Обязательно. Строка знаков, представляющая спецификацию папки, которая может содержать подстановочные знаки для одной или нескольких копируемых папок.
destination	Обязательно. Строка знаков, определяющая место назначения, в которое должны быть скопированы папка и вложенные папки из source. Использование подстановочных знаков запрещено.
Перезаписать	Необязательный параметр. Значение типа Boolean, показывающее, можно ли перезаписывать существующие папки. При значении True файлы перезаписываются, при значении False перезапись файлов не происходит. По умолчанию используется значение True.

Замечания

Подстановочные знаки могут использоваться только в последнем компоненте пути аргумента source. Например, можно использовать:

Однако нельзя использовать:

Если источник содержит подстановочные знаки или назначение заканчивается разделителем пути (), предполагается, что назначение — это существующая папка, в которую копируются соответствующие папки и вложенные папки. В противном случае предполагается, что destination — это имя создаваемой папки. В любом случае при копировании отдельной папки могут произойти четыре вещи:

Если папка destination не существует, выполняется копирование папки source и всего ее содержимого. Это обычный случай.

Если destination является существующим файлом, происходит ошибка.

Если destination является каталогом, выполняется попытка скопировать папку и все ее содержимое. Если файл, содержащийся в source, уже существует в destination, возникает ошибка, если значение overwrite равно False. В противном случае будет выполнена попытка скопировать файл поверх существующего файла.

Если destination является каталогом только для чтения и значение overwrite равно False, при попытке скопировать в этот каталог существующий файл только для чтения возникает ошибка.

Ошибка также возникает, если значение source, заданное с использованием подстановочных знаков, не соответствует никаким папкам.

Метод CopyFolder останавливается при первой обнаруженной ошибке. Попытка отката изменений, выполненных до появления ошибки, не выполняется.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

CopyFile method

Copies one or more files from one location to another.

Syntax

object.CopyFile source, destination, [ overwrite ]

The CopyFile method syntax has these parts:

Part	Description
object	Required. The object is always the name of a FileSystemObject.
source	Required. Character string file specification, which can include wildcard characters, for one or more files to be copied.
destination	Required. Character string destination where the file or files from source are to be copied. Wildcard characters are not allowed.
overwrite	Optional. Boolean value that indicates if existing files are to be overwritten. If True, files are overwritten; if False, they are not. The default is True. Note that CopyFile will fail if destination has the read-only attribute set, regardless of the value of overwrite.

Wildcard characters can only be used in the last path component of the source argument. For example, you can use:

But you can’t use:

If source contains wildcard characters, or destination ends with a path separator (****), it is assumed that destination is an existing folder in which to copy matching files. Otherwise, destination is assumed to be the name of a file to create. In either case, three things can happen when an individual file is copied:

If destination does not exist, source gets copied. This is the usual case.

If destination is an existing file, an error occurs if overwrite is False. Otherwise, an attempt is made to copy source over the existing file.

If destination is a directory, an error occurs.

An error also occurs if a source using wildcard characters doesn’t match any files. The CopyFile method stops on the first error it encounters. No attempt is made to roll back or undo any changes made before an error occurs.

Files copied to a new destination path will keep the same file name. To rename the copied file, simply include the new file name in the destination path. For example, this will copy the file to a new location and the file in the new location will have a different name:

See also

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Источник

CopyFolder method

Recursively copies a folder from one location to another.

Syntax

object.CopyFolder source, destination, [ overwrite ]

The CopyFolder method syntax has these parts:

Part	Description
object	Required. Always the name of a FileSystemObject.
source	Required. Character string folder specification, which can include wildcard characters, for one or more folders to be copied.
destination	Required. Character string destination where the folder and subfolders from source are to be copied. Wildcard characters are not allowed.
overwrite	Optional. Boolean value that indicates if existing folders are to be overwritten. If True, files are overwritten; if False, they are not. The default is True.

Wildcard characters can only be used in the last path component of the source argument. For example, you can use:

But you can’t use:

If source contains wildcard characters, or destination ends with a path separator (), it is assumed that destination is an existing folder in which to copy matching folders and subfolders. Otherwise, destination is assumed to be the name of a folder to create. In either case, four things can happen when an individual folder is copied:

If destination does not exist, the source folder and all its contents gets copied. This is the usual case.

If destination is an existing file, an error occurs.

If destination is a directory, an attempt is made to copy the folder and all its contents. If a file contained in source already exists in destination, an error occurs if overwrite is False. Otherwise, it will attempt to copy the file over the existing file.

If destination is a read-only directory, an error occurs if an attempt is made to copy an existing read-only file into that directory and overwrite is False.

An error also occurs if a source using wildcard characters doesn’t match any folders.

The CopyFolder method stops on the first error it encounters. No attempt is made to roll back any changes made before an error occurs.

See also

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Источник

VBA Excel. Копирование и перемещение файлов

Копирование и перемещение файлов в VBA Excel с помощью методов CopyFile и MoveFile объекта FileSystemObject. Синтаксис, параметры, примеры.

Копирование файлов

Метод CopyFile

Синтаксис

Параметры

Параметр	Описание
object	Переменная, возвращающая объект FileSystemObject. Обязательный параметр.
source	Строковое выражение, задающее полное имя файла, который требуется скопировать в другое расположение. Для копирования нескольких файлов используются подстановочные знаки. Обязательный параметр.
destination	Строковое выражение, задающее конечное расположение, куда требуется скопировать файл (файлы) из элемента source. Подстановочные знаки не допускаются. Обязательный параметр.
overwrite	Логическое значение, которое указывает, требуется ли перезаписывать существующие файлы в конечном расположении. True – файлы будут перезаписаны, False – перезапись не выполняется. Необязательный параметр, по умолчанию – True.

Если копируемый файл с полным именем source не существует, будет сгенерирована ошибка.

При копировании одного файла методом CopyFile допустимо в параметре destination указать другое собственное имя файла, тогда скопированный файл будет сохранен под новым именем. В том числе, можно изменить и расширение файла.

Примеры

Пример 1
Копирование одного файла в другое расположение с проверкой его существования:

Источник

Excel VBA – Folder Operation – Exists, Create, Copy, Delete Directory

Excel VBA – Create, Delete, Exists, Copy, Move, Open Folder Operation

Please enable JavaScript

Be it any operation on a system directory, like any of these:

1. List Folder or check folder exists?
2. Create/Delete Folder. (Table1)
3. Copy or Move Folder. (Table2)
4. Current working directory
5. Get or Set file or folder attributes
6. Open a folder from Excel
7. and so on …

Yes. It is all possible from within the Excel vba code. You could also use the Quick reference Table below the code snippets.

And that is not the end. There is more examples as well …

Now, lets get some sample codes.

1. VBA Code – Check if Folder Exists?

There is inbuilt function within VBA class collection itself. Dir function can be used for this purpose.

If the folder exists already, then the Dir function will return the folder name. If it does not exist then it will return blank or spaces.

2. Excel VBA: Create/Delete Folder

Assume, we need to create a new folder in D: Drive after checking whether any folder with same name exists the path. We can do this with the following steps and code.

1. Create a New Excel Workbook and Press Alt + F11.
2. Then copy paste the below code and run it by pressing F5.
3. A folder with name “TestFolder” will be created in D: Drive.

Note: In the VB Editor, type VBA.FileSystem (Do not copy paste, type this command), and it will display display the available functions for Folder or File operations.

Comments are provided inside the code to explain about each function used.

3. Open Folder From Excel

Now, we have created the TestFolder. IF we need to open the Folder from the code itself and want to display it in the desktop, use the below code.

In this code, an instance for the object “Shell.Application” is created and pass the Folder path for the .Open Function.

To perform advanced functions on Folders or File System in Windows, Google for File System Objects.

4. Copy or Move Folder – Using Excel VBA

This code used the commands from the Table2. Again, do not forget to add reference to Microsoft Scripting Runtime either thru early or late binding.

I guess, we have covered a lot more on this topic.

Table1 – VBA Commands for Folder Operations:

Command	Description	Syntax
Dir	1. Widely used to check for folder or file existence. 2. Scans the directory path passed as parameter & returns the string that matches the pattern.	VBA.Dir ( pathname [ ,attributes ] ) or VBA.FileSystem.Dir
MkDir	Used to Create a New directory or Folder	MkDir (Path)
RmDir	Delete a System folder or a directory	RmDir (Path)
ChDir	Change Current working directory or Active folder	ChDir (Path)
CurDir	Get current working or active windows directory	CurDir
GetAttr	Get File or Folder Attributes. Returns the vbFileAttribute*	VBA.GetAttr (“File_Or_Folder_Path”)
SetAttr	Change Attributes of a Folder or File. Hint: Hide a Folder or make it Read-Only	VBA.SetAttr (“File_Or_Folder_Path”, vbFileAttribute*)
Glossary
*	vbFileAttribute	vbNormal(0) vbReadOnly(1) vbHidden(2) VbSystem(4) vbVolume(8) vbDirectory(16) vbArchive(32) vbAlias(64)

Except for hide or lock folders, which is in a separate article, most processes are listed here.

Either you create a folder or delete already existing one, copy it to a new location, move, rename, open. All is possible right from within an Excel VBA macro code.

Table2 – VBA with FileSystemObject:

To use the Filesystemobject in VBA code, add reference to “Microsoft Scripting Runtime” Library.

Or create a late-binding object to this library with command ‘set fsp = CreateObject(“scripting.filesystemobject”)’

Command	Description	Syntax
CreateFolder	Create new folder	FileSystemObject.CreateFolder (Path)
CopyFolder	Copy Folder from One location to another	FileSystemObject.CopyFolder (Source, Destination, [OverWriteFiles Flag])
MoveFolder	Move the File to different path	FileSystemObject.MoveFolder (Source, Destination, [OverWriteFiles Flag])
DeleteFolder	Delete Folder	FileSystemObject.DeleteFolder (Path)
CreateTextFile	Copy File	CreateTextFile (Path)
CopyFile	Copy File	CopyFile(Source,Destination)
MoveFile	Move File	MoveFile(Source,Destination)
DeleteFile	Delete File from specific path	DeleteFile(Path)

This is not the complete list for Filesystemobject. There are more function to it that can read file content & do more processing.

We have listed only the required commands specific to the topic.

If any more reference is requires, please leave a comment. We will add good samples in our page.

Источник