찾다
백엔드 개발C#.Net 튜토리얼파일 작업 문제에 대한 Asp 요약

으아아아


아아아아


ASP--文件操作类 设计版


'====================================================
'Version:  AspFile 1.0
'Data:  2006.6.20
'CopyRight: (C) 2006 Evan.cn All Rights Reserved
'====================================================
'文件操作类
'文件名称
'文件大小
'文件创建
'FileName--文件名称
'DestinationFile--目标文件名称
'FileSize--获得文件大小
'FileCreatedDate--获得文件创建日期
'FileAttributes--获得文件属性
'ShowFileAccessInfo(InfoType)--获得文件属性
'CreateTxtFile()--创建文本文件
'WriteTxtFile(TextStr,WriteORAppendType)==写文本文件
'ReadTxtFile()--读取文本文件
'DeleteFile()--删除文件
'CopyFile()--拷贝文件
'MoveFile()--移动文件
'
'
Class Cls_FSO
Private o_Fso,s_FileName,s_FolderName,s_DestinationFile
Private s_FolderName,s_DestinationFolder

Private Sub Class_Initialize()
         Set o_Fso = CreateObject("Scripting.FileSystemObject")
   End Sub

Private Sub Class_Terminate()
       Set o_Fso = Nothing
   End Sub

'===============================================文件操作

'设置文件名字
Public Property Let FileName(Byval Values)
 s_FileName=Values
 'checkFile '检查文件
End Property

'设置目标文件名
Public Property Let DestinationFile(Byval Values)
 s_DestinationFile=Values
End Property


'取文件大小
Public Property Get FileSize()
 If fileExist Then
  Dim f
  Set f = o_Fso.Getfile(s_FileName)
           FileSize = f.Size
 Else
  FileSize=0
 End if
End Property

'取文件
Public Property Get FileCreatedDate()
 If fileExist Then
  Dim f
  Set f = o_Fso.GetFile(s_FileName)
  FileCreatedDate = f.DateCreated
 Else
  FileCreatedDate="1900-1-1"
 End if

End Property

'取文件大小
Public Property Get FileAttributes()
 If fileExist Then
  Dim f,Str
  Set f = o_Fso.GetFile(s_FileName)
  Select Case f.attributes
   Case 0 Str="普通文件。没有设置任何属性。 "
   Case 1 Str="只读文件。可读写。  "
   Case 2 Str="隐藏文件。可读写。  "
   Case 4 Str="系统文件。可读写。  "
   Case 16 Str="文件夹或目录。只读。  "
   Case 32 Str="上次备份后已更改的文件。可读写。 "
   Case 1024 Str="链接或快捷方式。只读。  "
   Case 2048 Str=" 压缩文件。只读。"
  End Select
  FileAttributes=Str
 Else
  FileAttributes="文件不存在或不可预测地属性"
 End if

End Property

Public Function ShowFileAccessInfo(InfoType)
   '//功能:显示文件创建时信息
   '//形参:文件名,信息类别
   '//        1  -----创建时间
   '//        2  -----上次访问时间
   '//        3  -----上次修改时间
   '//        4  -----文件路径
   '//        5  -----文件名称
   '//        6  -----文件类型
   '//        7  -----文件大小
   '//        8  -----父目录
   '//        9  -----根目录
 '判断参数是否是数字
       If fileExist Then
  Dim f, s
  Set f = o_Fso.GetFile(s_FileName)
  Select Case InfoType
   Case 1
    s = f.DateCreated        '//        1  -----创建时间
   Case 2
    s = f.DateLastAccessed    '//        2  -----上次访问时间
   Case 3
    s = f.DateLastModified    '//        3  -----上次修改时间
   Case 4
t s = f.유형                                                                                                          > ~ ~ > se
ShowFileAccessInfo="파일이 존재하지 않습니다:("
End if

End Function

Private Function fileExist
fileExist = True
'파일 경로 확인

'파일이 있는지 확인
If Not(o_Fso.FileExists(s_FileName)) Then
fileExist = False
End If
함수 종료

프라이빗 함수 showErr(s_Msg )
Response.Write(s_Msg)
Set Fso=Nothing
Response.End()
함수 종료

공용 함수 CreateTxtFile()
'//빈 파일 만들기
If fileExist Then
showErr "파일이 이미 존재합니다:("
Else
Dim f
Set f =o_Fso.CreateTextFile(s_FileName)
f.Close
End If
함수 종료

공용 함수 WriteTxtFile(TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
사례 선택 WriteORAppendType
사례 1:                                                                                >                  to         파일이 없으면
                                                                                                                                     입력 실패"
             다음의 경우 종료
   ~
                                 FileName, ForAppending)
f.Write TextStr
F.Close Else
샤워기 "파일 실패"
End If
선택 종료
기능 종료

공용 함수 ReadtXtXtXtXtXtxtXtXtXtXtXtXtXtXtXtXtxtw = 1 ForWriting = 2
        Dim f, m
                                            ' 's's's's's ‐ ‐ ‐                                                                       's 's' 사용 s 's t ‐ ‐ ‐ d ,                                                                               'm = f.ReadAll
'f.SkipLine
            ReadTxtFile = m
                       . if
함수 종료

공용 함수 DeleteFile()
If fileExist Then
o_Fso.DeleteFile(s_FileName)
Else
showErr "파일이 더 이상 존재하지 않습니다.("
End if
함수 종료

공용 함수 CopyFile()
'//Function: 원본 파일이 있는 경우에만 파일을 복사할 수 있으며 대상 파일에는 영향이 없습니다.
'//SourceFile=s_FileName
If fileExist Then
Dim MyFile
If s_FileName=s_DestinationFile Then
showErr "같은 파일 이름을 같은 디렉토리에 복사하는 것을 금지합니다:("
End IF
Set MyFile = o_Fso.GetFile(s_FileName)
MyFile .Copy ( s_DestinationFile)
Else
showErr "파일이 더 이상 존재하지 않습니다."
End if

End Function

Public Function MoveFile()
If fileExist Then
Dim SourceFile
If s_FileName=s_DestinationFile Then
showErr "동일한 파일 이름을 동일한 디렉터리로 이동하는 것을 금지합니다:("
End IF
o_Fso.MoveFile s_FileName,s_DestinationFile
Else
showErr "파일이 더 이상 존재하지 않습니다:("
End If

End Function

'=============== = =============================== 디렉토리 작업

'디렉토리 이름 설정
공용 속성 Let FolderName (Byval Values)
s_FolderName=Values
'checkFolder' 파일 확인
End Property

'대상 디렉토리 이름 설정
Public Property Let DestinationFolder(Byval Values)
s_DestinationFolder= Values
끝 속성

'디렉토리 크기 가져오기

'디렉터리 생성 정보 가져오기

'디렉터리 존재 여부 판단

'디렉토리 생성

'디렉토리 삭제

'디렉토리 복사

'디렉토리 이동

'디렉토리 이름 바꾸기

'======== == =====================================순회 연산

수업 종료

myFile=new Cls_FSO 설정
myFile.FileName=Server.MapPath("file.txt")
'myFile.CreateTxtFile()
myFile.WriteTxtFile "Test",2
myFile .DestinationFile=Server.MapPath("file2.txt")
myFile.CopyFile()
'myFile.FileName=Server.MapPath("file2.txt")
'myFile.DeleteFile()
response.Write(myFile.FileSize)
i =0 ~ 8
response.Write(myFile.ShowFileAccessInfo(i) )
response.Write("
")
다음

%>


위 내용은 파일 작업 문제에 대한 Asp 요약의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!

성명
본 글의 내용은 네티즌들의 자발적인 기여로 작성되었으며, 저작권은 원저작자에게 있습니다. 본 사이트는 이에 상응하는 법적 책임을 지지 않습니다. 표절이나 침해가 의심되는 콘텐츠를 발견한 경우 admin@php.cn으로 문의하세요.
PHP8.0中的文件操作:文件监控PHP8.0中的文件操作:文件监控May 14, 2023 pm 02:21 PM

随着Web应用程序的不断发展,PHP已经成为了Web开发中最重要的编程语言之一。作为一门灵活性极强的编程语言,PHP的每个版本都带来了新的功能和优化,为了满足不同的需求应用场景。在PHP8.0版本中,新增了一个非常实用的文件操作功能,即文件监控。这个功能非常适用于那些需要对文件变化进行监控和处理的应用场景,比如文件备份、文件同步、日志监控等等。本文将带大家

学习Go语言中的文件操作函数并实现文件的加密压缩上传下载功能学习Go语言中的文件操作函数并实现文件的加密压缩上传下载功能Jul 29, 2023 pm 10:37 PM

学习Go语言中的文件操作函数并实现文件的加密压缩上传下载功能Go语言是一种开源的静态类型编程语言,它以其高效性能和简洁的语法在开发领域广受欢迎。在Go语言的标准库中,提供了丰富的文件操作函数,使得对文件进行读写、加密压缩、上传下载等操作变得非常简单。本文将介绍如何使用Go语言中的文件操作函数,实现对文件进行加密压缩、上传下载的功能。首先,我们需要导入相关的三

PHP文件操作实例:读取CSV文件PHP文件操作实例:读取CSV文件Jun 20, 2023 am 11:42 AM

PHP是一种广泛应用于Web开发的流行编程语言。在Web应用程序中,文件操作是一个基本而常见的功能。本文将介绍如何使用PHP读取CSV文件并将其显示在HTML表格中。CSV是一种常见的文件格式,用于将表格数据导入到电子表格软件中(如Excel)。csv文件通常由许多行组成,每行由逗号分隔的值组成。第一行通常包含列头,它们描述各列值的含义。这里我们将使用PHP

php如何使用SplFileInfo进行文件操作?php如何使用SplFileInfo进行文件操作?Jun 01, 2023 pm 07:01 PM

作为一种广泛使用的服务器端编程语言,PHP不仅提供了许多方便的文件处理函数,而且还提供了一些更为高级的文件操作类。其中一个比较有用的类就是SplFileInfo,它能够让我们更加灵活、高效地进行文件读写操作。本文将介绍如何使用PHP中的SplFileInfo类进行文件操作。一、SplFileInfo类的概述SplFileInfo类是PHP中的一个内置类(不需

php如何使用fopen、fwrite和fclose进行文件操作?php如何使用fopen、fwrite和fclose进行文件操作?Jun 01, 2023 am 08:46 AM

在PHP开发中,对文件的操作是非常常见的。一般情况下,我们需要进行文件的读取、写入、删除等操作。其中,文件的读取可以使用fopen函数和fread函数,文件的写入可以使用fopen函数、fwrite函数和fclose函数。本文将介绍php如何使用fopen、fwrite和fclose进行文件操作。一、fopen函数fopen函数用于打开文件,它的语法如下:r

如何使用Java中的Files函数进行文件操作如何使用Java中的Files函数进行文件操作Jun 26, 2023 pm 04:21 PM

在Java编程语言中,经常需要进行文件的读取、写入、复制、删除等操作。Java提供了一组Files类的函数来进行文件操作。本文将介绍如何使用Java中的Files函数进行文件操作。导入所需的包在进行文件操作之前,首先要导入Java的io包和nio包:importjava.io.File;importjava.io.IOException;import

PHP中的安全文件操作技术解析PHP中的安全文件操作技术解析Jul 02, 2023 pm 04:48 PM

PHP是一种广泛应用于Web开发的脚本语言,众所周知,网络环境中存在着各种各样的安全风险。在PHP文件操作过程中,保证安全性显得尤为重要。本文将对PHP中的安全文件操作技术进行详细解析,以帮助开发人员加强对文件操作的安全防护。一、文件路径注入(PathTraversal)文件路径注入是指攻击者通过输入恶意参数,成功地绕过文件系统的访问控制,访问不在预期访问

asp内置对象有哪些asp内置对象有哪些Nov 09, 2023 am 11:32 AM

asp内置对象有Request、Response、Session、Application、Server、Session.Contents、Application.Contents、Server.CreateObject、Server.MapPath、Server.Execute、Server.Transfer等。详细介绍:1、Request:表示HTTP请求对象等等。

See all articles

핫 AI 도구

Undresser.AI Undress

Undresser.AI Undress

사실적인 누드 사진을 만들기 위한 AI 기반 앱

AI Clothes Remover

AI Clothes Remover

사진에서 옷을 제거하는 온라인 AI 도구입니다.

Undress AI Tool

Undress AI Tool

무료로 이미지를 벗다

Clothoff.io

Clothoff.io

AI 옷 제거제

AI Hentai Generator

AI Hentai Generator

AI Hentai를 무료로 생성하십시오.

뜨거운 도구

스튜디오 13.0.1 보내기

스튜디오 13.0.1 보내기

강력한 PHP 통합 개발 환경

SublimeText3 중국어 버전

SublimeText3 중국어 버전

중국어 버전, 사용하기 매우 쉽습니다.

SublimeText3 Linux 새 버전

SublimeText3 Linux 새 버전

SublimeText3 Linux 최신 버전

메모장++7.3.1

메모장++7.3.1

사용하기 쉬운 무료 코드 편집기

드림위버 CS6

드림위버 CS6

시각적 웹 개발 도구