下面这个:function creatfolder(fpath)Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateFolder(fpath) response.write "font size=2>目录"&fpath&"创建成功!"end function
如:call reatfolder("d:\123")
便在d:下建立123目录,