Question

您好我希望有人可以帮我解决这个visualscript filesystemobject问题

    <%
'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")

在上面的脚本中

textarea中的内容示例

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

是否可以在textarea中收集表单中的数据？并将这些提交到上面的脚本？像Request.Form（“folders”）

之类的东西

我已经尝试了上述但不知何故它没有被执行，但也没有生成错误......

非常感谢任何想法和帮助！

Answer 1

不要将代码放在textarea中，只需输入值，即只放置文件夹名称即可。然后循环遍历通过回车分割的文本以获取文件夹名称并使用每个名称调用该函数。类似的东西：

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

VisualScript中的请求表单错误

1 个答案: