ASP文件操作大全

Longe

ASP文件操作大全
<%
Class Cls_FSO
Public objFSO
( ?* Y8 m1 C4 jPrivate Sub Class_Initialize()
3 \  _# y! |/ O/ l- a  C0 w4 ]Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
" u' D4 k7 s7 t  }End Sub
2 V5 T" ?; r" o( [Private Sub class_terminate()
Set objFSO = Nothing
End Sub

'=======文件操作========
5 [9 z* n! r2 Z' x) Q'取文件大小
Public Function GetFileSize(FileName)
Dim f
1 N0 r- M2 h! j0 T* WIf ReportFileStatus(FileName) = 1 Then
Set f = objFSO.Getfile(FileName)
$ M; p. F/ h9 O7 q; ZGetFileSize = f.Size
, f1 d: R+ z* p5 qElse
8 G5 @# t0 E; U) cGetFileSize = -1
End if
+ j$ I5 [5 L, F% h7 ~5 s8 zEnd Function

'文件删除
7 u1 j; H7 Y3 w2 TPublic Function deleteAFile(FileSpec)
If ReportFileStatus(FileSpec) = 1 Then
- ]/ n0 l% T; IobjFSO.deleteFile(FileSpec)
deleteAFile = 1
6 e: K" H1 {5 ]2 VElse
/ ^+ ?/ `9 Y( @5 B7 |4 Z& Z" PdeleteAFile = -1
; f& ]! h5 e, K8 h/ V3 uEnd if
; Z6 I4 V6 ]( i5 y; n" CEnd Function

# Z+ h3 h5 H* A4 w  i  d1 i'显示文件列表
Public Function ShowFileList(FolderSpec)
Dim f, f1, fc, s
$ i( t: m% T( t! ?  u0 e/ c( qIf ReportFolderStatus(FolderSpec) = 1 Then
Set f = objFSO.GetFolder(FolderSpec)
, c( G. \) g) H* dSet fc = f.Files
/ G4 k3 P, z4 D1 t: |: e! y; t8 z* iFor Each f1 in fc
( l; t' a0 x% l, I/ U6 U- N: {s = s & f1.name
8 m* s0 i' d& K3 `: M; es = s & "|"
1 W+ B9 [* d7 ONext
! f) b" }/ a- \* z5 NShowFileList = s
Else
6 b/ Q0 _# X& CShowFileList = -1
End if
End Function
( M8 q3 S; o1 K: a9 @6 t7 R# h
'文件复制
2 n/ ~& G9 [" U1 v: KPublic Function CopyAFile(SourceFile, DestinationFile)
Dim MyFile
3 J% r# B4 g2 |' S8 F0 d# iIf ReportFileStatus(SourceFile) = 1 Then
Set MyFile = objFSO.GetFile(SourceFile)
0 x4 E4 ~3 ]. t' |8 m; e8 _MyFile.Copy (DestinationFile)
CopyAFile = 1
Else
/ P! \) d1 R+ e1 d3 X; _CopyAFile = -1
End if
, _) O* C/ P, k) @6 r% w! \0 eEnd Function
! x% Z  t  [2 t$ A
' u  |: G" b& Q4 f4 [1 c! O! c'文件移动
Public Function MoveAFile(SourceFile,DestinationFile)
If ReportFileStatus(SourceFile) = 1 And ReportFileStatus(DestinationFileORPath) = -1 Then
% C. S; b3 q6 b' H* K: NobjFSO.MoveFile SourceFile,DestinationFileORPath
MoveAFile = 1
. L4 Y6 b  u, J8 [+ j( m' I9 m8 jElse
  E( q: i) K7 x1 cMoveAFile = -1
End if
End Function

+ q0 b; b- E& \6 u, b1 ^# X: E'文件是否存在？
) c3 H# g8 t: V0 Q, X0 {* gPublic Function ReportFileStatus(FileName)
Dim msg
: Q. g+ O+ n+ b8 @( S; Kmsg = -1
If (objFSO.FileExists(FileName)) Then
8 R4 Y5 P# }3 ~& }msg = 1
! r: h7 ?" q# ~9 U2 MElse
msg = -1
" {, G, y) r( bEnd If
ReportFileStatus = msg
8 z9 R3 X0 U3 K$ J% ]8 |6 fEnd Function
  \1 M! m$ G: ]
'文件创建日期
Public Function ShowDatecreated(FileSpec)
Dim f
: ]% |6 O7 Q: l" V& C" rIf ReportFileStatus(FileSpec) = 1 Then
Set f = objFSO.GetFile(FileSpec)
ShowDatecreated = f.Datecreated
Else
2 ~1 c+ c# d( h. qShowDatecreated = -1
* G5 c& M( K( u# O$ kEnd if
End Function
  |" r& _0 k3 `& v% l  L4 N
'文件属性
3 K; T5 G1 |6 E1 G  Y* YPublic Function GetAttributes(FileName)
# L( D& u* f6 n- YDim f
Dim strFileAttributes
If ReportFileStatus(FileName) = 1 Then
; w# t3 A( j7 z7 O1 o9 C. d9 E& _- ]Set f = objFSO.GetFile(FileName)
select Case f.attributes
) Z( ^9 l% H$ Q8 r0 [7 F' i6 z( dCase 0 strFileAttributes = "普通文件。没有设置任何属性。 "
% L$ @  }" M  ^$ \, }4 Y* }) }Case 1 strFileAttributes = "只读文件。可读写。 "
) v; F$ |3 U2 b: d6 h9 yCase 2 strFileAttributes = "隐藏文件。可读写。 "
: u3 Q( ^; `( C3 JCase 4 strFileAttributes = "系统文件。可读写。 "
Case 16 strFileAttributes = "文件夹或目录。只读。 "
Case 32 strFileAttributes = "上次备份后已更改的文件。可读写。 "
Case 1024 strFileAttributes = "链接或快捷方式。只读。 "
Case 2048 strFileAttributes = " 压缩文件。只读。"
9 V' E4 ~: x' d6 _/ iEnd select
GetAttributes = strFileAttributes
; `( w3 A6 }# [; p$ ], W: pElse
: }" j% n5 P1 F8 R+ AGetAttributes = -1
End if
, s- M( s4 K( M* P. r; lEnd Function

'最后一次访问/最后一次修改时间
8 \) Z' X& w9 N4 gPublic Function ShowFileAccessInfo(FileName,InfoType)
'//功能：显示文件创建时信息
' h. K, y- ~6 u, S'//形参：文件名,信息类别
6 J5 K# O6 }7 L* Z" ?2 k5 x  Z  Y* j'// 1 -----创建时间
'// 2 -----上次访问时间
2 n7 ?" \; N! \) `: i" P'// 3 -----上次修改时间
6 L: g; y& P: @! r' p4 y'// 4 -----文件路径
* i% Q' T& @, U; F' C6 A, k" x# ['// 5 -----文件名称
'// 6 -----文件类型
) L1 L$ w9 h4 E( b' w6 s  [0 E# C. n'// 7 -----文件大小
1 ]  m  e  h# C, h! h: G'// 8 -----父目录
'// 9 -----根目录
Dim f, s
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.GetFile(FileName)
7 e% i" V3 i- v1 hselect Case InfoType
! i) G, C( h1 Q7 V% }; }4 ZCase 1 s = f.Datecreated
6 `# A  t' H3 O; zCase 2 s = f.DateLastAccessed
- q* Z: i: |! Q9 N2 c3 v, F6 nCase 3 s = f.DateLastModified
0 J; K) z/ o: g# O2 cCase 4 s = f.Path
8 [/ W: Z1 H* }( x: ~# P& v# [Case 5 s = f.Name
Case 6 s = f.Type
Case 7 s = f.Size
. v  d5 ^8 R% _' h9 vCase 8 s = f.ParentFolder
' q: l8 j5 x, @9 R' ACase 9 s = f.RootFolder
1 u' r! m% t" y! NEnd select
, \  Z: x" Y. `. }2 kShowFileAccessInfo = s
ELse
ShowFileAccessInfo = -1
' K# Y6 [* K% N8 |, [" JEnd if
4 o/ S$ b; B2 L  T" ^0 C- PEnd Function

, W  m7 R$ Q- S( [# i( F'写文本文件
Public Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
" M6 n. i$ l; H5 l/ F7 [Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
select Case WriteORAppendType
1 [0 ]( c4 W0 R7 `7 {Case 1: '文件进行写操作
" Y0 d# ?3 v+ r" ^; V  N# c1 uSet f = objFSO.OpenTextFile(FileName, ForWriting, True)
" z5 ^8 b! ^- B$ mf.Write TextStr
f.Close
If ReportFileStatus(FileName) = 1 then
- N# b; \! K' j5 j8 U' O( IWriteTxtFile = 1
9 I0 Z/ }5 D* c0 }; y) @, \Else
WriteTxtFile = -1
End if
- {  i  [. x1 G* _2 O5 \5 }1 wCase 2: '文件末尾进行写操作
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForAppending)
f.Write TextStr
f.Close
4 j# [; C3 N  ]% @1 OWriteTxtFile = 1
Else
  ^4 ~) O1 I* Z8 ]% }( _WriteTxtFile = -1
4 o$ A* d' g7 A1 m! ?; jEnd if
# S' e' M4 [4 h3 @End select
End Function
3 B1 o$ X' G+ _4 l/ B7 v, e! a$ z4 W
" c% g# j- s: G2 t4 S'读文本文件
7 w8 i# T, O) q4 }" ?* iPublic Function ReadTxtFile(FileName)
* Q/ s* d- C! a# i  v0 mConst ForReading = 1, ForWriting = 2
3 D: M( C- @4 L9 A. m8 I# {Dim f, m
+ s: h# {2 s- @# J% KIf ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForReading)
' q3 Q/ h1 x4 W% ym = f.ReadLine
- k6 t" J5 k9 r. NReadTxtFile = m
$ V& ^& f8 P) W5 @7 e8 `# }5 Wf.Close
Else
  I( J8 X: J3 q" S) h% m) AReadTxtFile = -1
: s$ n' z! k% Q& q9 }- _End if
2 P8 f; U: _' f# w. \; z4 S* uEnd Function
" O2 u: T; a8 f+ G/ m' M; w
'建立文本文件

( K& |+ `9 e  y0 Q1 I'=======目录操作========
'取目录大小
2 y- T* Y3 y* v* d5 UPublic Function GetFolderSize(FolderName)
Dim f
0 x) D0 Q6 p% f1 K7 LIf ReportFolderStatus(FolderName) = 1 Then
% i; J' q5 [; b8 R3 CSet f = objFSO.GetFolder(FolderName)
6 p- Y& C/ ~5 P3 lGetFolderSize = f.Size
Else
GetFolderSize = -1
End if
& \/ w" t3 w+ }/ LEnd Function
% ^3 _: i& S0 o2 F
'创建的文件夹
+ f" Z% t/ j& P$ VPublic Function createFolderDemo(FolderName)
Dim f
If ReportFolderStatus(Folderspec) = 1 Then
createFolderDemo = -1
Else
Set f = objFSO.createFolder(FolderName)
createFolderDemo = 1
" ~4 g/ V) c8 g% K: \) B" `5 ~4 yEnd if
End Function
. Y- G% g1 ^0 A" [! m
# M3 {7 c0 f  v7 m$ q'目录删除
Public Function deleteAFolder(Folderspec)
Response.write Folderspec
If ReportFolderStatus(Folderspec) = 1 Then
objFSO.deleteFolder (Folderspec)
deleteAFolder = 1
: \- K8 \* r" D+ `Else
5 i% P0 q' \' o5 y) U9 TdeleteAFolder = -1
- a7 X. ~" z  ]4 b7 hEnd if
End Function
$ \6 U! G" g$ J
! u) l- {6 f9 Q" G: s/ B'显示目录列表
Public Function ShowFolderList(FolderSpec)
! T6 g2 d, x: v/ ?: ~+ nDim f, f1, fc, s
If ReportFolderStatus(FolderSpec) = 1 Then
Set f = objFSO.GetFolder(FolderSpec)
, k" ]+ V8 j1 s2 U; i" o; u0 `Set fc = f.SubFolders
For Each f1 in fc
8 f6 y& M' ]5 U' b/ N7 X$ Cs = s & f1.name
s = s & "|"
1 Z( _3 j+ \7 u. E& fNext
ShowFolderList = s
; N3 b, H2 M2 n! J: v! G6 n3 RElse
' [3 H: L  [& l7 ]2 CShowFolderList = -1
! d, a" E) g% D, \3 z4 `) XEnd if
6 A( J4 s9 i* |& N) H6 s8 C# nEnd Function

'目录复制
Public Function CopyAFolder(SourceFolder,DestinationFolder)
objFSO.CopyFolder SourceFolder,DestinationFolder
CopyAFolder = 1
CopyAFolder = -1
End Function

! V/ c0 Q; T# D  D5 o
'目录进行移动
( }# Z# K  A' x: WPublic Function MoveAFolder(SourcePath,DestinationPath)
If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then
objFSO.MoveFolder SourcePath, DestinationPath
7 M; w- Q4 u; \+ C# F$ z# YMoveAFolder = 1
' T- Z; r8 X6 JElse
MoveAFolder = -1
% n7 f( V3 [& x* W3 ~2 K6 dEnd if
4 W% D0 j- q( R" q8 H( Q# y" VEnd Function
/ S7 f% U9 }) G& d% F
4 }# |+ o8 q" |'判断目录是否存在
( n( f- r1 a1 \7 \3 `8 c' zPublic Function ReportFolderStatus(fldr)
& Z. V& @; `- d0 n7 o% bDim msg
msg = -1
6 v$ I" O2 a' m0 b6 v) rIf (objFSO.FolderExists(fldr)) Then
msg = 1
' T: h, Y3 H& fElse
msg = -1
End If
ReportFolderStatus = msg
End Function
  M+ ?2 t2 A" Z3 r. [$ d
- d/ I, i2 F. P9 B; M'目录创建时信息
5 I: ^# q6 h/ f( u( P. Z0 x3 HPublic Function ShowFolderAccessInfo(FolderName,InfoType)
5 c9 P; ?$ ~3 y8 u9 U2 G7 L' Y'//功能：显示目录创建时信息
% s* ~) I$ `8 }) p. h# q* L'//形参：目录名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----目录路径
  G0 o+ q$ n8 U'// 5 -----目录名称
6 }' r& K. j3 ^/ t'// 6 -----目录类型
'// 7 -----目录大小
1 m- H# e3 F" T0 f- D'// 8 -----父目录
'// 9 -----根目录
( X) p  |9 a/ n  y; E1 lDim f, s
If ReportFolderStatus(FolderName) = 1 then
Set f = objFSO.GetFolder(FolderName)
! s% e/ U0 Y# V; sselect Case InfoType
Case 1 s = f.Datecreated
Case 2 s = f.DateLastAccessed
Case 3 s = f.DateLastModified
  Y7 m* X9 t+ \2 n- F+ Z* w8 DCase 4 s = f.Path
8 s. A: y, U9 v3 t* o  J% YCase 5 s = f.Name
, x0 `  l+ t' j8 gCase 6 s = f.Type
Case 7 s = f.Size
$ Y0 E5 i2 i6 p# z6 H  J. s: tCase 8 s = f.ParentFolder
Case 9 s = f.RootFolder
End select
0 \5 T* ]) r! @% kShowFolderAccessInfo = s
1 P7 L7 k1 q. r& K% tELse
+ v; e3 p5 P& [7 Y! Z  ZShowFolderAccessInfo = -1
End if
End Function
- E( S& i% L( B1 O
'遍历目录
7 {9 M+ a, _" b7 N9 xPublic Function DisplayLevelDepth(pathspec)
* r; v, }) a, u$ M% vDim f, n ,Path
Set f = objFSO.GetFolder(pathspec)
2 D9 k- b) i5 S* ^If f.IsRootFolder Then
. G& ~! M* ?( |) dDisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder
Else
Do Until f.IsRootFolder
Path = Path & f.Name &"<br>"
Set f = f.ParentFolder
n = n + 1
Loop
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & " 的文件夹。<br>" & Path
4 d! S5 M+ x. s' gEnd If
End Function
" C" Z) U, ^: |% ]) x; g9 s
6 Z2 z2 H- }/ b2 y& \" L, z'========磁盘操作========
! v; e6 S+ l" L5 `5 z'驱动器是否存在？
Public Function ReportDriveStatus(drv)
Dim msg
# _* _2 G+ e3 ?msg = -1
If objFSO.DriveExists(drv) Then
msg = 1
Else
msg = -1
* _4 y* w3 H9 y: c& cEnd If
ReportDriveStatus = msg
7 D. M/ t8 C5 v6 J1 tEnd Function

'可用的返回类型包括 FAT、NTFS 和 CDFS。
! E3 K5 |0 W3 `! ?+ hPublic Function ShowFileSystemType(drvspec)
0 s5 D. T0 g" Z% X* vDim d
2 [% ^/ `. R2 z5 M0 e) d* {  X7 _If ReportDriveStatus(drvspec) = 1 Then
. @; J% y8 }+ [1 x5 N+ vSet d = objFSO.GetDrive(drvspec)
) l1 [2 Q3 q9 HShowFileSystemType = d.FileSystem
- k4 f1 B# r  `; V3 m6 T: r* K" MELse
ShowFileSystemType = -1
End if
End Function
End Class
8 }; [6 q  i8 g+ D%>