파일 작업 문제에 대한 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 중국어 웹사이트의 기타 관련 기사를 참조하세요!