【高州情】高州人深圳站

标题: ASP文件操作大全 [打印本页]
作者: Longe    时间: 2011-8-17 12:38:09     标题: ASP文件操作大全

ASP文件操作大全2 X! J% r: n! z& E
<% ' y( J) K7 v* U3 O+ u: D
Class Cls_FSO
5 {; M4 v# \3 m4 O  L$ |Public objFSO 4 ~/ t3 e/ }3 F/ X3 N  K, o! ~0 R& l
Private Sub Class_Initialize()
0 Z% \1 e7 u: b1 d- O2 u* A) W3 m! xSet objFSO = Server.CreateObject("Scripting.FileSystemObject") 6 G% v; N$ p0 i/ v6 G; B( l
End Sub 2 s0 m1 e& r8 z' s8 }" q5 c
Private Sub class_terminate()
  Z/ m" `7 _1 b6 @Set objFSO = Nothing
" v8 n$ y2 ?# [3 hEnd Sub
' s0 Z8 ]7 c2 Y6 M$ ~6 d% |
" I. F  b3 z8 A'=======文件操作======== % z. b7 O. Q3 ]* m5 P: o6 Q& k3 u# u
'取文件大小 * r2 j. U* O2 l
Public Function GetFileSize(FileName) * r# L  s5 h$ }0 u& K
Dim f
# L8 s; S2 b2 b6 q" @If ReportFileStatus(FileName) = 1 Then
; B, q$ m/ M  {/ a; QSet f = objFSO.Getfile(FileName)
, |( F3 D. s6 v) @/ HGetFileSize = f.Size
  c* A: E8 x( oElse ' m& ~9 O- l7 f( ?
GetFileSize = -1 * v. c* ~! t7 C, t% ?& ]
End if
5 E. T% ~% H/ R1 [4 qEnd Function + D; `5 j4 Q  x% R; |( d; P7 @
7 e3 T% d/ m- H. E6 E: s( h
'文件删除 * ~9 Q) r- s+ b4 h. @- |, `
Public Function deleteAFile(FileSpec)
( p5 f5 d7 N7 I2 JIf ReportFileStatus(FileSpec) = 1 Then $ B+ R  L$ T! W8 ]: L8 _
objFSO.deleteFile(FileSpec)
/ v+ ~4 }* N  ]; ?) l: K2 AdeleteAFile = 1   |+ z0 x; A8 M& Y
Else
# X3 a. }0 t7 \# P' |" n1 XdeleteAFile = -1 0 Y* q0 r) H3 }( T) `2 ^9 w" ^
End if
2 ^7 j$ M! m; |* lEnd Function ( b! Y" [: k& W3 U& ^! U

( M& P) F# o5 O. s# e- c'显示文件列表
8 C9 x" e2 k  u% L- X" i1 u9 jPublic Function ShowFileList(FolderSpec) 0 D/ ]3 u. j: P) z+ x; i
Dim f, f1, fc, s . I$ b! u) A7 F* U4 N9 v1 l8 Y4 z/ W
If ReportFolderStatus(FolderSpec) = 1 Then / x' P- s  Y3 }, r2 U: u
Set f = objFSO.GetFolder(FolderSpec) . _4 d3 n# N; M  O% S! Q
Set fc = f.Files
' R0 n/ S. j* g3 R8 m0 s4 MFor Each f1 in fc / j; |' o: R, u
s = s & f1.name
1 o" }! X* d( |2 `s = s & "|"
* b- d7 b+ u! h  K" ?Next
& ~/ z! a2 m; q4 c# e/ J: \ShowFileList = s
3 m/ q3 f# Q# xElse
. Y( q" p" n4 a) gShowFileList = -1 5 l9 D# r; H" f' f9 G3 P4 }
End if
+ w% }8 s5 |- y0 }End Function
- S# V' m: T) Z) W. q6 _
6 ]/ k3 n0 m" C) b8 v3 D) Z'文件复制 5 a6 w) r- n9 E) M$ g8 [
Public Function CopyAFile(SourceFile, DestinationFile)   D+ |+ [( S& h! C2 n/ G
Dim MyFile
8 l1 E9 L) S) XIf ReportFileStatus(SourceFile) = 1 Then # ^; [1 i- c7 ~# _  A& z7 l
Set MyFile = objFSO.GetFile(SourceFile)
7 G  Z0 ^% l* jMyFile.Copy (DestinationFile)
8 g6 V5 i7 M/ U$ S& S- H! ?CopyAFile = 1 : M# P, E" a) N) h% v# ^
Else ) A& `$ a2 s( h9 d" s
CopyAFile = -1 , k6 o: F8 P& B, t) x! z. e8 u; n
End if
' p8 H* f: ?1 L: |# x  K) ^End Function
! z) A' `- T4 r$ g$ n* p, c2 y, V6 m5 X4 f
'文件移动
9 N- A, s. B6 A7 n$ g7 FPublic Function MoveAFile(SourceFile,DestinationFile)
: E* K- ^9 W4 {7 g2 |* n! u! BIf ReportFileStatus(SourceFile) = 1 And ReportFileStatus(DestinationFileORPath) = -1 Then 2 P& T5 r0 O1 f3 ^' R$ @% d$ d
objFSO.MoveFile SourceFile,DestinationFileORPath
1 [" @0 z. ?5 w1 qMoveAFile = 1 & X) \! o2 p7 S0 a
Else
- v* |: D% R" {MoveAFile = -1
8 V% A  g% a& R4 P( Z8 jEnd if
( I: D) p3 c) X( @9 L' f7 }& DEnd Function
* V9 ~: ^% l( u3 O, F- v+ |7 _& J3 |  P
'文件是否存在？ 9 ^) Z! L% n6 P8 I; n1 Z
Public Function ReportFileStatus(FileName)
# ?7 X4 A+ Q# [0 {5 uDim msg
. G' T0 a/ M! s" o% Hmsg = -1
" l' N: f- `! b8 [If (objFSO.FileExists(FileName)) Then
: _: p4 A8 k/ F) Q4 o* u- q- d/ p$ imsg = 1
2 S- w" L* R9 @. EElse
9 I7 O9 u. n  W# ?7 m8 gmsg = -1 , `# t. R8 U5 C' L
End If
+ a( F" w: i. e5 bReportFileStatus = msg ; B' Y! ~2 u9 K( u$ ?1 G
End Function # f( N' Z; }+ ?" e) u1 S6 `0 `; n

+ H* n! w8 m# B+ z: T" M/ {'文件创建日期
- g/ A. ^3 P5 n, T9 oPublic Function ShowDatecreated(FileSpec) ; s& i5 Q% R) a% c
Dim f
0 P" B3 _4 V) R5 ^1 u( T/ TIf ReportFileStatus(FileSpec) = 1 Then 0 H8 f7 y% t1 E* p& O
Set f = objFSO.GetFile(FileSpec)
2 E7 R8 k1 x* e4 K- z9 s" u, kShowDatecreated = f.Datecreated % ?% n  d$ v# a/ G+ D* f% }
Else
( i( v" ?- p. i" e# x3 }2 U4 f+ KShowDatecreated = -1
1 K9 K" u7 d6 X4 \* d1 Q5 D% GEnd if % `' m* ~) N( x3 y" Q. H+ m
End Function 2 x4 F; X/ ?+ o! L/ V4 ]
6 `% O# g% i; s
'文件属性
: J/ H& i$ W3 l  g1 W$ [1 r9 E$ [7 BPublic Function GetAttributes(FileName)
  M% _0 V  s! V: N- K& l6 P; TDim f
8 z9 ]# h; Q* V0 G/ Z! Q& \Dim strFileAttributes ! ?* g7 x' w3 k# M( v* I
If ReportFileStatus(FileName) = 1 Then
. |. a5 T: P: m$ iSet f = objFSO.GetFile(FileName) 0 ~( @' P5 R! J6 i
select Case f.attributes
" I: {. Y; ^% n8 d. [) G+ U; V3 GCase 0 strFileAttributes = "普通文件。没有设置任何属性。 "
1 L, `/ W0 t5 H; qCase 1 strFileAttributes = "只读文件。可读写。 " ! x* U: G% v( F& v3 f& Q
Case 2 strFileAttributes = "隐藏文件。可读写。 " 2 N8 W2 A5 F2 _2 M6 B4 h
Case 4 strFileAttributes = "系统文件。可读写。 " 5 o4 l2 {$ s  N2 M* M* \. }1 q$ e. P
Case 16 strFileAttributes = "文件夹或目录。只读。 " 6 I% j0 W3 l% u4 d( Y
Case 32 strFileAttributes = "上次备份后已更改的文件。可读写。 "   A# o6 F- g6 c0 t' H) s
Case 1024 strFileAttributes = "链接或快捷方式。只读。 " 0 ~, {# b8 k7 X1 P
Case 2048 strFileAttributes = " 压缩文件。只读。"
' S4 x( R- S- W6 ~End select
& f! z& }2 J9 P- F5 TGetAttributes = strFileAttributes 0 W: s: @0 J7 ]! Z
Else $ s2 P3 ~- Z& F& l, M% o
GetAttributes = -1
2 p$ O( G- U2 S* MEnd if
5 n" |8 Q  Q$ m; ^End Function ) e$ b7 [4 l* a) f+ ^

' y* j3 g; N/ q" b: J; a, O3 M* I'最后一次访问/最后一次修改时间 ! F0 n0 P0 n( A: V- k: Z
Public Function ShowFileAccessInfo(FileName,InfoType) # e' s5 X2 D$ ~$ o  y$ {
'//功能：显示文件创建时信息
& y% o0 S8 y) W'//形参：文件名,信息类别
, u5 t4 h0 m0 p0 L% {$ D. O# n'// 1 -----创建时间 6 V0 I6 v/ a3 E( z
'// 2 -----上次访问时间
( L# |$ `3 L: c. q* k/ l4 m& v'// 3 -----上次修改时间 . B# R0 z. V7 z
'// 4 -----文件路径 0 K! O7 ]: Q: S& C7 B
'// 5 -----文件名称
6 H# w' |7 {& Z  S$ j1 S'// 6 -----文件类型
3 N, o- m6 }" w' A'// 7 -----文件大小 4 ^' O0 i) x) |% |
'// 8 -----父目录
3 R* J5 z: Q( C'// 9 -----根目录 & ~8 v# D; \& ~  {. _" `( h
Dim f, s 5 N  ]# F  R6 |% I# r
If ReportFileStatus(FileName) = 1 then 1 E) e2 x* O( p4 N8 R5 k
Set f = objFSO.GetFile(FileName) + [2 S( V% M* c  X9 B- H
select Case InfoType ' j3 c( ^4 e3 y: x" }
Case 1 s = f.Datecreated
) s9 Q. b* ?( T( ^/ g, uCase 2 s = f.DateLastAccessed
0 s8 Y6 V. Q7 S# W8 O* p$ eCase 3 s = f.DateLastModified / m0 ?! ~( X8 o7 ^- N6 ]* W
Case 4 s = f.Path
: X$ n1 Q5 l2 W5 Y# O9 uCase 5 s = f.Name , P8 _! d) ^0 X9 z
Case 6 s = f.Type . T' L6 I1 G1 V& I0 _: e( b
Case 7 s = f.Size
- s. t, Q/ |: cCase 8 s = f.ParentFolder 3 n% {% X3 |  G. B; o" o
Case 9 s = f.RootFolder / f2 _2 x; p4 |3 o; q; n
End select
& @) M2 r  c, k7 G: W4 h* b( mShowFileAccessInfo = s
7 H: {6 z" {3 q- w* ?ELse
4 w' R" K, f7 x" VShowFileAccessInfo = -1 % ?; \. [& ~( L5 B+ n; X( @1 m
End if 5 [/ _/ p0 R3 v$ S6 C! A/ h/ p
End Function
* s" e- Y+ m  A2 c% q& d$ @0 e  M- X' z) \
'写文本文件
/ ~1 p2 l0 S' k3 APublic Function WriteTxtFile(FileName,TextStr,WriteORAppendType) ( W* w$ d" z" a; n0 n" e
Const ForReading = 1, ForWriting = 2 , ForAppending = 8 . s0 Z) U5 Q) f/ Q, Z
Dim f, m 1 V* x  f9 ~! \  b, ?2 k) m
select Case WriteORAppendType
0 I! z- l5 }- n; B+ O' v5 V% ~* hCase 1: '文件进行写操作 0 U5 A6 Y  ]) v. N/ u
Set f = objFSO.OpenTextFile(FileName, ForWriting, True) ; E' J% u' [% r6 [( j) C
f.Write TextStr
6 j6 `& R+ s2 R+ |' R5 d0 v/ D1 G) `f.Close
+ e& I% v9 n1 H/ H% d2 dIf ReportFileStatus(FileName) = 1 then
& b/ Y$ Y0 h4 Q$ {; \" V" f4 }, HWriteTxtFile = 1 4 m# m1 g4 u9 F; h7 J) Y$ Y1 W
Else 4 ]& \: R- y) S' d4 |/ V
WriteTxtFile = -1
; i1 F. m4 x" m; l/ u4 k* ?End if
6 b& Z( @% ]. j7 r. M! f7 K, r2 aCase 2: '文件末尾进行写操作 7 r1 F6 K4 d/ I6 A: c
If ReportFileStatus(FileName) = 1 then
5 B/ `2 d+ i7 n/ ]8 l/ }Set f = objFSO.OpenTextFile(FileName, ForAppending) & G1 o! ?! z+ e0 p9 i  q* K3 U
f.Write TextStr
/ N7 Z4 y! p  e% b6 ^# y  {4 kf.Close 7 R+ Q: f+ e4 T% b
WriteTxtFile = 1
2 \2 ]0 l! @) Z. C6 ]9 |Else - ^4 n5 l9 H( x
WriteTxtFile = -1
5 f/ S  w( i& n- w& N% y* |1 qEnd if 8 N9 P1 i6 _! l- C4 I3 d
End select
1 z$ T. t/ t5 z# mEnd Function / z4 `/ u8 e! P" D. J5 l8 y

. X  O* D5 c0 N" l# t& _& A'读文本文件 9 c1 i7 @( {2 l- @
Public Function ReadTxtFile(FileName)
: @! z, u$ U  V! {) [, jConst ForReading = 1, ForWriting = 2
! U- I+ ?+ e: [4 W0 tDim f, m
" `; E% m- F: O; n: \7 |9 @) OIf ReportFileStatus(FileName) = 1 then
& \1 ~6 R5 y, f+ n& h8 F6 l7 kSet f = objFSO.OpenTextFile(FileName, ForReading) " \2 t4 `( d# ?- w; X* a
m = f.ReadLine * V8 S- ^  t. v
ReadTxtFile = m
9 H) w! ?+ }0 @5 p/ T+ [f.Close / t2 q6 x! T7 k
Else
6 j$ i0 }2 ^% c% |; Y# _  BReadTxtFile = -1
, t: F3 E5 Z9 {3 v/ v3 ?" O. \End if
; w$ O5 F9 l4 R6 VEnd Function 6 O6 W0 R- r7 J+ |  z

2 G/ U- k/ _6 B4 F, p& p'建立文本文件 , t7 R- J9 m# }% N
' D+ t/ v8 ^8 e8 N, y: i% J2 V
'=======目录操作======== ; P( i9 F, L/ |" c6 C$ n1 O1 Q
'取目录大小 0 B/ \- _3 i, \) ^6 l
Public Function GetFolderSize(FolderName) % A5 ^/ g0 z& ?/ P
Dim f
0 }+ U' s6 f4 ?4 PIf ReportFolderStatus(FolderName) = 1 Then
7 K$ x( M0 x3 l; \' B1 G6 USet f = objFSO.GetFolder(FolderName)
# @8 @; \* |7 _! |% v6 n) L& oGetFolderSize = f.Size
9 y) \  ], @6 \/ A2 ?0 GElse ) |; R) t- Y/ J" B; ^5 ~& o0 h
GetFolderSize = -1 8 [. |: y+ g7 U+ f
End if ( J% J* s, r' L8 |  ~: y- x. Z
End Function
* y" O& t9 N+ P$ M( m; l, S* B) T. e/ i4 }
'创建的文件夹
2 C1 X0 S3 n  xPublic Function createFolderDemo(FolderName) 5 b+ @8 X! U1 y
Dim f 6 d0 S' m5 l2 J' v9 }% u! j" F8 W
If ReportFolderStatus(Folderspec) = 1 Then + N) L& R& b8 o+ Y- ^: \: z' z/ ?
createFolderDemo = -1 * q+ A3 q6 A& w! w) i) n$ Z8 T
Else 1 I- }) _" J2 @4 u
Set f = objFSO.createFolder(FolderName)
* c' L* E! L1 ]! ycreateFolderDemo = 1
& n7 ^9 H4 S& D5 C6 m. fEnd if
/ \# B, T1 ^* I0 r- n9 `5 [2 CEnd Function % z, u. T- s! `2 l4 \

) x0 ]# r' h. s; S/ i'目录删除 " s; l+ Z+ A+ t9 X# C: m! H) _
Public Function deleteAFolder(Folderspec)
/ ~: g+ r8 j. L# y" vResponse.write Folderspec ( E: X/ x; {, d% C
If ReportFolderStatus(Folderspec) = 1 Then
) U' u0 P. @" c1 w. ^/ }" ?objFSO.deleteFolder (Folderspec) ( a7 ^* G8 J. v$ D" ]+ \# t: z
deleteAFolder = 1
4 V! D. p* l! ]% {* J8 s6 bElse ! W2 d* Q3 u1 E& \, c* B2 t% z
deleteAFolder = -1 ( f& S! C% ^* x* ]
End if & A0 ^, o9 c' J4 r
End Function 9 Y, r, M2 W" x, O: C: r! q
6 C/ D, M( _' E; m
'显示目录列表 2 y" x* r% q1 P$ t9 p5 S) |) W4 _
Public Function ShowFolderList(FolderSpec)
  o. _3 d, z2 v  a% _Dim f, f1, fc, s
. L2 {- U! i: {3 N( l! ^If ReportFolderStatus(FolderSpec) = 1 Then
5 _( D  J2 L6 u. w' `Set f = objFSO.GetFolder(FolderSpec)
- }% F3 S, j; [: q( aSet fc = f.SubFolders 5 _2 P! c1 A$ x9 M+ [
For Each f1 in fc
& r) ^, ]' I3 h( C6 us = s & f1.name
* s9 _: |1 ~) W" y9 Z( Us = s & "|" 0 P# @' y+ G5 [6 |; D9 R1 D: {
Next 9 t( Y1 q8 w7 B- d' c9 @3 d/ N1 e$ g
ShowFolderList = s / V$ T" B3 F0 O+ q* D$ N% D% V5 n6 h
Else
" o1 R+ A6 @' E1 ~7 GShowFolderList = -1 # Z8 y5 ^& _' y. n% i; S
End if 4 R. N- w' |1 k
End Function
) j4 @. U; n6 c! f* \8 S
% [. f/ f$ c3 c: E/ h+ ~% I* q'目录复制 & ]- i( R$ i3 i6 r$ G6 ^' E
Public Function CopyAFolder(SourceFolder,DestinationFolder)
. j- I2 F- C8 C$ M/ P6 f" |objFSO.CopyFolder SourceFolder,DestinationFolder
$ e( O8 r& w" I; G( x, _5 g/ tCopyAFolder = 1
4 E, q; r/ W2 D) U+ qCopyAFolder = -1 % z5 A- F$ D' K1 W$ J& c
End Function ( c. y$ p. \1 i4 O1 m* v

% x1 L" p8 V1 \' ~& Z0 P' e. E3 w# v
'目录进行移动
' E- n( `) x9 V7 m7 xPublic Function MoveAFolder(SourcePath,DestinationPath) + m, u8 U9 P+ C
If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 Then
$ c: J/ y2 c* D; c) c: `objFSO.MoveFolder SourcePath, DestinationPath 1 ^+ x. _/ u  z- p1 w- Q3 r9 c; E3 N
MoveAFolder = 1
7 o3 Y9 \% F; w3 \1 ?Else
0 ^: c- ~3 D* P' {: v6 GMoveAFolder = -1
1 S6 W3 c: z0 L, N1 o$ `End if
/ p" ^2 i- r$ L. U1 vEnd Function
, v4 p5 S) B# R( C, T/ J6 l. z% y! ~, a/ v4 ?9 V
'判断目录是否存在 + w2 Z$ P* b) v2 H0 i
Public Function ReportFolderStatus(fldr)
( h0 L. o5 J8 a! F# ?* \Dim msg
9 H# P! Q6 p  bmsg = -1 9 e9 l: p1 v7 s/ {5 v
If (objFSO.FolderExists(fldr)) Then
1 q4 O; o2 _4 p# kmsg = 1 1 K: q- p/ ~2 S
Else
+ q. s4 }1 h& s$ _9 B+ y/ j2 Cmsg = -1
; [/ K: s8 I/ l" J( dEnd If * W$ V/ Y! I+ i( g: O( K" c6 q" Y
ReportFolderStatus = msg # K$ W9 @0 k' L, w/ X7 l8 R* b# d
End Function
+ I9 a. o/ Y2 J3 S0 D9 R: z# m. c4 y# m
'目录创建时信息
# g+ ~, G, `2 {- g* Y  D1 wPublic Function ShowFolderAccessInfo(FolderName,InfoType)
0 a1 R$ w) B6 w& c. F8 ~'//功能：显示目录创建时信息
4 N7 H3 C7 x: L6 g'//形参：目录名,信息类别
7 n: a/ s5 a, ]'// 1 -----创建时间 1 b" I- F8 f! X4 `2 K3 }4 a
'// 2 -----上次访问时间 $ o6 C) E8 Y+ b2 ]8 d" [
'// 3 -----上次修改时间 2 U/ d; j  ^3 _$ X9 B  r. f
'// 4 -----目录路径
# ^* R, l9 b' |" X; G9 W: }'// 5 -----目录名称
: i# z2 H& U9 T# l) y- Y  W'// 6 -----目录类型 * N( _+ ^, L& g# O: b
'// 7 -----目录大小
& N* `: T( F. f+ a'// 8 -----父目录 # w) \2 U7 w0 e; H
'// 9 -----根目录
+ n( Q/ {- P  n; |Dim f, s
' a2 i7 J; n  b3 ~If ReportFolderStatus(FolderName) = 1 then
( [2 H0 N0 {6 H( o0 bSet f = objFSO.GetFolder(FolderName)
5 Q. a- E: [: |2 R4 k( N) r- _select Case InfoType & n' s" X. @1 I2 Z1 W
Case 1 s = f.Datecreated 8 p1 k9 x$ E. v# D2 @5 s
Case 2 s = f.DateLastAccessed   }2 d& C% J4 o  j2 x; \
Case 3 s = f.DateLastModified " w$ W. X" T4 D: A
Case 4 s = f.Path
+ D' Y" r* W, pCase 5 s = f.Name
- ]' S( w1 R: A* C5 qCase 6 s = f.Type
- [) A" i) T" n7 C- L2 ]Case 7 s = f.Size   p4 _& G1 z) y8 r
Case 8 s = f.ParentFolder 9 \+ @# r0 @. C+ H# e
Case 9 s = f.RootFolder 6 N0 ^  H$ c8 T, ^
End select & I8 b* i5 G: ^+ `
ShowFolderAccessInfo = s
5 |5 u& p3 W7 `1 p7 p3 pELse 5 P! `- W# Y/ R" Z( o3 G
ShowFolderAccessInfo = -1 : \# {1 E) ]. j( a7 X& l& N
End if # ^$ D7 G* G4 A6 G
End Function
. f. B& V. f/ p- `! _5 e; R& ?4 r- H0 H' h0 K
'遍历目录
+ j8 [, q. ~0 f2 e/ P3 p; ]Public Function DisplayLevelDepth(pathspec) 7 v+ f2 D# x( t9 }
Dim f, n ,Path 7 O4 E4 D. {2 I4 [& ?
Set f = objFSO.GetFolder(pathspec)
& j9 c+ X8 S0 i6 [' ?If f.IsRootFolder Then
8 q+ d- z( n" x1 V3 ~. D7 G+ VDisplayLevelDepth ="指定的文件夹是根文件夹。"&RootFolder ( x  c+ P% R2 b% f
Else ) g: E# d/ R: j
Do Until f.IsRootFolder ) s- N' z' C, B$ K0 D
Path = Path & f.Name &"<br>"
8 k6 U# b, c( mSet f = f.ParentFolder
3 w0 B4 ~4 ?5 @; L( U  p# G0 t2 m: u0 Q, en = n + 1 3 ?$ }- m' V7 W; [4 A' [
Loop   p5 V+ f5 b6 y+ O4 H- W
DisplayLevelDepth ="指定的文件夹是嵌套级为 " & n & " 的文件夹。<br>" & Path   \$ X3 k  Q' d1 W
End If 4 a3 j. X" R$ B% |
End Function
- F5 a' c0 R2 G+ i5 V/ k9 C  R4 p, q. g' n5 |) @4 |
'========磁盘操作======== & i+ [" F! r+ |' J  e
'驱动器是否存在？ # n1 e, r& D7 U+ A* D/ S
Public Function ReportDriveStatus(drv)
6 u1 ?& c# f/ R3 k- fDim msg   q, F1 T6 k6 ]5 X* s. Q1 X
msg = -1
: r. Y, o/ O/ m1 a, f0 ]If objFSO.DriveExists(drv) Then ' u$ y3 S# p- V/ d) ]& s5 I/ y% Y
msg = 1
4 W- f/ h. Y6 aElse 4 l( k* U& K9 t$ V% [$ U1 @
msg = -1
: Z: w' J; ?  x& REnd If
9 _2 D6 [4 Y% Y; T3 O2 r* ^/ HReportDriveStatus = msg # I8 D- M% C3 L4 ~+ u
End Function
; U) @" S. Q2 H2 k4 a6 i4 ~
# }/ H. c* n9 N'可用的返回类型包括 FAT、NTFS 和 CDFS。
+ ^) i4 z4 p! L0 h" J& S9 n9 _Public Function ShowFileSystemType(drvspec)
5 }, _: F1 V  V# \1 w3 P: rDim d
# u$ d7 j6 \/ P- \If ReportDriveStatus(drvspec) = 1 Then , `* p+ f5 e4 \1 S3 Y) F
Set d = objFSO.GetDrive(drvspec) ! `$ l' l, e& U% w
ShowFileSystemType = d.FileSystem & _0 i$ M. ?# X8 X  G- {
ELse $ u6 _  p+ i' N% [8 l* L' V1 B
ShowFileSystemType = -1 " ^2 b# j% e# e6 g% @  z* q
End if , i0 [+ X- j' o2 ?2 N7 D, s0 W* @
End Function & Z! O: b" a2 \. u% n6 C
End Class
0 o5 N' }' o  K%>



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