ファイル操作の問題の 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 .type ----ファイルタイプ
ケース7
s = f.Size '// 7 -----ファイルサイズ
ケース8
s = f.ParentFolder '// 8 -----親ディレクトリ
ケース 9
s = f.rootfolder '// 9 ----- ルート ディレクトリ
End Select
ShowfileAccessinfo = S
Else
ShowfileAccessinfo = "ファイルが存在しません: ("
End If

End Function

leexistle fileExist = True
'ファイルパスをチェック

'ファイルが存在するかチェック
If Not(o_Fso.FileExists(s_FileName)) then
fileExist = False
'End If
End Function

Private Function showErr(s_Msg)
Response.Write( s_Ms g)
Set Fso=Nothing
Response.End()
End Function

Public Function CreateTxtFile()
'//空のファイルを作成
If fileExist then
showErr "ファイルは既に存在します: ("
Else
Dim f
Set f= o_Fso.CreateTextFile(s_FileName)
f.Close
End If
End Function

Public Function WriteTxtFile(TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
Case WriteORAppendType を選択します
1: Set f = o_Fso.OpenTextFile(s_FileName, ForWriting, True)
f. Not fileExist then
showErr "ファイルの書き込みに失敗しました"
End if
ケース 2: ファイルの最後に
iF ファイルが存在する場合
set f = o_fso.opentextFile (S_filename, ForaPpending)
F.Write TextStr
F.Close
Showerr "失敗"
End IF
END S Electn End Function e
Public Function ReadTxtFile()
Const ForReading = 1, ForWriting = 2 dim f、m
's' s 's' s 's' s 's ‐ ‐ dim f、'f.skipline
readtxtfile =m
fを使用します。 )
If fileExist then
o_Fso.DeleteFile (s_FileName)
Else
showErr "ファイルはもう存在しません:("
End if
End Function

Public Function CopyFile()
'//関数: ファイルはコピーのみ可能ですソースファイルが存在し、宛先ファイルは効果がない場合
'//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

'====================================== = ======= ディレクトリ操作

'ディレクトリ名を設定
Public Property Let FolderName(Byval Values)
s_FolderName=Values
'checkFolder 'ファイルを確認する
End Property

'対象ディレクトリ名を設定
Public Property Let DestinationFolder( Byval Values)
s_DestinationFolder=Values
End Property

'ディレクトリサイズを取得

'ディレクトリ作成情報を取得

'ディレクトリが存在するか判断

'ディレクトリを作成

'ディレクトリを削除

'ディレクトリをコピー

'ディレクトリを移動

'ディレクトリの名前を変更

'====================================== ====== ======トラバーサル操作

エンドクラス

Set myFile=new Cls_FSO
myFile.FileName=Server.MapPath("file.txt")
'myFile.CreateTxtFile()
myFile。 WriteTxtFile "テスト",2
myFile.DestinationFile=Server.MapPath("file2.txt")
myFile.CopyFile()
'myFile.FileName=Server.MapPath("file2.txt")
'myFile.DeleteFile()
response.Write(myFile .FileSize)
for i =0 to 8
response.Write(myFile.ShowFileAccessInfo(i) )
response.Write("
")
next

%>

以上がファイル操作の問題の ASP 概要の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。