ASP文件操作大全

Longe

ASP文件操作大全
! P8 F/ ~; v7 K, ~' {<%
Class Cls_FSO
$ g9 G5 |) U) c0 iPublic objFSO
Private Sub Class_Initialize()
) D( m1 q0 P# J6 v4 `$ S/ wSet objFSO = Server.CreateObject("Scripting.FileSystemObject")
% Y* L  o3 k7 Y. [End Sub
4 d9 f/ b; |# r0 y4 U( vPrivate Sub class_terminate()
/ J5 _+ K9 ]% l4 ^: x  J" BSet objFSO = Nothing
6 y/ k6 O& i; h+ `  x7 F2 J7 WEnd Sub
. t# n6 W8 L) [$ f6 R" x
'=======文件操作========
'取文件大小
* F- a) h6 s  \& b( \4 p6 n8 }# {Public Function GetFileSize(FileName)
Dim f
: R2 V9 o1 U" {( ]- bIf ReportFileStatus(FileName) = 1 Then
Set f = objFSO.Getfile(FileName)
GetFileSize = f.Size
Else
GetFileSize = -1
End if
( G2 l5 J& T) [+ R$ ]) X) PEnd Function

'文件删除
1 }" _+ Z9 w: j5 XPublic Function deleteAFile(FileSpec)
+ y  g1 ?% O- s/ Q2 ?, N! oIf ReportFileStatus(FileSpec) = 1 Then
objFSO.deleteFile(FileSpec)
deleteAFile = 1
Else
deleteAFile = -1
End if
End Function
0 B; ?$ x. B1 B) J, F, a
  @. [; g+ w! G  M9 [0 X'显示文件列表
Public Function ShowFileList(FolderSpec)
' c; @4 U. G; BDim f, f1, fc, s
If ReportFolderStatus(FolderSpec) = 1 Then
Set f = objFSO.GetFolder(FolderSpec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
. L- u* ~" [2 U5 o; i8 gs = s & "|"
9 H8 G, R/ ?) g8 e# L  M* xNext
ShowFileList = s
Else
$ I: \+ z( T9 Y, KShowFileList = -1
End if
! F$ i' c- \# Y5 fEnd Function
7 K9 s" O. Y% E2 E
) g! I! Q0 k% L9 K) d. e1 M  z+ p" x'文件复制
Public Function CopyAFile(SourceFile, DestinationFile)
Dim MyFile
If ReportFileStatus(SourceFile) = 1 Then
$ h# j9 I- D* K, bSet MyFile = objFSO.GetFile(SourceFile)
MyFile.Copy (DestinationFile)
CopyAFile = 1
Else
CopyAFile = -1
2 d& M. c8 ]) K/ BEnd if
- w  L/ p6 H; g& z8 e; E- D- L; \End Function

5 q3 ^3 H0 d+ B' o2 F( X: f'文件移动
Public Function MoveAFile(SourceFile,DestinationFile)
6 J( s# ?3 w$ H/ u6 Q7 o. TIf ReportFileStatus(SourceFile) = 1 And ReportFileStatus(DestinationFileORPath) = -1 Then
objFSO.MoveFile SourceFile,DestinationFileORPath
MoveAFile = 1
Else
2 i8 N8 O2 m' F  SMoveAFile = -1
End if
End Function
8 k- y* N9 o( ~5 O( D3 @
# q$ Q5 _! v2 }! t'文件是否存在？
6 ]% K+ s) _0 Z+ mPublic Function ReportFileStatus(FileName)
Dim msg
5 v5 m( {" ?! C9 c- O5 mmsg = -1
If (objFSO.FileExists(FileName)) Then
msg = 1
Else
msg = -1
End If
4 E+ b* C3 T# h# x9 }2 _' HReportFileStatus = msg
6 R, ]+ R5 ]. a4 @5 F9 h& ?2 mEnd Function

'文件创建日期
Public Function ShowDatecreated(FileSpec)
7 ]% Q: C1 H& O& ODim f
  g. ]- N7 l7 E& D/ FIf ReportFileStatus(FileSpec) = 1 Then
Set f = objFSO.GetFile(FileSpec)
ShowDatecreated = f.Datecreated
0 S- _+ t4 e$ M3 u; h: r) lElse
* H8 C& \% z4 h( J( I3 M* T; i  lShowDatecreated = -1
End if
End Function
- R# r. h5 ~% f1 ~, \6 v- b9 L7 {
8 V+ k" I9 @$ p7 n. ]# I3 z'文件属性
/ R0 j. X% n; }Public Function GetAttributes(FileName)
$ S+ e8 l+ D) |Dim f
; p: W) e% f- e2 P8 c4 F) `: ODim strFileAttributes
If ReportFileStatus(FileName) = 1 Then
% z- `) P; r( R- f* p6 b  B- WSet f = objFSO.GetFile(FileName)
# k1 C% J* N; e2 y" U% i3 K7 dselect Case f.attributes
  Y; [* q0 j7 f' M! L6 wCase 0 strFileAttributes = "普通文件。没有设置任何属性。 "
+ g* `' K" B1 M4 [3 |Case 1 strFileAttributes = "只读文件。可读写。 "
Case 2 strFileAttributes = "隐藏文件。可读写。 "
Case 4 strFileAttributes = "系统文件。可读写。 "
3 [! n+ H2 N5 T7 m* S- z1 u2 KCase 16 strFileAttributes = "文件夹或目录。只读。 "
3 Z; {+ S, K% p7 zCase 32 strFileAttributes = "上次备份后已更改的文件。可读写。 "
- M* G3 @) [3 ^Case 1024 strFileAttributes = "链接或快捷方式。只读。 "
Case 2048 strFileAttributes = " 压缩文件。只读。"
End select
GetAttributes = strFileAttributes
Else
8 Z. |0 O' U& U* xGetAttributes = -1
8 e; g4 o; K; [End if
End Function

: U6 n+ x' r' f& m'最后一次访问/最后一次修改时间
5 G- J: j  t% N- H* F  H6 |9 xPublic Function ShowFileAccessInfo(FileName,InfoType)
'//功能：显示文件创建时信息
'//形参：文件名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
! H, X0 i% {9 T( S4 I/ K. F. _( I'// 4 -----文件路径
'// 5 -----文件名称
/ Z7 g: v% q1 `! b8 V'// 6 -----文件类型
'// 7 -----文件大小
2 Z7 _( f7 B% Q# i4 e3 o'// 8 -----父目录
'// 9 -----根目录
Dim f, s
" h; h9 D; Z4 V0 i" FIf ReportFileStatus(FileName) = 1 then
; L: |8 q# A( M0 i  jSet f = objFSO.GetFile(FileName)
3 @7 o6 s  X+ H. F" `select Case InfoType
" b6 r' q5 V2 yCase 1 s = f.Datecreated
$ Y* H. M" I7 `9 sCase 2 s = f.DateLastAccessed
( p; U4 e- V) D9 j9 q2 ]' E6 DCase 3 s = f.DateLastModified
; @2 K, _5 ]; y! N' A- w8 a" GCase 4 s = f.Path
, n: g4 v& r2 I6 e( _5 p+ aCase 5 s = f.Name
! @& p* a' a5 i5 H& ^$ bCase 6 s = f.Type
Case 7 s = f.Size
Case 8 s = f.ParentFolder
Case 9 s = f.RootFolder
4 U0 H, _: ]( m$ _, y) i2 |1 S# ]" bEnd select
- ]  r2 i4 y. }& Q9 nShowFileAccessInfo = s
ELse
ShowFileAccessInfo = -1
# A( m* u2 r$ sEnd if
% l$ V  X- g& V- lEnd Function

4 G) ?" O% ~% v# C' v1 U, E'写文本文件
1 e$ c; d' I% F  W4 dPublic Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
. S' w% S2 a  F+ R% u' @: t( fselect Case WriteORAppendType
3 L; w# T, G# A  b& W' f. v& oCase 1: '文件进行写操作
# Y$ r: M, ^  G& l+ E4 f3 x- s# oSet f = objFSO.OpenTextFile(FileName, ForWriting, True)
( `! E1 R) L+ h. ?+ I) O3 qf.Write TextStr
2 ?! v2 E. A, b( J8 C2 q4 A4 |4 Uf.Close
8 B5 P. [' s$ |: ?: y4 WIf ReportFileStatus(FileName) = 1 then
WriteTxtFile = 1
# Y) q6 ]" l6 OElse
- _& {8 X  A% O+ p( A3 P+ zWriteTxtFile = -1
End if
& J, c' H* Z4 ^! p3 T$ @Case 2: '文件末尾进行写操作
' R* p4 Q3 t& `# z& ^% DIf ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForAppending)
: h- ~0 M" L+ E' \4 Hf.Write TextStr
f.Close
5 |  q' [5 m- T$ MWriteTxtFile = 1
Else
WriteTxtFile = -1
End if
End select
2 d4 }8 R3 R4 HEnd Function

'读文本文件
3 K; A7 i2 g) g9 @( \* @. e7 {Public Function ReadTxtFile(FileName)
Const ForReading = 1, ForWriting = 2
8 [3 O0 V# ?1 QDim f, m
) g) j/ K  z* R0 D( e# P, p! YIf ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForReading)
9 a" ~) x- ]/ am = f.ReadLine
ReadTxtFile = m
f.Close
. e" S" D1 t' y0 e8 t2 tElse
ReadTxtFile = -1
0 F; G: }& [# [1 z% i) L! pEnd if
End Function

'建立文本文件

'=======目录操作========
$ q. V+ {2 }& s; I8 t5 V, @* b9 Z'取目录大小
3 R1 c2 Z7 i0 @! E$ TPublic Function GetFolderSize(FolderName)
3 U) C1 G% d7 B: {" s  C) TDim f
If ReportFolderStatus(FolderName) = 1 Then
Set f = objFSO.GetFolder(FolderName)
8 O, B( M: _6 d3 M! y  vGetFolderSize = f.Size
Else
* Z4 h/ U' A% X' h* _GetFolderSize = -1
End if
8 L( A% E! k" N/ T% }* REnd Function
2 o  [; f4 F* n3 p6 n- ^  w) c: P+ U
'创建的文件夹
Public Function createFolderDemo(FolderName)
Dim f
If ReportFolderStatus(Folderspec) = 1 Then
createFolderDemo = -1
Else
Set f = objFSO.createFolder(FolderName)
createFolderDemo = 1
. {5 ^: t! K  D! ^) {5 hEnd if
+ i7 N7 J  D: I8 N, yEnd Function
: W# ]' H0 p* [3 D$ X
* D6 y$ c: c" ~  E  k'目录删除
! r" n; _1 @0 a' UPublic Function deleteAFolder(Folderspec)
! ~7 a# j9 l$ v6 `$ o8 YResponse.write Folderspec
If ReportFolderStatus(Folderspec) = 1 Then
# g; I( i3 `( A. O+ SobjFSO.deleteFolder (Folderspec)
# S, o  x0 `7 QdeleteAFolder = 1
4 Y" |$ U1 n% M3 o4 A4 Y  O5 {Else
deleteAFolder = -1
% t3 `9 g4 n$ Y$ Q6 K, y, HEnd if
End Function
9 Y8 _* P" ~- e0 K8 r9 t& ~
'显示目录列表
Public Function ShowFolderList(FolderSpec)
) ~1 b$ s  L- KDim f, f1, fc, s
' c7 \6 V. `6 ?, J$ ^3 A$ Y" mIf ReportFolderStatus(FolderSpec) = 1 Then
Set f = objFSO.GetFolder(FolderSpec)
; \; T- f8 j1 X+ K. hSet fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
s = s & "|"
Next
ShowFolderList = s
4 h: m" P. e: z( i: k6 G1 b% w, yElse
ShowFolderList = -1
End if
End Function
9 \, `4 f  \: V2 I" Z4 u
'目录复制
+ a+ p* ?/ O+ v: x0 BPublic Function CopyAFolder(SourceFolder,DestinationFolder)
+ `- U# h/ C1 O4 y. i, e, bobjFSO.CopyFolder SourceFolder,DestinationFolder
CopyAFolder = 1
! `5 @: f+ [0 h9 j, E  N9 [, G8 \CopyAFolder = -1
End Function
! Z( b/ Q5 v* y) ~" e  S

'目录进行移动
! Z, P- W; U7 _$ j/ m$ E" RPublic Function MoveAFolder(SourcePath,DestinationPath)
$ s$ Z5 P0 R; W$ E0 AIf ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then
objFSO.MoveFolder SourcePath, DestinationPath
4 X! a6 y5 k8 h' w: U* h( Y5 N$ LMoveAFolder = 1
Else
MoveAFolder = -1
, U3 H" v9 I5 N% C- }0 FEnd if
  T$ i8 C/ q& }9 [" uEnd Function
5 p1 H" o4 c: [* a/ R
'判断目录是否存在
Public Function ReportFolderStatus(fldr)
6 u0 {) F" ?  LDim msg
msg = -1
) o& t) V+ w' {0 O+ aIf (objFSO.FolderExists(fldr)) Then
9 ~- e6 F+ M/ J2 umsg = 1
Else
' {2 |  R* R4 \msg = -1
1 _, n  q, M" c# N$ FEnd If
" w6 D8 I+ a5 n# T9 O1 eReportFolderStatus = msg
( y3 L1 A3 Q/ o2 L1 n  ?End Function

# V3 {  v) e# e- Y# s) c'目录创建时信息
+ u: E5 A" J4 K+ O8 a  e5 PPublic Function ShowFolderAccessInfo(FolderName,InfoType)
5 F" z6 \2 Q0 _0 b; g'//功能：显示目录创建时信息
/ q; O1 {  L+ b; K* M'//形参：目录名,信息类别
'// 1 -----创建时间
) @' \6 j; J# ~. {# X0 {'// 2 -----上次访问时间
9 W/ |- t/ C/ g" U) t. F# ~'// 3 -----上次修改时间
'// 4 -----目录路径
'// 5 -----目录名称
'// 6 -----目录类型
'// 7 -----目录大小
'// 8 -----父目录
; _/ p* k" @7 I6 r'// 9 -----根目录
, F4 _3 ~$ r& mDim f, s
: {. s0 w- j, g. V$ ]& G5 EIf ReportFolderStatus(FolderName) = 1 then
9 b+ c8 }: F: v9 n: J" Z1 v: wSet f = objFSO.GetFolder(FolderName)
select Case InfoType
Case 1 s = f.Datecreated
Case 2 s = f.DateLastAccessed
Case 3 s = f.DateLastModified
$ J! X! U4 [4 t# H- u! e9 ]Case 4 s = f.Path
Case 5 s = f.Name
8 E3 p0 B% l+ {# QCase 6 s = f.Type
9 `; `: W, Q' y2 U  m, dCase 7 s = f.Size
0 H; q% j2 i# O! A0 N# G& }Case 8 s = f.ParentFolder
Case 9 s = f.RootFolder
End select
ShowFolderAccessInfo = s
ELse
% O, ^* a! q7 L8 IShowFolderAccessInfo = -1
End if
( B. ~  i. |/ [6 |2 ?End Function
; {1 w, @8 z  X2 F
'遍历目录
2 A( }% s' @: A5 Z1 N# FPublic Function DisplayLevelDepth(pathspec)
8 A% E# K/ r) h$ Z# KDim f, n ,Path
Set f = objFSO.GetFolder(pathspec)
3 ?+ l+ w- o! s$ [If f.IsRootFolder Then
DisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder
Else
Do Until f.IsRootFolder
Path = Path & f.Name &"<br>"
# h6 W' S' W& z1 G- v3 a6 GSet f = f.ParentFolder
n = n + 1
& P2 ]  k- w3 e( Q* x! y6 lLoop
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & " 的文件夹。<br>" & Path
$ K5 m0 i6 b# \) H6 BEnd If
; J- u! Q* n" D. C4 z/ v4 GEnd Function

' i7 G& `5 A& X) W% V9 G'========磁盘操作========
'驱动器是否存在？
4 \7 {. g% u$ a  n9 C7 u; UPublic Function ReportDriveStatus(drv)
Dim msg
( V5 V4 S3 z. n; L$ l. {/ }msg = -1
* S  f/ B" q3 e1 t3 c' S& u" V0 E5 sIf objFSO.DriveExists(drv) Then
) N+ @. h- o; kmsg = 1
# w( `& H/ R+ G; {/ kElse
) C# K; H5 g1 C1 P- X" I4 amsg = -1
End If
7 N$ @6 B+ R# g5 UReportDriveStatus = msg
End Function
$ C  o: @0 i3 r* O! ]# ]
0 Y0 Y% ~6 j5 z: ~'可用的返回类型包括 FAT、NTFS 和 CDFS。
; ^  y, C- @1 w5 lPublic Function ShowFileSystemType(drvspec)
Dim d
If ReportDriveStatus(drvspec) = 1 Then
. L/ {0 s' |& bSet d = objFSO.GetDrive(drvspec)
6 @$ o. E: Z7 s* l! d- D( ~( `ShowFileSystemType = d.FileSystem
% J/ A8 I. d* g! R1 }# }0 sELse
ShowFileSystemType = -1
4 a  m7 A! u7 NEnd if
& z2 G3 t7 g7 ~9 a( I1 a1 s/ {0 u' }9 e& jEnd Function
# N, G6 u' _) [/ A: L6 F* HEnd Class
0 x9 T5 \, g/ }& G%>