VBScript在服务器上创建目录

最近用到的东西，mark一下吧。
CreateDir.asp

<%   
Function CreateDir(path)'文件夹名称,文件夹路径    
    Dim fso, msg   
    Set fso = CreateObject("Scripting.FileSystemObject")  '设置FSO文件  
    If fso.FolderExists(path) Then    '如果文件夹存在的话那么提示已有目录信息  
        msg = "exists."   
    Else                                        
        msg = "doesn't exist."   
        Set f = fso.CreateFolder(path)     '新建此目录  
    End If   
    Response.write(msg)   
End Function   
  
'创建目录  
strfilename=Request("PcName")  
thisUploadDir=server.mappath(""&strfilename&"")       '上传文件目录路径  
thisUploadDir=CreateDir(thisUploadDir)     '设置上传目录名称  
  
%>

Function CreateDir(path)'文件夹名称,文件夹路径

Dim fso, msg

Set fso = CreateObject("Scripting.FileSystemObject") '设置FSO文件

If fso.FolderExists(path) Then '如果文件夹存在的话那么提示已有目录信息

msg = "exists."

Else

msg = "doesn't exist."

Set f = fso.CreateFolder(path) '新建此目录

End If

Response.write(msg)

End Function

'创建目录

strfilename=Request("PcName")

thisUploadDir=server.mappath(""&strfilename&"") '上传文件目录路径

thisUploadDir=CreateDir(thisUploadDir) '设置上传目录名称

http://127.0.0.1/asp/createdir.asp?pcname=testdir

转载请注明：exchen's blog » VBScript在服务器上创建目录

与本文相关的文章