日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

folder=server.mappath("/imagess")
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileexists(Server.mappath(filepath)) then
  respnse.write("都有了還建什么建")
else
  fso.createfolder(folder)
end if
Set fso = nothing


Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(Server.MapPath(SavePath))=false Then
  objFSO.CreateFolder(Server.MapPath(SavePath))
End If


folder=server.mappath("/imagess")
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileexists(Server.mappath(filepath)) then
  respnse.write("都有了還建什么建")
else
  fso.createfolder(folder)
end if
Set fso = nothing

都不完好，我想樓主的意思是創建無極深度文件夾吧，給個我寫的： 

'創建新目錄(同意無級創建)
Public Function CreateFolder(FolderPath)
Dim sObjFSO
Dim arrFolder
Dim i


Set sObjFSO = Server.CreateObject("Scripting.FileSystemObject")
FolderPath = Replace(FolderPath,"\","/")
arrFolder = Split(FolderPath,"/")
On Error Resume Next


For i = 0 To UBound(arrFolder)
If i > 0 Then arrFolder(i) = arrFolder(i-1) & "/" & arrFolder(i)
If Not sObjFSO.FolderExists(arrFolder(i)) Then
sObjFSO.CreateFolder(arrFolder(i))
End If
Next
CreateFolder = True


If Err.number <> 0 Then
CreateFolder = False
Err.Clear
End If
End Function

創建目錄

dim fso,SavePath
SavePath=server.MapPath(".\"&imagefile&"\"&username&"\"&specialname&"")
set fso = server.CreateObject("scripting.filesystemobject") 
if fso.FolderExists(SavePath)=false then 
fso.createfolder(SavePath) 
end if
set fso=nothing

刪除目錄

dim fso,SavePath
SavePath=server.MapPath(".\"&imagefile&"\"&username&"\"&specialname&"")
set fso = server.CreateObject("scripting.filesystemobject") 
if fso.FolderExists(SavePath)=true then 
fso.deletefolder(SavePath) 
end if
set fso=nothing

拷貝文件

dim fso
set fso=server.CreateObject("scripting.filesystemobject")


sub copyfiles(path,path2)
  set mycopy=fso.getfile(path)
  response.flush()
  mycopy.copy path2
  response.write("<b>installed success !  </b>"&path2&"<br>")
  response.Flush()
end sub
call copyfiles(Server.MapPath("../無標題2.bmp"),"D:\站點項目\photo\aspupload\07_images\")