用FileInfo类就行

我在ASP下这样备份ACCESS数据库
set objFSO = server.CreateObject("Scripting.FileSystemObject")
    filePath = server.MapPath(".\database\jlgj.mdb")
    newFile = getnewFileName("jlgj.mdb")

        objFSO.copyFile filePath,newFile,true

set objFSO = noThing

function getnewFileName(fileName)
    dim dotPosition,ex_name,newfile
        dotPosition=len(fileName)-instrrev(fileName,".")
        ex_name=right(filename,dotPosition)
    
    dim ye,mo,da,ho,mi,se
        ye=year(now)
        mo=right("0"&month(now),2)
        da=right("0"&day(now),2)
        ho=right("0"&hour(now),2)
        mi=right("0"&minute(now),2)
        se=right("0"&second(now),2)
        
    getnewFileName=server.mapPath("db_bak\"&ye&mo&da&ho&mi&se&"."&ex_name)
end function