検索

りー


りー


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 .type ----ファイルタイプ
ケース7
s = f.Size '// 7 -----ファイルサイズ
ケース8
s = f.ParentFolder '// 8 -----親ディレクトリ
ケース 9
s = f.rootfolder '// 9 ----- ルート ディレクトリ
End Select
ShowfileAccessinfo = S
Else
ShowfileAccessinfo = "ファイルが存在しません: ("
End If

End Function

leexistle fileExist = True
'ファイルパスをチェック

'ファイルが存在するかチェック
If Not(o_Fso.FileExists(s_FileName)) then
fileExist = False
'End If
End Function

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

Public Function CreateTxtFile()
'//空のファイルを作成
If fileExist then
showErr "ファイルは既に存在します: ("
Else
Dim f
Set f= o_Fso.CreateTextFile(s_FileName)
f.Close
End If
End Function

Public Function WriteTxtFile(TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
Case WriteORAppendType を選択します
1: Set f = o_Fso.OpenTextFile(s_FileName, ForWriting, True)
f. Not fileExist then
showErr "ファイルの書き込みに失敗しました"
End if
ケース 2: ファイルの最後に
iF ファイルが存在する場合
set f = o_fso.opentextFile (S_filename, ForaPpending)
F.Write TextStr
F.Close
Showerr "失敗"
End IF
END S Electn End Function e
Public Function ReadTxtFile()
Const ForReading = 1, ForWriting = 2 dim f、m
's' s 's' s 's' s 's ‐ ‐ dim f、'f.skipline
readtxtfile =m
fを使用します。 )
If fileExist then
o_Fso.DeleteFile (s_FileName)
Else
showErr "ファイルはもう存在しません:("
End if
End Function

Public Function CopyFile()
'//関数: ファイルはコピーのみ可能ですソースファイルが存在し、宛先ファイルは効果がない場合
'//SourceFile=s_FileName
If fileExist then
Dim MyFile
If s_FileName=s_DestinationFile then
showErr "同じファイル名を同じディレクトリにコピーすることを禁止します: ("
End IF
Set MyFile = o_Fso.GetFile(s_FileName)
MyFile .Copy (s_DestinationFile)
Else
showErr "ファイルはもう存在しません"
End if

End Function

Public Function MoveFile()
If fileExist then
Dim SourceFile
If s_FileName=s_DestinationFile then
showErr "同じファイル名を同じディレクトリに移動することを禁止します:("
End IF
o_Fso.MoveFile s_FileName,s_DestinationFile
Else
showErr "ファイルはもう存在しません: ( "
End If

End Function

'====================================== = ======= ディレクトリ操作

'ディレクトリ名を設定
Public Property Let FolderName(Byval Values)
s_FolderName=Values
'checkFolder 'ファイルを確認する
End Property

'対象ディレクトリ名を設定
Public Property Let DestinationFolder( Byval Values)
s_DestinationFolder=Values
End Property

'ディレクトリサイズを取得

'ディレクトリ作成情報を取得

'ディレクトリが存在するか判断

'ディレクトリを作成

'ディレクトリを削除

'ディレクトリをコピー

'ディレクトリを移動

'ディレクトリの名前を変更

'====================================== ====== ======トラバーサル操作

エンドクラス

Set myFile=new Cls_FSO
myFile.FileName=Server.MapPath("file.txt")
'myFile.CreateTxtFile()
myFile。 WriteTxtFile "テスト",2
myFile.DestinationFile=Server.MapPath("file2.txt")
myFile.CopyFile()
'myFile.FileName=Server.MapPath("file2.txt")
'myFile.DeleteFile()
response.Write(myFile .FileSize)
for i =0 to 8
response.Write(myFile.ShowFileAccessInfo(i) )
response.Write("
")
next

%>


以上がファイル操作の問題の ASP 概要の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。

声明
この記事の内容はネチズンが自主的に寄稿したものであり、著作権は原著者に帰属します。このサイトは、それに相当する法的責任を負いません。盗作または侵害の疑いのあるコンテンツを見つけた場合は、admin@php.cn までご連絡ください。
PHP8.0中的文件操作:文件监控PHP8.0中的文件操作:文件监控May 14, 2023 pm 02:21 PM

随着Web应用程序的不断发展,PHP已经成为了Web开发中最重要的编程语言之一。作为一门灵活性极强的编程语言,PHP的每个版本都带来了新的功能和优化,为了满足不同的需求应用场景。在PHP8.0版本中,新增了一个非常实用的文件操作功能,即文件监控。这个功能非常适用于那些需要对文件变化进行监控和处理的应用场景,比如文件备份、文件同步、日志监控等等。本文将带大家

学习Go语言中的文件操作函数并实现文件的加密压缩上传下载功能学习Go语言中的文件操作函数并实现文件的加密压缩上传下载功能Jul 29, 2023 pm 10:37 PM

学习Go语言中的文件操作函数并实现文件的加密压缩上传下载功能Go语言是一种开源的静态类型编程语言,它以其高效性能和简洁的语法在开发领域广受欢迎。在Go语言的标准库中,提供了丰富的文件操作函数,使得对文件进行读写、加密压缩、上传下载等操作变得非常简单。本文将介绍如何使用Go语言中的文件操作函数,实现对文件进行加密压缩、上传下载的功能。首先,我们需要导入相关的三

PHP文件操作实例:读取CSV文件PHP文件操作实例:读取CSV文件Jun 20, 2023 am 11:42 AM

PHP是一种广泛应用于Web开发的流行编程语言。在Web应用程序中,文件操作是一个基本而常见的功能。本文将介绍如何使用PHP读取CSV文件并将其显示在HTML表格中。CSV是一种常见的文件格式,用于将表格数据导入到电子表格软件中(如Excel)。csv文件通常由许多行组成,每行由逗号分隔的值组成。第一行通常包含列头,它们描述各列值的含义。这里我们将使用PHP

php如何使用SplFileInfo进行文件操作?php如何使用SplFileInfo进行文件操作?Jun 01, 2023 pm 07:01 PM

作为一种广泛使用的服务器端编程语言,PHP不仅提供了许多方便的文件处理函数,而且还提供了一些更为高级的文件操作类。其中一个比较有用的类就是SplFileInfo,它能够让我们更加灵活、高效地进行文件读写操作。本文将介绍如何使用PHP中的SplFileInfo类进行文件操作。一、SplFileInfo类的概述SplFileInfo类是PHP中的一个内置类(不需

php如何使用fopen、fwrite和fclose进行文件操作?php如何使用fopen、fwrite和fclose进行文件操作?Jun 01, 2023 am 08:46 AM

在PHP开发中,对文件的操作是非常常见的。一般情况下,我们需要进行文件的读取、写入、删除等操作。其中,文件的读取可以使用fopen函数和fread函数,文件的写入可以使用fopen函数、fwrite函数和fclose函数。本文将介绍php如何使用fopen、fwrite和fclose进行文件操作。一、fopen函数fopen函数用于打开文件,它的语法如下:r

如何使用Java中的Files函数进行文件操作如何使用Java中的Files函数进行文件操作Jun 26, 2023 pm 04:21 PM

在Java编程语言中,经常需要进行文件的读取、写入、复制、删除等操作。Java提供了一组Files类的函数来进行文件操作。本文将介绍如何使用Java中的Files函数进行文件操作。导入所需的包在进行文件操作之前,首先要导入Java的io包和nio包:importjava.io.File;importjava.io.IOException;import

PHP中的安全文件操作技术解析PHP中的安全文件操作技术解析Jul 02, 2023 pm 04:48 PM

PHP是一种广泛应用于Web开发的脚本语言,众所周知,网络环境中存在着各种各样的安全风险。在PHP文件操作过程中,保证安全性显得尤为重要。本文将对PHP中的安全文件操作技术进行详细解析,以帮助开发人员加强对文件操作的安全防护。一、文件路径注入(PathTraversal)文件路径注入是指攻击者通过输入恶意参数,成功地绕过文件系统的访问控制,访问不在预期访问

asp内置对象有哪些asp内置对象有哪些Nov 09, 2023 am 11:32 AM

asp内置对象有Request、Response、Session、Application、Server、Session.Contents、Application.Contents、Server.CreateObject、Server.MapPath、Server.Execute、Server.Transfer等。详细介绍:1、Request:表示HTTP请求对象等等。

See all articles

ホットAIツール

Undresser.AI Undress

Undresser.AI Undress

リアルなヌード写真を作成する AI 搭載アプリ

AI Clothes Remover

AI Clothes Remover

写真から衣服を削除するオンライン AI ツール。

Undress AI Tool

Undress AI Tool

脱衣画像を無料で

Clothoff.io

Clothoff.io

AI衣類リムーバー

AI Hentai Generator

AI Hentai Generator

AIヘンタイを無料で生成します。

ホットツール

ゼンドスタジオ 13.0.1

ゼンドスタジオ 13.0.1

強力な PHP 統合開発環境

SublimeText3 中国語版

SublimeText3 中国語版

中国語版、とても使いやすい

SublimeText3 Linux 新バージョン

SublimeText3 Linux 新バージョン

SublimeText3 Linux 最新バージョン

メモ帳++7.3.1

メモ帳++7.3.1

使いやすく無料のコードエディター

ドリームウィーバー CS6

ドリームウィーバー CS6

ビジュアル Web 開発ツール