Управление файлами и папками

В этом примере предположим, что вы перемещаете файл и определенной подпапки пользовательской папки My Documents в указанную папку на сетевом ресурсе. Затем вы удаляете этот файл с компьютера пользователя.

Начнем с некоторых основ (никакого каламбура). Этот сценарий должен определить переменные, которые будут использоваться, а затем создать объект файловой системы, с помощью которого вы мбжете использовать описанные мною выше методы. Вот первая часть сценария:

"Описываем переменные

Dim fso, irryDocs, myFolder, server/Folder, user, fileToCopy, fileToMove, fileToDelete

"Создаем объект файловой системы .

Set fso = CreateObject («Scripting. FileSystemObject»)

"Создаем объект оболочки

set shell = CreateObject («wscript. shell»)

Теперь вам нужно получить путь к пользовательской папке My documents:

"Узнаем расположение пользовательской папки My documents myDocs = fso. GetFoldet (shell. specialfolders(«MyDocuments»))

Теперь узнаем имя пользователя, считав переменную окружающей среды, а затем укажем папку назначения на сервере и создадим папку:

•Узнаем имя учетной записи пользователя user = sh. ExpandEnvirormientStrings («%username%») serverFolder = «\\docserver\» & user & «\» sh. CreateFolder serverFolder

Теперь скопируем файлы из подпапки папки My Documents на сервер:

"Получаем файл для копирования

set fileToCopy = fso. GetFile(myDocs&»\My Templates\Proposal. dot») "Указываем назначение

destFile = serverFolder & «Proposal. dot» "Копируем файл

fso. CopyFile fileToCopy, destfile fso. DeleteFile fileToCopy

Последние две строки сценария копируют файл из папки-источника в папку назначения на сервере, а затем удаляют оригинал. Если вы хотите вместо этого переместить файл, вы можете заменить эти две строчки следующей:

fso. MoveFile fileToCopy, destfile

Помните, что этот сценарий написал только чтобы показать вам, как создавать и управлять объектами файловой системы. Он не содержит никакой обработки ошибок, которая должна быть включена в любой хороший сценарий. К примеру, вы должны убедиться, что файл был скопирован, прежде, чем удалять оригинал. Также, помните, что вы должны запускать сценарий в контексте пользователя, у которого есть соответствующие права в папке-источнике и в папке назначения.