Ошибка формы запроса в VisualScript

Question

Привет! Я надеюсь, что кто-то может помочь мне с этим вопросником.

    <%
'Creating the subfolders'
Public objFSO
Sub Main()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Call GeneratePath("C:\Inetpub\wwwroot\sites")
Call GeneratePath("C:\Inetpub\wwwroot\sitesx")
End Sub
Function GeneratePath(pFolderPath)
GeneratePath = False
If Not objFSO.FolderExists(pFolderPath) Then
If GeneratePath(objFSO.GetParentFolderName(pFolderPath)) Then 
GeneratePath = True
Call objFSO.CreateFolder(pFolderPath)
End If
Else
GeneratePath = True
End If
End Function
Call Main
%>

У меня есть форма, которая собирает данные, необходимые для ввода в

Call GeneratePath("C:\Inetpub\wwwroot\sites")

в сценарии выше

Пример содержимого в текстовой области

Call GeneratePath("C:\Inetpub\wwwroot\sites1")
Call GeneratePath("C:\Inetpub\wwwroot\sites2")
Call GeneratePath("C:\Inetpub\wwwroot\sites3")
Call GeneratePath("C:\Inetpub\wwwroot\sites4")

Можно ли собирать данные в форме в текстовой области? и отправить их в приведенный выше скрипт? Что-то вроде Request.Form («папки»)

Я пробовал вышеописанное, но почему-то оно не выполняется, но также не выдает ошибку ...

Любые идеи и помощь будут с благодарностью!

Answer 1

Не помещайте код в текстовую область, просто вставьте значения, то есть просто введите имена папок. Затем переберите текст, разделенный символом возврата каретки, чтобы получить имена папок и вызвать функцию с каждым именем. Что-то вроде:

Dim FolderList, FolderName
FolderList = Split(Request.Form("folders"), vbCrLf)
For Each FolderName In FolderList
 GeneratePath(FolderName)
Next

Где содержимое Textarea:

C:\Inetpub\wwwroot\sites1
C:\Inetpub\wwwroot\sites2
C:\Inetpub\wwwroot\sites3
C:\Inetpub\wwwroot\sites4