Создание простой папки

Работа с файловой системой

Создание простой папки требует лишь двух строк кода. Первая строка кода создает вхождение класса FileSystemObject с помощью метода CreateObject. Необходимо присвоить ссылке, возвращаемой CreateObject, переменной, используемой, в свою очередь, для выполнения метода CreateFolder объекта FileSystemObject. Единственными элементами, необходимыми CreateFolder, являются путь и имя создаваемой папки. Этот процесс показан на примере следующего кода:

Set objFSO = CreateObjectf'Scripting.FileSystemObject"

Set objFolder = objFSO.CreateFolder("c:\fso")

Предположим, вам нужно создать несколько папок для группы временных пользователей. Вы решили назвать пользователей именами tempUserl...tempUser10. На самом деле, создание папок для этих пользователей потребует некоторого времени. Тем не менее, внеся некоторые изменения в сценарий CreateBasicFolder.vbs, вы сможете легко выполнить эту задачу. Модифицированный сценарий с именем CreateMultiF'olders.vbs выглядит следующим образом:

Option Explicit

Dim numFolders

Dim folderPath

Dim folderPrefix

Dim objFSO

Dim objFolder

Dim i

numFolders = 10

folderPath = "C:\"

folderPrefix = "TempUser"

For i = 1 To numFolders

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.CreateFolder(folderPath & folderPreFix & i)

Next

WScript.Echo(i -1 &" folders created")

Внимание! FSO не создаст папку, если не существует соответствующей родительской папки. По этой причине, попытка создать C:\tmp\tmpusers\tmpuserl при отсутствии папки C:\tmp\tmpusers будет неудачной.

Секция заголовка

Секция заголовка сценария CreateMultiFilder.vbsначинается с выражения Option Explicit, обеспечивающего отсутствие необъявленных или ошибочно использованных переменных. Далее происходит объявление шести переменных, используемых в сценарии. Первая переменная с именем numFolders содержит набор папок, который необходимо создать. Следующая переменная, folderPath, указывает расположение, в котором будут создаваться папки. В данном случае 10 папок будут созданы не в корневом каталоге диска С, однако эти значения не присваиваются до секции обращений. Следующая переменная - folderPrefix. В данном сценарии происходит присвоение слова или набора символов, который будет использоваться VBScript для начала процесса создания папок. Преимущество этого подхода заключается в том, что в дальнейшем можно будет легко изменить этот префикс. Переменная objFSO содержит соединение с объектом FileSystemObject, a objFolder содержит ссылку на команду CreateFolder. Последняя переменная - i; она используется как простой счетчик.

Как видите, в коде сценария отсутствует выражение On Error Resume Next При изменении или перемещении данных рекомендуется разрешить возникновение ошибок для остановки сценария, во избежание повреждения данных в случае неполадки.