asp+fso は、ファイルまたはフォルダーの存在、作成、削除を検出する機能を実装します。//////////////////////////////// / /////////////////FSO オペレーション////////////////////////////// //// /////
'フォルダが存在するかどうかを確認する
関数フォルダー終了(フォルダー)
フォルダー=サーバー.マップパス(フォルダー)
FSO= Server.CreateObject(Scripting.FileSystemObject) を設定します
IF FSO.FolderExists(フォルダー) then
フォルダー出口=true
それ以外
フォルダーの出口=false
終了IF
終了機能
'ファイルが存在するかどうかを確認する
関数 FileExits(ファイル名)
ファイル名=サーバー.マップパス(ファイル名)
FSO= Server.CreateObject(Scripting.FileSystemObject) を設定します
IF FSO.FileExists(ファイル名) then
ファイル終了=true
それ以外
ファイル終了=false
終了IF
終了機能
'フォルダーの作成
関数 CreateFolder(フォルダー)
エラー時は次から再開
フォルダー=サーバー.マップパス(フォルダー)
FSO = Server.CreateObject(Scripting.FileSystemObject) を設定します。
FSO.CreateFolder(フォルダー)
err>0 の場合
エラークリア
CreateFolder=False
それ以外
CreateFolder=True
終了する場合
終了機能
'ファイルの作成
関数 CreateFile(ファイル名,コンテンツ)
エラー時は次から再開
ファイル名=サーバー.マップパス(ファイル名)
FSO = Server.CreateObject(Scripting.FileSystemObject) を設定します。
set fd=FSO.createtextfile(ファイル名,true)
fd.writeline コンテンツ
err>0 の場合
エラークリア
ファイルの作成=False
それ以外
CreateFile=True
終了する場合
終了機能
'ファイルを削除
関数 DeleteFile(ファイル名)
エラー時は次から再開
FSO = Server.CreateObject(Scripting.FileSystemObject) を設定します。
FSO.FileExists(ファイル名) の場合
FSO.DeleteFile ファイル名,true
終了する場合
err>0 の場合
エラークリア
ファイルの削除=False
それ以外
ファイルの削除=True
終了する場合
終了関数
'フォルダを削除
関数 DeleteFolder(フォルダー)
エラー時は次から再開
フォルダー=サーバー.マップパス(フォルダー)
FSO = Server.CreateObject(Scripting.FileSystemObject) を設定します。
FSO.FolderExists(Folder) の場合
FSO.Deletefolder フォルダー、true
終了する場合
err>0 の場合
エラークリア
フォルダーの削除=False
それ以外
フォルダーの削除=True
終了する場合
終了関数