| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 690 人关注过本帖
标题:求高手帮忙急,按月份自动创建上传文件夹程序有错误,求解?万分感谢,急! ...
取消只看楼主 加入收藏
hhhcmp
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-11-16
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
求高手帮忙急,按月份自动创建上传文件夹程序有错误,求解?万分感谢,急!!!
'按月份自动明名上传文件夹,需要FSO组件支持。
Private Function CreatePath()
    Dim objFSO,uploaderPath,TempPath,m

    MyMonth = Month(Now())
    MyDay = Day(Now())
    IF Len(MyMonth) = 1 Then MyMonth = "0"&MyMonth
    IF Len(MyDay) = 1 Then MyDay = "0"&MyDay
    uploaderPath=year(now)&"-"&MyMonth    '以年月创建上传文件夹,格式:2003-8
   
    TempPath = Array(Server.MapPath(Config.ImagePath(0)&uploaderPath&"/"&MyDay),_
                     Server.MapPath(Config.ImagePath(0)&uploaderPath),_
                     Server.MapPath(Config.ImagePath(1)&uploaderPath&"/"&MyDay),_
                     Server.MapPath(Config.ImagePath(1)&uploaderPath),_
                     Server.MapPath(Config.ImagePath(2)&uploaderPath&"/"&MyDay),_
                     Server.MapPath(Config.ImagePath(2)&uploaderPath))

    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    With objFSO
        For m = 0 To Ubound(TempPath) Step 2
            If Not .FolderExists(TempPath(m)) Then
                If Not .FolderExists(TempPath(m+1)) Then
                    .CreateFolder TempPath(m+1)     //提示这行有错误
                End If
                .CreateFolder TempPath(m)
            End If
        Next
    End With
    If Err.Number = 0 Then
        CreatePath=uploaderPath&"/"&MyDay&"/"
    Else
        CreatePath=""
    End If
    Set objFSO = nothing
End Function


[ 本帖最后由 hhhcmp 于 2010-11-16 14:12 编辑 ]
搜索更多相关主题的帖子: 文件 求解 自动 
2010-11-16 13:21
hhhcmp
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-11-16
收藏
得分:0 
回复 3楼 gupiao175
//这个是我后加上的,说明用的
2010-11-16 16:43
hhhcmp
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-11-16
收藏
得分:0 
回复 2楼 gupiao175
Microsoft VBScript runtime 错误 '800a004c'

Path not found

2010-11-16 16:47
hhhcmp
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-11-16
收藏
得分:0 
回复 2楼 gupiao175
Server.MapPath(), ASP 0172 (0x80004005)
MapPath 方法的路径参数必须是一个虚拟路径。使用的路径是实际路径。

改了之后还是错误
2010-11-16 16:51
快速回复:求高手帮忙急,按月份自动创建上传文件夹程序有错误,求解?万分感谢, ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016551 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved