当前位置:asp编程网>技术教程>Asp教程>  正文

创建函数 创建文件函数

2016-09-23 15:38:26   来源:www.aspbc.com    作者:z420038848   浏览量:1251   收藏
< %
    FileName="1"
    SaveDate FileName
    ’上面为测试参数
    Function SaveDate(strDate)    
    set fs=server.CreateObject("scripting.FileSystemObject")
    FileName="E:\TextDate\"&strDate&".txt"        
        '---------------------------------------------------
        '检查文件夹是否存在
            if fs.FolderExists("E:\TextDate")=false then
                set FileFoEx=fs.CreateFolder("E:\TextDate")            '当文件夹不存在时创建一个TextDate的文件夹
            end if
        '---------------------------------------------------
        
        '---------------------------------------------------
        '查找是否有同名存在
            if fs.FileExists(FileName)=true then
                FileEx=true                                          '有相同文件名以存在
            else
                FileEx=false                                         '没有相同文件名可以创建
            end if
        '---------------------------------------------------
    if FileEx=true then
        response.Write("a")                                            '有同名可以修改当前文件
    else
        response.Write("b")                                            '如果没有同名直接创建当前文件
        
        '---------------------------------------------------
        '    set f=fs.CreateTextFile(FileName,true)
        '    f.writeLine("hellow word")
        '    f.close
        '    set f=nothing
        '---------------------------------------------------
    end if    
    set fs=nothing    
    end Function
% >



关于我们-广告合作-联系我们-积分规则-网站地图

Copyright(C)2013-2017版权所属asp编程网