ВБА вам омогућава да копирате датотеку користећи ФилеСистемОбјецт. У овом водичу ћете научити како копирати и преименовати одређену датотеку.
Ако желите да научите како да преименујете датотеку, можете да кликнете на ову везу: ВБА датотека за преименовање
Копирајте датотеку / радну свеску
Показаћемо како копирати постојећу датотеку Пример датотеке 1.клск у фасцикли ВБА фасцикла. У овом примеру нећемо преименовати датотеку, само је копирајте и препишите. Фасцикла тренутно садржи само једну датотеку:
Слика 1. Датотека у фасцикли Ц: \ ВБА фасцикла
Ево кода:
| 12345 | Дим оФСО Ас ОбјецтПостави оФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")Позовите оФСО.ЦопиФиле ("Ц: \ ВБА Фолдер \ Пример датотеке 1.клск", "Ц: \ ВБА Фолдер \", Тачно) |
Прво морате да креирате објекат класе Сцриптинг.ФилеСистемОбјецт:
| 1 | Постави оФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт") |
Тада можемо користити метод Копија датотека:
| 1 | Позовите оФСО.ЦопиФиле ("Ц: \ ВБА Фолдер \ Пример датотеке 1.клск", "Ц: \ ВБА Фолдер \", Тачно) |
Први параметар методе је изворна путања, а други одредишна путања. Трећи параметар је Преписати. Пошто имамо исте изворне и одредишне путање, морамо их поставити Преписати на Тачно или Нетачно. У овом примеру стављамо Труе, што значи да је оригинална датотека преписана.
Погледајмо сада шта се дешава ако имамо иста одредишта, али подесимо Оверврите на Фалсе. Потребно је само да промените овај ред кода:
| 1 | Позовите оФСО.ЦопиФиле ("Ц: \ ВБА Фолдер \ Пример датотеке 1.клск", "Ц: \ ВБА Фолдер \", Тачно) |
Као резултат тога, добићете грешку као што видите на слици 2:
Слика 2. Грешка при копирању датотеке
Копирајте и преименујте датотеку
Друга могућа опција при копирању датотеке је њено преименовање. Слично је копирању датотеке, али сада само требате поставити одредишну путању с другим именом. Ево кода:
| 12345 | Дим оФСО Ас ОбјецтПостави оФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")Позовите оФСО.ЦопиФиле ("Ц: \ ВБА Фолдер \ Пример датотеке 1.клск", "Ц: \ ВБА Фолдер \ Пример датотеке Цопи.клск") |
Као што видите из последњег реда кода, желимо да копирамо датотеку Пример датотеке 1.клск у истој фасцикли и дајте јој име Пример датотеке Цопи.клск:
| 1 | Позовите оФСО.ЦопиФиле ("Ц: \ ВБА Фолдер \ Пример датотеке 1.клск", "Ц: \ ВБА Фолдер \ Пример датотеке Цопи.клск") |
Сада имамо две датотеке у ВБА фасцикли. Резултат кода је на слици 3:
Слика 3. Копирајте и преименујте датотеку
