asp创建文件与文件夹

一、创建文件夹

1.创建一层的文件夹

Dim fs,strFolder
'创建一目录下，只有一层的文件夹
strFolder="Logs"
Err.Clear
On Error Resume Next
'创建文件对象
set fs=Server.CreateObject("Scripting.FileSystemObject")
strFolder=Server.MapPath("\"&strFolder)
'判断文件夹是否存在，不存在就创建
If not fs.FolderExists(strFolder) Then
fs.CreateFolder strFolder
End If

If Err.Number<> 0 Then
Response.Write "文文件夹创建失败，失败原因:"&Err.Description
Else
Response.Write "文件夹创建成功！"
End If

2.创建多层的文件夹

Dim fs,strFolder
Dim arrPath,i,ulngArrPath,tempFolder
'创建一目录下，只有一层的文件夹
strFolder="Logs\Web\Test"
Err.Clear
On Error Resume Next
'创建文件对象
set fs=Server.CreateObject("Scripting.FileSystemObject")
arrPath=Split(strFolder,"\")
ulngArrPath=ubound(arrPath)
for i=0 to ulngArrPath
tempFolder=tempFolder&"\"&arrPath(i)
strFolder=Server.MapPath(tempFolder)
'判断文件夹是否存在，不存在就创建
If not fs.FolderExists(strFolder) Then
fs.CreateFolder strFolder
End If
next

If Err.Number<> 0 Then
Response.Write "文件夹创建失败，失败原因:"&Err.Description
Else
Response.Write "文件夹创建成功！"
End If

二、创建Text文件

Dim fs,strFile
'创建一目录下，只有一层的文件夹
strFile="Logs.txt"
Err.Clear
On Error Resume Next
'创建文件对象
set fs=Server.CreateObject("Scripting.FileSystemObject")

strFile=Server.MapPath("\"&strFile)
'判断文件夹是否存在，不存在就创建
If not fs.FileExists(strFile) Then
fs.CreateTextFile strFile
End If

If Err.Number<> 0 Then
Response.Write "文件创建失败，失败原因:"&Err.Description
Else
Response.Write "文件创建成功！"
End If