Asp-Zusammenfassung der Dateibetriebsprobleme

读取一个文件相关信息的范例<br><br>
"
     Response.Write "文件的建立日期："&objFile.DateCreated&"<br>"
     Response.Write "文件的大小："&objFile.Size&"<br>"
     Response.Write "文件的类型："&objFile.Type&"<br>"
   Else
     Response.Write Server.MapPath("newfile.asp")&"不存在，无法读取相关信息"
   End If
  Set objFile = Nothing
  Set objFSO = Nothing      '释放 FileSystemObject 对象实例内存空间
%>

动网论坛的代码，你参考一下吧
<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->

<title>--管理页面</title>
<!--#include file=inc/forum_css.asp-->
<meta>
>
"+"

本页面为管理员专用，请登陆后进入。

您没有管理本页面的权限。" call dvbbs_error() response.end end if on error resume next   Sub ShowSpaceInfo(drvpath)   dim fso,d,size,showsize   set fso=server.createobject("scripting.filesystemobject")    drvpath=server.mappath(drvpath)      set d=fso.getfolder(drvpath)    size=d.size   showsize=size & " Byte"    if size>1024 then      size=(size/1024)      showsize=size & " KB"   end if   if size>1024 then      size=(size/1024)      showsize=formatnumber(size,2) & " MB"   end if   if size>1024 then      size=(size/1024)      showsize=formatnumber(size,2) & " GB"       end if      response.write "" & showsize & ""   End Sub     Sub Showspecialspaceinfo(method)   dim fso,d,fc,f1,size,showsize,drvpath    set fso=server.createobject("scripting.filesystemobject")   drvpath=server.mappath("pic")   drvpath=left(drvpath,(instrrev(drvpath,"/")-1))   set d=fso.getfolder(drvpath)      if method="All" then    size=d.size   elseif method="Program" then   set fc=d.Files   for each f1 in fc   size=size+f1.size   next   end if     showsize=size & " Byte"    if size>1024 then      size=(size/1024)      showsize=size & " KB"   end if   if size>1024 then      size=(size/1024)      showsize=formatnumber(size,2) & " MB"   end if   if size>1024 then      size=(size/1024)      showsize=formatnumber(size,2) & " GB"       end if      response.write "" & showsize & ""   end sub          Function Drawbar(drvpath)   dim fso,drvpathroot,d,size,totalsize,barsize   set fso=server.createobject("scripting.filesystemobject")   drvpathroot=server.mappath("pic")   drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"/")-1))   set d=fso.getfolder(drvpathroot)   totalsize=d.size     drvpath=server.mappath(drvpath)    set d=fso.getfolder(drvpath)   size=d.size     barsize=cint((size/totalsize)*400)   Drawbar=barsize   End Function      Function Drawspecialbar()   dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize   set fso=server.createobject("scripting.filesystemobject")   drvpathroot=server.mappath("pic")   drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"/")-1))   set d=fso.getfolder(drvpathroot)   totalsize=d.size     set fc=d.files   for each f1 in fc   size=size+f1.size   next     barsize=cint((size/totalsize)*400)   Drawspecialbar=barsize   End Function   %>                                   

  系统空间占用情况

   

     
    法规数据占用空间：  height=10> 

  备份数据占用空间：  height=10> 

  程序文件占用空间：  height=10> 

  心情图片占用空间：  height=10> 

  系统图片占用空间：  height=10> 

  上传头像占用空间：  height=10> 

  上传图片占用空间：  height=10> 

  系统占用空间总计：
   

本功能已经被关闭"   end if   %>  

        

ASP--文件操作类 设计版

'====================================================
'Version:  AspFile 1.0
'Data:  2006.6.20
'CopyRight: (C) 2006 Evan.cn All Rights Reserved
'====================================================
'文件操作类
'文件名称
'文件大小
'文件创建
'FileName--文件名称
'DestinationFile--目标文件名称
'FileSize--获得文件大小
'FileCreatedDate--获得文件创建日期
'FileAttributes--获得文件属性
'ShowFileAccessInfo(InfoType)--获得文件属性
'CreateTxtFile()--创建文本文件
'WriteTxtFile(TextStr,WriteORAppendType)==写文本文件
'ReadTxtFile()--读取文本文件
'DeleteFile()--删除文件
'CopyFile()--拷贝文件
'MoveFile()--移动文件
'
'
Class Cls_FSO
Private o_Fso,s_FileName,s_FolderName,s_DestinationFile
Private s_FolderName,s_DestinationFolder

Private Sub Class_Initialize()
         Set o_Fso = CreateObject("Scripting.FileSystemObject")
   End Sub

Private Sub Class_Terminate()
       Set o_Fso = Nothing
   End Sub

'===============================================文件操作

'设置文件名字
Public Property Let FileName(Byval Values)
 s_FileName=Values
 'checkFile '检查文件
End Property

'设置目标文件名
Public Property Let DestinationFile(Byval Values)
 s_DestinationFile=Values
End Property


'取文件大小
Public Property Get FileSize()
 If fileExist Then
  Dim f
  Set f = o_Fso.Getfile(s_FileName)
           FileSize = f.Size
 Else
  FileSize=0
 End if
End Property

'取文件
Public Property Get FileCreatedDate()
 If fileExist Then
  Dim f
  Set f = o_Fso.GetFile(s_FileName)
  FileCreatedDate = f.DateCreated
 Else
  FileCreatedDate="1900-1-1"
 End if

End Property

'取文件大小
Public Property Get FileAttributes()
 If fileExist Then
  Dim f,Str
  Set f = o_Fso.GetFile(s_FileName)
  Select Case f.attributes
   Case 0 Str="普通文件。没有设置任何属性。 "
   Case 1 Str="只读文件。可读写。  "
   Case 2 Str="隐藏文件。可读写。  "
   Case 4 Str="系统文件。可读写。  "
   Case 16 Str="文件夹或目录。只读。  "
   Case 32 Str="上次备份后已更改的文件。可读写。 "
   Case 1024 Str="链接或快捷方式。只读。  "
   Case 2048 Str=" 压缩文件。只读。"
  End Select
  FileAttributes=Str
 Else
  FileAttributes="文件不存在或不可预测地属性"
 End if

End Property

Public Function ShowFileAccessInfo(InfoType)
   '//功能：显示文件创建时信息
   '//形参：文件名,信息类别
   '//        1  -----创建时间
   '//        2  -----上次访问时间
   '//        3  -----上次修改时间
   '//        4  -----文件路径
   '//        5  -----文件名称
   '//        6  -----文件类型
   '//        7  -----文件大小
   '//        8  -----父目录
   '//        9  -----根目录
 '判断参数是否是数字
       If fileExist Then
  Dim f, s
  Set f = o_Fso.GetFile(s_FileName)
  Select Case InfoType
   Case 1
    s = f.DateCreated        '//        1  -----创建时间
   Case 2
    s = f.DateLastAccessed    '//        2  -----上次访问时间
   Case 3
    s = f.DateLastModified    '//        3  -----上次修改时间
   Case 4
t s = f.Typ                                                                                                                                                                                                                                                                                                                                                                                                                                       Übergeordnetes Verzeichnis 🎜> ShowFileAccessInfo="Datei existiert nicht:("
End if

End Function

Private Veranstaltung fileExist
fileExist = True
'Dateipfad prüfen

'Überprüfen Sie, ob die Datei existiert
If Not(o_Fso.FileExists(s_FileName)) Then
fileExist = False
Ende If
End Function

Private Function showErr(s_Msg )
Response.Write(s_Msg)
Set Fso=Nothing
Response.End()
End Function

Öffentliche Funktion CreateTxtFile()
'//Eine leere Datei erstellen
If fileExist Then
showErr "Die Datei existiert bereits:("
Else
Dim f
Set f =o_Fso.CreateTextFile(s_FileName)
f.Close
End If
End Function

Öffentliche Funktion WriteTxtFile(TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
Select Case WriteORAppendType
Fall 1:                                                                                                                                                                                                     zu         If Not fileExist.                                                                                                                               Eingabe fehlgeschlagen"
             Ende wenn
                                                                                                                                                                       'Schreibvorgang am Ende der Datei
                                 FileName, ForAppending)
f.Write TextStr
F.Close Else
Showerr „File's failed“
End If
End Select
End Function

Öffentliche Funktion ReadtXtXtXtXtXtxtXtXtXtXtXtXtXtXtxtw = 1 ForWriting = 2
        Dim f, m
                                  ' s ' s ' s ' s '                                                                                                  s ' s ' s ' s                                                                        'm = f.ReadAll
'f.SkipLine
           ReadTxtFile = m
                      if
End Function

Public Function DeleteFile()
If fileExist Then
o_Fso.DeleteFile(s_FileName)
Else
showErr "Die Datei existiert nicht mehr:("
End if
End Function

Public Function CopyFile( )
'//Funktion: Die Datei kann nur kopiert werden, wenn die Quelldatei vorhanden ist und die Zieldatei keine Auswirkung hat
'//SourceFile=s_FileName
If fileExist Then
Dim MyFile
If s_FileName=s_DestinationFile Then
showErr "Kopieren desselben Dateinamens in dasselbe Verzeichnis verbieten:("
End IF
Set MyFile = o_Fso.GetFile(s_FileName)
MyFile .Copy (s_DestinationFile)
Else
showErr „Die Datei existiert nicht mehr“
End if

End Function

Public Function MoveFile()
If fileExist Then
Dim SourceFile
If s_FileName=s_DestinationFile Then
showErr "Verschieben desselben Dateinamens in dasselbe Verzeichnis verbieten:("
End IF
o_Fso.MoveFile s_FileName,s_DestinationFile
Else
showErr "Die Datei existiert nicht mehr:("
End If

End Function

'=============== = ============================= Verzeichnisoperationen

'Verzeichnisnamen festlegen
Öffentliches Eigentum Let FolderName (Byval Values)
s_FolderName=Values
'checkFolder 'Datei prüfen
End Property

'Zielverzeichnisnamen festlegen
Public Property Let DestinationFolder(Byval Values)
s_DestinationFolder= Werte
Endeigenschaft

'Verzeichnisgröße abrufen

'Informationen zur Verzeichniserstellung abrufen

'Beurteilen, ob Verzeichnis vorhanden ist

'Verzeichnis erstellen

'Verzeichnis löschen

'Verzeichnis kopieren

'Verzeichnis verschieben

'Verzeichnis umbenennen

'======== == ======================================Traversaloperation

Klasse beenden

Set myFile=new Cls_FSO
myFile.FileName=Server.MapPath("file.txt")
'myFile.CreateTxtFile()
myFile.WriteTxtFile "Test",2
myFile .DestinationFile=Server.MapPath("file2.txt")
myFile.CopyFile()
'myFile.FileName=Server.MapPath("file2.txt")
'myFile.DeleteFile()
response.Write(myFile.FileSize)
für i =0 bis 8
response.Write(myFile.ShowFileAccessInfo(i) )
response.Write("
")
nächstes

%>

Das obige ist der detaillierte Inhalt vonAsp-Zusammenfassung der Dateibetriebsprobleme. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!