Fso クラスの実装コード、ASP クラスを学習している友人はそれを参照できます。このコードは比較的古いものです。次のようにコードをコピーします。
<%
'================================================ = ===============
'= システムバージョン: 1.0 =
'= ファイルバージョン: 1.0 =
'= テキスト作成日: 2005-10-31 =
'================================================ = ===============
クラスCls_IO
プライベート ファイルシステム オブジェクト
プライベートサブクラス_Terminate()
IsObject(FileSystemObject) の場合
FileSystemObject = なしを設定します
終了の場合
エンドサブ
'//FileSystemObject オブジェクトを作成する
パブリック関数 Init_Object()
エラー時は次へ再開
IsObject(FileSystemObject) ではない場合
FileSystemObject = Server.CreateObject(Scripting.FileSystemObject) を設定します。
Err.Number <> 0 の場合、次に
Init_Object = False
エラークリア
終了関数
それ以外
Init_Object = True
終了の場合
終了の場合
終了機能
パブリックサブ削除ファイル(ByVal Str)
エラー時は次へ再開
FileSystemObject.DeleteFile(Server.MapPath(../UpLoadFile/&Str)) を呼び出します。
エンドサブ
パブリック関数 IsFolder(ByVal Str)
IsFolder = FileSystemObject.FolderExists(Str)
終了機能
パブリック関数 ShowFolder(ByVal Str)
Dim Obj_Folder、Obj_File
Set Obj_Folder = FileSystemObject.GetFolder(Server.MapPath(Str))
ShowFolder = Obj_Folder.Files を設定します
Obj_Folder = なしを設定します
終了機能
終了クラス
%>