

西安网站建设|西安网站制作|西安做网站|宏博网络公司-专注于网站网页设计开发十余年
我们珍惜遇见的每一位客户,也感恩以往岁月里给与我们支持的每一位客户
Private Function CheckOrCreatePath( ByVal path )
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Dim parts
parts = Split( path, "" )
For Each part in parts
path = path + part + ""
If fs.FolderExists( path ) = False Then
fs.CreateFolder( path )
End If
Next
End Function
修改为
Private Function CheckOrCreatePath( ByVal path )
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Dim parts
Dim root : root = Server.mappath("/") & ""
parts = Split( Replace(path, root, ""), "" )
path = root
For Each part in parts
path = path + part + ""
If fs.FolderExists( path ) = False Then
fs.CreateFolder( path )
End If
Next
End Function
即可正常上传。如下图:
Vip定制
微信公众号
联系电话:029-81773686
VIP定制:18966895139(苏先生)
VIP 定制
电话
微信公众号
返回顶部