【高州情】高州人深圳站

标题: ASP文件操作大全 [打印本页]

---

作者: Longe    时间: 2011-8-17 12:38:09     标题: ASP文件操作大全

ASP文件操作大全
<%
Class Cls_FSO
Public objFSO
Private Sub Class_Initialize()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
( ~+ ?; M& T( H; z9 XEnd Sub
Private Sub class_terminate()
/ H( i8 U5 B5 x& A( YSet objFSO = Nothing
End Sub

'=======文件操作========
2 Q* ]& U% y+ W. E'取文件大小
Public Function GetFileSize(FileName)
Dim f
/ k3 H. P% [; a# E4 mIf ReportFileStatus(FileName) = 1 Then
$ y# t; s: Q6 ?; q7 S& gSet f = objFSO.Getfile(FileName)
GetFileSize = f.Size
Else
GetFileSize = -1
End if
! D( e- Z- \) R2 @( L/ LEnd Function

0 O+ }! k: ?6 u' _'文件删除
% H0 C8 W$ e* H: x4 Z" yPublic Function deleteAFile(FileSpec)
7 R3 U- q$ u, xIf ReportFileStatus(FileSpec) = 1 Then
# ~, E" e9 S) V% ^% F" AobjFSO.deleteFile(FileSpec)
; \  ]( `" ?; V1 g) o) WdeleteAFile = 1
/ ~- q* Z+ r6 H/ O, a( t$ IElse
( m; s/ l0 R+ ?* f" P: HdeleteAFile = -1
End if
End Function

'显示文件列表
* B% S  \8 ]+ xPublic Function ShowFileList(FolderSpec)
* l0 K( S+ O( q5 V5 Q! wDim f, f1, fc, s
4 I5 @- \; e- ~  T3 j/ ^If ReportFolderStatus(FolderSpec) = 1 Then
Set f = objFSO.GetFolder(FolderSpec)
Set fc = f.Files
+ m8 ^" T6 U4 u9 b6 PFor Each f1 in fc
s = s & f1.name
s = s & "|"
7 s/ z! n/ M3 c; B- j; H* _Next
' B6 x: c/ w& }* G; T. DShowFileList = s
9 g! `" C  y1 ?3 j; b5 e; t6 O2 _Else
ShowFileList = -1
End if
End Function
0 W  |) y* I  j) B% K; t( t- g; w9 w$ w
'文件复制
Public Function CopyAFile(SourceFile, DestinationFile)
Dim MyFile
" ~7 o' f+ @- W& AIf ReportFileStatus(SourceFile) = 1 Then
Set MyFile = objFSO.GetFile(SourceFile)
MyFile.Copy (DestinationFile)
CopyAFile = 1
Else
* q: V9 s; B: w0 a. vCopyAFile = -1
/ t6 @1 `$ Q- c" @9 _" S5 uEnd if
; Q3 A# s5 i% z7 _" r; E, YEnd Function

  Y- p2 l/ z: {. w- ]'文件移动
, m  \( s/ Q( c+ j, O/ c8 `5 `* [Public Function MoveAFile(SourceFile,DestinationFile)
, l/ T7 H7 L3 |) s  eIf ReportFileStatus(SourceFile) = 1 And ReportFileStatus(DestinationFileORPath) = -1 Then
4 j2 F2 R" t' S/ _5 jobjFSO.MoveFile SourceFile,DestinationFileORPath
MoveAFile = 1
Else
MoveAFile = -1
End if
: ^) n/ {- L4 WEnd Function

'文件是否存在？
Public Function ReportFileStatus(FileName)
, Y. |% d. ^2 c' BDim msg
msg = -1
If (objFSO.FileExists(FileName)) Then
' i. ]) |6 A# f" }! tmsg = 1
Else
0 H4 R& Q: n7 u: z" Umsg = -1
End If
- F+ c! I9 W' {$ uReportFileStatus = msg
End Function
- }, v4 V% M2 @( q/ a
2 x+ q6 P) n/ @3 x- U8 W7 w'文件创建日期
) w8 ^9 }. a# T) O% jPublic Function ShowDatecreated(FileSpec)
( n* ]& n% M0 w) W1 rDim f
If ReportFileStatus(FileSpec) = 1 Then
Set f = objFSO.GetFile(FileSpec)
ShowDatecreated = f.Datecreated
' H& G/ t) z3 YElse
( M% Q$ Y( Y0 p: c6 eShowDatecreated = -1
  M' u- Y3 {: p4 {4 v" f1 QEnd if
End Function
/ F1 f& C9 G  N9 t2 i
9 ?9 h& o2 M: d! ^) \8 ^, g'文件属性
0 a- @* t+ |. Q# K/ }8 N* w5 q$ BPublic Function GetAttributes(FileName)
Dim f
& F' X0 d7 j, m. O) ^( G0 UDim strFileAttributes
0 i' P9 u/ }: m" OIf ReportFileStatus(FileName) = 1 Then
Set f = objFSO.GetFile(FileName)
select Case f.attributes
Case 0 strFileAttributes = "普通文件。没有设置任何属性。 "
Case 1 strFileAttributes = "只读文件。可读写。 "
Case 2 strFileAttributes = "隐藏文件。可读写。 "
/ E" @6 q; g# M" Z6 Y  lCase 4 strFileAttributes = "系统文件。可读写。 "
Case 16 strFileAttributes = "文件夹或目录。只读。 "
7 a% ?" g( b! g6 X. w/ ZCase 32 strFileAttributes = "上次备份后已更改的文件。可读写。 "
Case 1024 strFileAttributes = "链接或快捷方式。只读。 "
Case 2048 strFileAttributes = " 压缩文件。只读。"
End select
% ^$ U0 W4 ?* F9 m, Y/ ?6 ^GetAttributes = strFileAttributes
1 B$ M4 l$ Y5 kElse
: U# M4 s9 z8 w* }6 Y! }GetAttributes = -1
End if
End Function

. }: M& }8 I. V1 |'最后一次访问/最后一次修改时间
! C* H$ x/ S# f- t% F9 dPublic Function ShowFileAccessInfo(FileName,InfoType)
" Q9 s1 l  v$ i/ E8 x! W- g# O'//功能：显示文件创建时信息
'//形参：文件名,信息类别
. B/ a9 Q, u8 M( ^. v4 l$ n'// 1 -----创建时间
'// 2 -----上次访问时间
: V6 C7 Y( X3 N+ V9 p'// 3 -----上次修改时间
" R( H5 _" z* C; \% W5 ^3 A. W. W'// 4 -----文件路径
'// 5 -----文件名称
'// 6 -----文件类型
! I$ K! `1 t2 @% U: N$ ^9 k'// 7 -----文件大小
'// 8 -----父目录
2 y0 L+ Z2 y* _3 Z; v% z'// 9 -----根目录
Dim f, s
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.GetFile(FileName)
" i4 U- d. T2 Y: {( n/ T' ]. wselect Case InfoType
Case 1 s = f.Datecreated
: K& c, O. Y$ q2 [4 ICase 2 s = f.DateLastAccessed
' \8 n4 u& F6 t! q+ ECase 3 s = f.DateLastModified
5 n. P) e% I7 U& J. }Case 4 s = f.Path
Case 5 s = f.Name
Case 6 s = f.Type
" l) C6 F9 }9 H7 c# m; d( G9 N/ XCase 7 s = f.Size
Case 8 s = f.ParentFolder
# \( P5 Q, h( r: zCase 9 s = f.RootFolder
End select
ShowFileAccessInfo = s
ELse
ShowFileAccessInfo = -1
9 x; n/ h0 E& n/ U9 z* \" xEnd if
' j9 l' A9 }, s* M8 h+ n# l0 Z" wEnd Function
. Z* j& Z  a$ J: w8 L5 w( b
'写文本文件
Public Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
! M/ T( f3 O9 M9 G# Tselect Case WriteORAppendType
1 a1 `8 [7 J- V) ^! g$ ECase 1: '文件进行写操作
Set f = objFSO.OpenTextFile(FileName, ForWriting, True)
' E% H% j! B$ o8 T; Of.Write TextStr
f.Close
If ReportFileStatus(FileName) = 1 then
WriteTxtFile = 1
; [; a; M) I' w( O- IElse
0 K' f4 x) q" R7 L2 G6 s5 R" nWriteTxtFile = -1
0 E, v8 x$ W" REnd if
Case 2: '文件末尾进行写操作
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForAppending)
f.Write TextStr
f.Close
2 }! m  F* ?6 `6 uWriteTxtFile = 1
/ N2 A& k+ ]% x4 }, {. r9 f* {, ~Else
WriteTxtFile = -1
End if
End select
End Function

1 Q' q" @9 O4 m* H% K: I$ s4 Z& e'读文本文件
Public Function ReadTxtFile(FileName)
3 k& G) |1 A$ E- O2 S4 j2 aConst ForReading = 1, ForWriting = 2
Dim f, m
If ReportFileStatus(FileName) = 1 then
Set f = objFSO.OpenTextFile(FileName, ForReading)
m = f.ReadLine
ReadTxtFile = m
, A0 w- ?$ V# W3 c, v0 Ff.Close
Else
ReadTxtFile = -1
  Q: F! c! y' E, h  ZEnd if
% {% Q: s7 h! f% U5 Q* G- KEnd Function

6 K7 W( T* Q( S4 c1 o" }. a'建立文本文件

'=======目录操作========
'取目录大小
Public Function GetFolderSize(FolderName)
Dim f
* z+ m* {9 V" |4 ?If ReportFolderStatus(FolderName) = 1 Then
! n$ d) p- p6 ?# o. T+ E+ K2 m& aSet f = objFSO.GetFolder(FolderName)
4 H) ^3 Q6 J* ]2 eGetFolderSize = f.Size
Else
& T3 H; [' E# \GetFolderSize = -1
End if
End Function
2 q6 S, Q, a4 C* g8 D- w& x% D( i
'创建的文件夹
& t8 R7 V6 S! |8 p" H1 i# nPublic Function createFolderDemo(FolderName)
( U  ~1 e- J! Z% IDim f
- Z- Y+ u: k5 eIf ReportFolderStatus(Folderspec) = 1 Then
% B0 W% }: V7 K* @createFolderDemo = -1
Else
, Q  t0 |* [7 h) k7 N; [  Z$ sSet f = objFSO.createFolder(FolderName)
createFolderDemo = 1
" O; f' R+ o1 t( WEnd if
End Function
8 _# t  @$ V  k9 P
'目录删除
  H, }: I/ X1 L) xPublic Function deleteAFolder(Folderspec)
$ _) o* C; N/ |5 W' VResponse.write Folderspec
5 u+ f, D4 }/ o7 F$ L" FIf ReportFolderStatus(Folderspec) = 1 Then
objFSO.deleteFolder (Folderspec)
deleteAFolder = 1
Else
deleteAFolder = -1
End if
9 |* G, c8 u5 H9 c9 n2 R/ tEnd Function
; J! k' x9 U5 X4 C  C
'显示目录列表
4 _. c2 P6 a: M  t9 G, JPublic Function ShowFolderList(FolderSpec)
& Q1 n8 Q; O8 u( lDim f, f1, fc, s
" N  s; o- ~. O2 y2 nIf ReportFolderStatus(FolderSpec) = 1 Then
Set f = objFSO.GetFolder(FolderSpec)
. m  m) r% R6 ]4 ^4 a. d8 SSet fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
3 S& z. k7 h! j# S. j0 Bs = s & "|"
9 ^- d' i: e& ]. z0 C1 PNext
ShowFolderList = s
$ W: x7 t/ ]- q- R* jElse
ShowFolderList = -1
- U0 S6 B( w( BEnd if
End Function
6 _* Q8 _- w: m/ r; D& D
$ O, ]1 g+ f( W0 W; K'目录复制
; l! B8 {8 A7 J+ P) P! I* zPublic Function CopyAFolder(SourceFolder,DestinationFolder)
objFSO.CopyFolder SourceFolder,DestinationFolder
CopyAFolder = 1
; a. A+ A1 G4 m" M- N1 nCopyAFolder = -1
; p* m# M2 C  N' L' R7 M% nEnd Function
1 q% Z) F! H; e8 y3 d
1 u: x9 O2 Z% t4 Z, W9 s5 t
5 y1 p( v: [4 g# C'目录进行移动
Public Function MoveAFolder(SourcePath,DestinationPath)
If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then
objFSO.MoveFolder SourcePath, DestinationPath
MoveAFolder = 1
Else
MoveAFolder = -1
End if
4 e# ^) l! n0 ]) z! r9 ^( S) T9 {! ?End Function
0 f4 D/ ?6 ?. V# N2 l2 |4 U8 L
+ o& ?7 L8 P6 M. }  X) }'判断目录是否存在
Public Function ReportFolderStatus(fldr)
3 _; D2 c! z, ~# ODim msg
msg = -1
If (objFSO.FolderExists(fldr)) Then
msg = 1
Else
7 q$ E5 S  y! [* k8 ~" vmsg = -1
End If
0 U8 q- g& @' d0 M2 oReportFolderStatus = msg
End Function

'目录创建时信息
Public Function ShowFolderAccessInfo(FolderName,InfoType)
'//功能：显示目录创建时信息
'//形参：目录名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----目录路径
'// 5 -----目录名称
0 }; e1 c. D# w) j. }# K'// 6 -----目录类型
'// 7 -----目录大小
0 u3 @0 M8 o/ {/ Q  e5 b) m+ L'// 8 -----父目录
'// 9 -----根目录
0 {6 m; _! x: i8 ]  {/ H3 ODim f, s
If ReportFolderStatus(FolderName) = 1 then
5 G5 I8 r$ a  M" A* wSet f = objFSO.GetFolder(FolderName)
  j& f4 A) j' Uselect Case InfoType
- I& G+ {; z# T. cCase 1 s = f.Datecreated
) }7 ?( b+ z3 t( r3 D# nCase 2 s = f.DateLastAccessed
$ M% \4 T7 t- O7 PCase 3 s = f.DateLastModified
Case 4 s = f.Path
Case 5 s = f.Name
Case 6 s = f.Type
1 I" _  v3 U5 P2 {; c7 zCase 7 s = f.Size
Case 8 s = f.ParentFolder
Case 9 s = f.RootFolder
$ n6 _' z! c9 h- K$ T1 ^End select
ShowFolderAccessInfo = s
ELse
/ L* u+ u8 J& yShowFolderAccessInfo = -1
6 U& I" y% g7 ]  m+ h. l2 fEnd if
End Function

'遍历目录
1 e7 s2 x. L+ m, }; ?) ?8 VPublic Function DisplayLevelDepth(pathspec)
" i) ~+ K/ ]6 ~0 C1 qDim f, n ,Path
Set f = objFSO.GetFolder(pathspec)
# M/ }' m6 P* `- [If f.IsRootFolder Then
3 o' u+ e( r" b/ u, ]# ZDisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder
Else
. i8 s# A7 R2 Z7 A/ f5 WDo Until f.IsRootFolder
, b1 v* f2 I. P: S) Q/ mPath = Path & f.Name &"<br>"
! B2 O8 q& Y; b8 ]Set f = f.ParentFolder
n = n + 1
Loop
* ~- y6 p+ _3 DDisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & " 的文件夹。<br>" & Path
) r  e1 C) G9 K$ I% B# [End If
End Function

/ ^/ x2 S% T: l: o0 }+ M'========磁盘操作========
'驱动器是否存在？
Public Function ReportDriveStatus(drv)
2 ?3 @/ O+ V% V$ {. Z& T2 ]$ tDim msg
msg = -1
; c0 T& a. U3 I8 d: wIf objFSO.DriveExists(drv) Then
msg = 1
Else
msg = -1
% D+ i$ d( c8 L  BEnd If
ReportDriveStatus = msg
End Function

& e9 t( \# L, K'可用的返回类型包括 FAT、NTFS 和 CDFS。
% d) c- k* L, g" z' \/ @Public Function ShowFileSystemType(drvspec)
+ M: C6 |3 ?1 _! |! o( n3 bDim d
  |0 j- I7 M$ GIf ReportDriveStatus(drvspec) = 1 Then
Set d = objFSO.GetDrive(drvspec)
ShowFileSystemType = d.FileSystem
* z+ u% u# P9 \3 W% s7 p" |0 XELse
ShowFileSystemType = -1
End if
End Function
End Class
+ w% F5 v1 [: D! q! ~9 F%>

---

欢迎光临 【高州情】高州人深圳站 (https://www.0668qq.cn/)

Powered by Discuz! X2