FSO操作文件系统(2)

                    path=Replace(path&"\","\\","\")
                    End If 
                if not fso.folderexists(path) Then
                response.write "<a href=""javascript:history.back()""><font color='#000080'>基本路径查找失败,返回</font></a>"

                response.End 
                End If
        End If
        Set FSO=Nothing
        Dim FileUP
        Set FileUP=New Upload_File
        FileUP.GetDate(-1)
        Dim  F_FileType, F_File
        Set F_File=FileUP.File("File")
            If Len(F_FileName)<2 Then     F_FileName = F_File.FileName
            If Len(F_FileName)<2 Then 
            response.write("<a href='javascript:history.go(-1);'><font color='#000080'>空文件,请返回</font></a>")
            response.End
            End If 
        'F_FileType = Ucase(F_File.FileExt)
        'IF F_File.FileSize > 90000 Then
        '    Response.Write("<a href='javascript:history.go(-1);'>大小超过限制</a>")
        'exit sub
        IF IsvalidFileName(F_FileName) = False Then
            Response.Write("<a href='javascript:history.go(-1);'><font color='#000080'>名称有误</font></a>")
        Else
            Dim FileIsExists