28,390
社区成员
发帖
与我相关
我的任务
分享
'文本文件名
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