asp批量建立文件夹问题

[rebelHACK]

求段代码 读取1.txt 然后每行的内容为建立的文件夹的名字，批量建立。

[slwsss]

创建文件夹 读文本文件

[宁静志远]

	'文本文件名
	txtName ="111.txt"
	Set Fso = Server.CreateObject("Scripting.FileSystemObject")
	Set myFile = Fso.OpenTextFile(Server.MapPath(txtName),1,True)
	While Not myFile.AtEndOfStream
		str = myFile.ReadLine
		If fso.folderexists(Server.MapPath(str)) Then
			Response.write "文件夹"&str&"已经创建<br/>"
		Else 
			fso.CreateFolder(Server.MapPath(str))
			Response.write "文件夹"&str&"创建成功<br/>"
		End If
	Wend
	myFile.Close
	Set myFile = Nothing
	Set Fso = Nothing