文件、目录，文本文件等多种操作类

'Response.Write MoveAFile("f:\123\4561.exe","f:\123\4562.txt")
Function MoveAFile(SourceFile,DestinationFile)
'//功能：源文件存在时目的文件不存在时才能对文件进行移动
'//形参：源文件，目的文件
'//返回值：成功为1，失败为-1
'//
If ReportFileStatus(SourceFile)=1 And ReportFileStatus(DestinationFileORPath) =

-1 Then
fso.MoveFile SourceFile,DestinationFileORPath
MoveAFile = 1
Else
MoveAFile = -1
End if
End Function

'文件是否存在？
'Response.Write ReportFileStatus("G: oft\delphi\my_pro\代码库.exe")
Function ReportFileStatus(FileName)
'//功能：判断文件是否存在
'//形参：文件名
'//返回值：成功为1，失败为-1
'//
Dim msg
msg = -1
If (fso.FileExists(FileName)) Then
msg = 1
Else
msg = -1
End If
ReportFileStatus = msg
End Function


'文件创建日期
'Response.Write ShowDateCreated("G: oft\delphi\my_pro\代码库.exe")
'Response.Write ShowDateCreated("G: oft\delphi\my_pro\复件 代码库.exe")
Function ShowDateCreated(filespec)
'//功能：文件创建日期
'//形参：文件名
'//返回值：成功：文件创建日期，失败：-1
'//
Dim f
If ReportFileStatus(filespec) = 1 Then
Set f = fso.GetFile(filespec)
ShowDateCreated = f.DateCreated
Else
ShowDateCreated = -1
End if
End Function

'文件属性
'Response.Write GetAttributes("G: oft\delphi\my_pro\复件 代码库.exe")
Function GetAttributes(FileName)
'//功能：显示文件属性
'//形参：文件名
'//返回值：成功：文件属性，失败：-1
'//
Dim f,Str
If ReportFileStatus(FileName) = 1 Then
Set f = fso.GetFile(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
GetAttributes = Str
Else
GetAttributes = -1
End if
End Function

'最后一次访问/最后一次修改时间
'Response.Write ShowFileAccessInfo("G: oft\delphi\my_pro\复件 代码库.exe")
Function ShowFileAccessInfo(FileName,InfoType)
'//功能：显示文件创建时信息
'//形参：文件名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----文件路径
'// 5 -----文件名称
'// 6 -----文件类型
'// 7 -----文件大小
'// 8 -----父目录
'// 9 -----根目录
'//返回值：成功为文件创建时信息，失败：-1
'//
Dim f, s
If ReportFileStatus(FileName) = 1 then
Set f = fso.GetFile(FileName)
Select Case InfoType
Case 1 s = f.DateCreated '// 1 -----

创建时间
Case 2 s = f.DateLastAccessed '// 2 -----上次访问

时间
Case 3 s = f.DateLastModified '// 3 -----上次修改

时间
Case 4 s = f.Path '// 4

-----文件路径
Case 5 s = f.Name '// 5

-----文件名称
Case 6 s = f.Type '// 6

-----文件类型
Case 7 s = f.Size '// 7

-----文件大小
Case 8 s = f.ParentFolder '// 8 -----

父目录
Case 9 s = f.RootFolder '// 8 -----

根目录
End Select
ShowFileAccessInfo = s
ELse
ShowFileAccessInfo = -1
End if
End Function

'写文本文件
Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
Select Case WriteORAppendType
Case 1: '文件进行写操作
Set f = fso.OpenTextFile(FileName, ForWriting, True)
f.Write TextStr
f.Close
If ReportFileStatus(FileName) = 1 then
WriteTxtFile = 1
Else
WriteTxtFile = -1
End if
Case 2: '文件末尾进行写操作
If ReportFileStatus(FileName) = 1 then
Set f = fso.OpenTextFile(FileName, ForAppending)
f.Write TextStr

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!