Sub
CreateFolder(strFolder)
' 首选判断要建立的文件夹是否已经存在
Dim strTestFolder, objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject ( " Scripting.FileSystemObject " )
' 检查文件夹是否存在
If objFSO.FolderExists(strTestFolder) Then
response.write " 该文件夹已经存在! "
Else
Dim strTestFolder, objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject ( " Scripting.FileSystemObject " )
' 建立文件夹
objFSO.CreateFolder(strTestFolder)
Set objFSO = Nothing
End If
End Sub
' 首选判断要建立的文件夹是否已经存在
Dim strTestFolder, objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject ( " Scripting.FileSystemObject " )
' 检查文件夹是否存在
If objFSO.FolderExists(strTestFolder) Then
response.write " 该文件夹已经存在! "
Else
Dim strTestFolder, objFSO
strTestFolder = Server.Mappath(strFolder)
Set objFSO = CreateObject ( " Scripting.FileSystemObject " )
' 建立文件夹
objFSO.CreateFolder(strTestFolder)
Set objFSO = Nothing
End If
End Sub