ASP文件操作大全

Longe

ASP文件操作大全
, v. ~& u  \. R3 `4 f# ?+ P" W<%
Class Cls_FSO
Public objFSO
Private Sub Class_Initialize()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub class_terminate()
Set objFSO = Nothing
End Sub

'=======文件操作========
0 R" X" E  o; \) V'取文件大小
7 I$ N5 U3 P" {! WPublic Function GetFileSize(FileName)
1 a' A# P# v: e& d4 X# hDim f
If ReportFileStatus(FileName) = 1 Then
8 B$ f# a9 L9 T: R$ o' bSet f = objFSO.Getfile(FileName)
; K" L3 H, u0 R* V0 C( AGetFileSize = f.Size
Else
GetFileSize = -1
9 _' E8 d) F& \  |End if
) S& z% W2 y2 {3 `) j4 mEnd Function
" ~0 j2 J7 \1 a. G: }" w6 r
3 D$ \' o, @8 j: D'文件删除
Public Function deleteAFile(FileSpec)
4 `" l) _% k7 h; A3 v/ r( P* {: Q- l+ k& M1 wIf ReportFileStatus(FileSpec) = 1 Then
objFSO.deleteFile(FileSpec)
deleteAFile = 1
Else
deleteAFile = -1
End if
End Function
; [3 k- k) T" Y5 j
4 C. p7 ^3 I1 X% b) s* J'显示文件列表
Public Function ShowFileList(FolderSpec)
Dim f, f1, fc, s
4 C7 y: U! k. m/ _8 pIf ReportFolderStatus(FolderSpec) = 1 Then
Set f = objFSO.GetFolder(FolderSpec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "|"
8 x: ]# ^5 Y% V2 mNext
ShowFileList = s
Else
ShowFileList = -1
/ z0 s' W, o3 @3 r: X) G) h( TEnd if
& B# Z3 x! v+ g, mEnd Function

'文件复制
Public Function CopyAFile(SourceFile, DestinationFile)
3 s, B$ T5 o2 U& M5 t! T- gDim MyFile
) {- [6 E+ b) jIf ReportFileStatus(SourceFile) = 1 Then
* o  {; b. ]# `& T- }0 @% ^6 OSet MyFile = objFSO.GetFile(SourceFile)
  F& P4 z7 s* R6 V6 u& r3 SMyFile.Copy (DestinationFile)
" m. P0 n3 p+ `- U1 sCopyAFile = 1
" Y( S) S% [7 c# T; fElse
CopyAFile = -1
End if
End Function

+ Z# |& F+ X% V4 I7 p'文件移动
( L( D5 @: S: R2 B  T: ]9 D( ?Public Function MoveAFile(SourceFile,DestinationFile)
If ReportFileStatus(SourceFile) = 1 And ReportFileStatus(DestinationFileORPath) = -1 Then
2 _2 R, c& M1 ?/ w7 W+ T* x, pobjFSO.MoveFile SourceFile,DestinationFileORPath
MoveAFile = 1
2 p- T  U1 F9 m+ E5 k8 d0 eElse
MoveAFile = -1
End if
End Function

'文件是否存在？
Public Function ReportFileStatus(FileName)
  h' F1 ?0 K4 s9 x) \Dim msg
msg = -1
If (objFSO.FileExists(FileName)) Then
msg = 1
Else
7 a* l4 c/ z4 d# a% i4 ]5 rmsg = -1
End If
2 p: E- W" K$ R: rReportFileStatus = msg
$ I! j! E% A6 Z+ a# `End Function
% A9 }# T- N1 s$ s! S; X
; ~4 `) k0 c) e1 K4 v# P, g'文件创建日期
Public Function ShowDatecreated(FileSpec)
Dim f
If ReportFileStatus(FileSpec) = 1 Then
Set f = objFSO.GetFile(FileSpec)
ShowDatecreated = f.Datecreated
% M* D' l3 [8 P5 X2 b+ uElse
ShowDatecreated = -1
End if
End Function

'文件属性
Public Function GetAttributes(FileName)
- S4 g0 R2 E5 v# w' p+ O! BDim f
- W9 e: E- U7 ^% e( HDim strFileAttributes
; G  F$ F2 y) _4 j) rIf ReportFileStatus(FileName) = 1 Then
Set f = objFSO.GetFile(FileName)
select Case f.attributes
' o- a" y. L* TCase 0 strFileAttributes = "普通文件。没有设置任何属性。 "
Case 1 strFileAttributes = "只读文件。可读写。 "
. [6 b  p% d3 M. c/ |) kCase 2 strFileAttributes = "隐藏文件。可读写。 "
Case 4 strFileAttributes = "系统文件。可读写。 "
+ V) e+ c. ~2 i0 z* TCase 16 strFileAttributes = "文件夹或目录。只读。 "
Case 32 strFileAttributes = "上次备份后已更改的文件。可读写。 "
& `/ u* T' X2 \# s+ e' cCase 1024 strFileAttributes = "链接或快捷方式。只读。 "
# {" w6 E" ?  z! m" l# V1 ?Case 2048 strFileAttributes = " 压缩文件。只读。"
End select
/ V* V/ l1 E3 _' r7 _, p$ gGetAttributes = strFileAttributes
Else
1 P6 Y, J( l% D' U" ]0 ?GetAttributes = -1
End if
3 V( K, g: S5 j4 w2 E4 yEnd Function
1 ?: I& q8 L: ^
9 \) ~' d, E' E+ X# r'最后一次访问/最后一次修改时间
. q  h: f  ~0 ?3 u3 X9 SPublic Function ShowFileAccessInfo(FileName,InfoType)
'//功能：显示文件创建时信息
'//形参：文件名,信息类别
'// 1 -----创建时间
3 ^% \  b$ c) q9 K3 V+ r0 [# B  S'// 2 -----上次访问时间
& e+ i' ~$ V* e& C'// 3 -----上次修改时间
'// 4 -----文件路径
'// 5 -----文件名称
$ Z( Q0 J8 N1 A2 ]% N. _6 P; E'// 6 -----文件类型
'// 7 -----文件大小
'// 8 -----父目录
'// 9 -----根目录
Dim f, s
If ReportFileStatus(FileName) = 1 then
/ ~, ]7 ]; N2 s$ g7 PSet f = objFSO.GetFile(FileName)
select Case InfoType
Case 1 s = f.Datecreated
$ C+ M; p( H* Q9 E8 OCase 2 s = f.DateLastAccessed
Case 3 s = f.DateLastModified
Case 4 s = f.Path
Case 5 s = f.Name
- k3 W6 V" B1 B+ JCase 6 s = f.Type
Case 7 s = f.Size
) e7 y, Q6 j6 k( \, e: Q- ]Case 8 s = f.ParentFolder
Case 9 s = f.RootFolder
End select
ShowFileAccessInfo = s
ELse
! J3 R1 X- R% z* i8 n0 o: I, }ShowFileAccessInfo = -1
End if
- r  y: `; u9 t# J( W7 @End Function

'写文本文件
Public Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
  y# `( d7 W# E6 o& m, W# ^0 RDim f, m
select Case WriteORAppendType
Case 1: '文件进行写操作
3 v- U! H$ ]2 x- }- rSet f = objFSO.OpenTextFile(FileName, ForWriting, True)
  K* Y  B6 E1 O& D9 if.Write TextStr
f.Close
+ ^8 C9 E- l6 p" S" |; lIf ReportFileStatus(FileName) = 1 then
WriteTxtFile = 1
, R* J/ S" n% |" A3 o3 }Else
WriteTxtFile = -1
. O. x9 G/ |9 B/ FEnd if
Case 2: '文件末尾进行写操作
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForAppending)
f.Write TextStr
f.Close
WriteTxtFile = 1
6 x  F2 \! M) G, FElse
WriteTxtFile = -1
) ~/ L7 r+ v0 A7 u+ vEnd if
1 V1 ~0 s. _1 L+ n9 R1 g7 C' eEnd select
End Function

'读文本文件
8 [% ]$ J0 d8 \, U+ T, iPublic Function ReadTxtFile(FileName)
Const ForReading = 1, ForWriting = 2
Dim f, m
1 E! e! e3 m  r$ i0 k% ZIf ReportFileStatus(FileName) = 1 then
; E4 N, _5 T: r. o- X- PSet f = objFSO.OpenTextFile(FileName, ForReading)
- }( c- n3 ]9 D8 Km = f.ReadLine
ReadTxtFile = m
* l' @! W8 G9 z8 L0 A, Rf.Close
Else
ReadTxtFile = -1
4 n/ d* N  I: z$ r; i# WEnd if
End Function
* E3 J# p9 U3 E1 j
'建立文本文件
* R  ^9 s' }1 W: b; x
'=======目录操作========
'取目录大小
Public Function GetFolderSize(FolderName)
3 A' P$ W9 R+ l! Z/ B) VDim f
If ReportFolderStatus(FolderName) = 1 Then
' ?/ t8 S7 y* d( f  \/ HSet f = objFSO.GetFolder(FolderName)
GetFolderSize = f.Size
2 ]) _7 f6 {( ~5 d7 T4 LElse
1 q0 l: W& I2 RGetFolderSize = -1
End if
End Function
6 ]( X0 V  g3 t7 \( v# G4 ~
7 R6 r/ o* n) O7 m'创建的文件夹
Public Function createFolderDemo(FolderName)
Dim f
If ReportFolderStatus(Folderspec) = 1 Then
; _$ E6 b* J5 M1 n% }+ VcreateFolderDemo = -1
Else
  w  T/ _- ~/ N# T( V( s( j) W7 tSet f = objFSO.createFolder(FolderName)
createFolderDemo = 1
, s! o$ r' V2 _+ }End if
End Function
# C9 ]6 F" m/ ]/ D
'目录删除
Public Function deleteAFolder(Folderspec)
Response.write Folderspec
- T- m8 t7 k6 qIf ReportFolderStatus(Folderspec) = 1 Then
objFSO.deleteFolder (Folderspec)
) B9 h. B  B* ^deleteAFolder = 1
Else
deleteAFolder = -1
9 H  u* C& c1 B" I3 n6 sEnd if
End Function
+ _. Z8 k( {% e
'显示目录列表
  F1 B0 a. J; R# |/ q9 H2 mPublic Function ShowFolderList(FolderSpec)
8 U: i: B" E" d8 A6 x4 a6 }; a( Z' uDim f, f1, fc, s
If ReportFolderStatus(FolderSpec) = 1 Then
3 _7 w$ Z6 |; G" dSet f = objFSO.GetFolder(FolderSpec)
$ R. X. ]9 S6 V% j- NSet fc = f.SubFolders
2 ?5 p6 p6 @' o& U5 U; |/ v4 NFor Each f1 in fc
s = s & f1.name
4 Y& j( I0 v- @s = s & "|"
) s; i/ W1 L4 z3 @3 {1 U6 wNext
ShowFolderList = s
" b8 B7 A8 X1 b7 C/ r( |$ b) P# zElse
1 z/ r8 \: H: j) K- |- ^ShowFolderList = -1
# G; b) v- x: d. [% p2 T5 ]End if
8 ]7 S( D% e9 DEnd Function
  \$ Y+ {. H. E0 l
" [" k: h% t3 {1 ]( ]$ @'目录复制
Public Function CopyAFolder(SourceFolder,DestinationFolder)
( n1 u6 h) i& {  XobjFSO.CopyFolder SourceFolder,DestinationFolder
/ _8 b! S( b% q0 ^CopyAFolder = 1
CopyAFolder = -1
End Function

9 C1 ?! h) C/ O0 ?0 [. f) @
'目录进行移动
: _  g$ h5 n8 O: v$ ]8 t( U' TPublic Function MoveAFolder(SourcePath,DestinationPath)
$ U* C9 r9 X- d' p, `If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then
6 p, S+ s% U' h) c/ G( _2 E' f$ u4 u) fobjFSO.MoveFolder SourcePath, DestinationPath
1 e1 A& P5 O( w* n; Q7 g% tMoveAFolder = 1
Else
MoveAFolder = -1
5 u* J$ ?7 n! X5 BEnd if
End Function

'判断目录是否存在
- I0 S8 `* a8 p% I: d" ~Public Function ReportFolderStatus(fldr)
Dim msg
msg = -1
If (objFSO.FolderExists(fldr)) Then
! B) m$ x# z+ U) s# B5 kmsg = 1
, M, F8 d! A! N4 g' K! g5 ZElse
) ?0 q6 B' t, h3 `+ jmsg = -1
! i5 J3 j3 @" t# N( t+ mEnd If
: i  [5 g# q: J5 H( a5 Q0 W3 N6 RReportFolderStatus = msg
End Function

8 a( J+ `% u7 \' P( ]3 @* M'目录创建时信息
Public Function ShowFolderAccessInfo(FolderName,InfoType)
'//功能：显示目录创建时信息
'//形参：目录名,信息类别
'// 1 -----创建时间
; D% k. y' d/ y+ m' _0 j4 ~2 }1 K'// 2 -----上次访问时间
'// 3 -----上次修改时间
9 B/ l, |" E  ]+ W( V' W% k'// 4 -----目录路径
'// 5 -----目录名称
3 e+ H% j  k+ p; M5 _: ~'// 6 -----目录类型
' j$ Y8 @  e5 e'// 7 -----目录大小
* ~! ?; a7 V+ z4 O9 u'// 8 -----父目录
'// 9 -----根目录
Dim f, s
  J: t* W  m1 M. zIf ReportFolderStatus(FolderName) = 1 then
6 F7 I$ J5 t5 @1 e$ B( U& Y' `: sSet f = objFSO.GetFolder(FolderName)
select Case InfoType
& K" L5 Z4 E' ]2 w4 tCase 1 s = f.Datecreated
3 |; {2 {# u& \2 F( W7 f; N, z' w) v/ ~Case 2 s = f.DateLastAccessed
6 N) y' R3 ]5 s* ^' ?Case 3 s = f.DateLastModified
Case 4 s = f.Path
% {: c) n! _0 A# _6 g$ Z, WCase 5 s = f.Name
4 t& f8 u+ [( X. l" l9 FCase 6 s = f.Type
Case 7 s = f.Size
" Y. x& J* I$ g- f: JCase 8 s = f.ParentFolder
0 v( i# N# ]) g* GCase 9 s = f.RootFolder
End select
ShowFolderAccessInfo = s
ELse
" x( t; P, b6 u4 A/ }7 T' t; |7 NShowFolderAccessInfo = -1
' ~( E# X1 r6 p# R& REnd if
End Function

2 g+ }4 r% m5 t'遍历目录
Public Function DisplayLevelDepth(pathspec)
Dim f, n ,Path
Set f = objFSO.GetFolder(pathspec)
If f.IsRootFolder Then
DisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder
Else
Do Until f.IsRootFolder
* `6 t6 h- W( {" l- HPath = Path & f.Name &"<br>"
9 m1 b8 I+ k; i& Q' r/ g7 YSet f = f.ParentFolder
) }4 E- J0 T6 ]! _( [- Sn = n + 1
Loop
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & " 的文件夹。<br>" & Path
- H  l0 h. s. yEnd If
End Function
- J- U. p, N4 `/ U) Q
& J6 [7 ~% M5 T. B9 e" L. R0 y, {'========磁盘操作========
* V# A5 r* g! ?# E'驱动器是否存在？
& b7 o5 S' H# X) ^Public Function ReportDriveStatus(drv)
Dim msg
msg = -1
If objFSO.DriveExists(drv) Then
2 d. [( g, k5 l0 W1 i1 vmsg = 1
Else
. ^6 A3 k1 ~4 c; V, u# }msg = -1
  F4 m7 s1 g2 a# r+ u$ \End If
ReportDriveStatus = msg
End Function

'可用的返回类型包括 FAT、NTFS 和 CDFS。
, L9 o7 p' ]4 Z* ~5 @2 m8 fPublic Function ShowFileSystemType(drvspec)
Dim d
If ReportDriveStatus(drvspec) = 1 Then
Set d = objFSO.GetDrive(drvspec)
* K7 D0 {6 w2 M8 K3 J1 A3 BShowFileSystemType = d.FileSystem
ELse
ShowFileSystemType = -1
, Q" o$ t2 F, _. e# o3 BEnd if
End Function
4 v& Q0 q9 @3 Q5 d7 G8 ?5 @9 }End Class
; T+ f: p$ r/ t( N9 r6 G' l%>