FileSystem オブジェクトの一般的に使用されるファイル操作関数は何ですか?
1.ルート
関数形式 root()
関数の説明はパス文字列変数を返します
アプリケーションコード「サンプル文字列 = c:/intels/jingcaichunfeng/」
パブリック関数 root()
root = Request.ServerVariables(Appl_Physical_Path)
終了機能
2. URL
関数形式 url()
関数の説明は URL 文字列変数を返します
アプリケーションコード「サンプル文字列 = http://www.intels.net/filesys.asp」
パブリック関数 url()
URL =http://&Request.ServerVariables(サーバー名)
&Request.ServerVariables(スクリプト名)
終了機能
3.mkdir
関数形式 mkdir(DIrName)
関数 説明 ディレクトリを作成して情報を返す
アプリケーションコードPublic Function mkdir(xVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FolderExists( xVar ) の場合
msg =申し訳ありませんが、ディレクトリはすでに存在します。
それ以外
Sys.CreateFolder(xVar)
msg =おめでとうございます。ディレクトリは正常に作成されました。
終了の場合
Sys=Nothing を設定します
mkdir = メッセージ
終了機能
4.rmdir
関数形式 rmdir(DirName)
関数の説明ディレクトリを削除して情報を返す
アプリケーションコードPublic Function rmdir(xVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FolderExists( xVar ) の場合
Sys.DeleteFolder(xVar)
msg =おめでとうございます。ディレクトリは正常に削除されました。
それ以外
msg =申し訳ありませんが、ディレクトリはまだ作成されていません。
終了の場合
Sys=Nothing を設定します
rmdir = メッセージ
終了機能
5. イズディル
関数形式 isdir(DirName)
機能説明 ディレクトリが存在するかどうかを確認し、情報を返します。
アプリケーションコードPublic Function isdir(xVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FolderExists( xVar ) の場合
msg = 真
それ以外
msg = 偽
終了の場合
Sys=Nothing を設定します
isdir = メッセージ
終了機能
6.cpdir
関数形式 cpdir(DirName, Destination, OverWrite)
機能説明: フォルダーをコピーして情報を返す
アプリケーションコードPublic Function cpdir(xVar, yVar, zVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FolderExists( xVar ) の場合
Sys.CopyFolder xVar、root&yVar、zVar
msg =おめでとうございます。ディレクトリのコピーは成功しました。
それ以外
msg =申し訳ありませんが、探していたディレクトリは見つかりませんでした。
終了の場合
Sys=Nothing を設定します
cpdir=メッセージ
終了機能
7.mvdir
関数形式 mvdir(DirName, Destination)
機能 説明 フォルダを移動して情報を返す
アプリケーションコードPublic Function mvdir(xVar, yVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FolderExists( xVar ) の場合
Sys.MoveFolder xVar、root&yVar
msg =おめでとうございます。ディレクトリは移動されました。
それ以外
msg =申し訳ありませんが、探していたディレクトリは見つかりませんでした。
終了の場合
Sys=Nothing を設定します
mvdir = メッセージ
終了機能
8.isファイル
関数形式 isfile(ファイル名)
関数の説明: ファイルが存在するかどうかを確認し、情報を返します。
アプリケーションコードPublic Function isfile(xVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FileExists( xVar ) の場合
msg = 真
それ以外
msg = 偽
終了の場合
Sys=Nothing を設定します
isfile = メッセージ
終了機能
9.wファイル
関数形式 wfile(FileName, OverWrite, String)
関数の説明は文字列をファイルに書き込み、情報を返します。
アプリケーションコードPublic Function wfile(xVar, yVar, zVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
yVar の場合、その後
Txt = Sys.OpenTextFile(xVar, 2) を設定します。
Txt.Write(zVar)
テキストを閉じる
msg =おめでとうございます。ファイルは正常に作成され、保存されました。
それ以外
Sys.FileExists( xVar ) の場合
msg =申し訳ありませんが、ファイルはすでに存在します。
終了の場合
Sys=Nothing を設定します
wfile=メッセージ
終了機能
10.rファイル
関数形式 rfile(ファイル名)
関数の説明はファイルを読み取り、情報を返します。
アプリケーションコードパブリック関数rfile(xVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FileExists( xVar ) の場合
Txt = Sys.OpenTextFile(xVar, 1) を設定します。
msg = Txt.ReadAll
テキストを閉じる
それ以外
msg =申し訳ありませんが、ファイルは存在しません。
終了の場合
Sys=Nothing を設定します
rfile=メッセージ
終了機能
11. ファイル
関数形式 afile(FileName, String)
関数 説明 ファイルに文字列を追加し、情報を返します。
アプリケーションコードPublic Function afile(xVar, zVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FileExists( xVar ) の場合
Txt = Sys.OpenTextFile(xVar, 8) を設定します。
Txt.Write(zVar)
テキストを閉じる
msg =おめでとうございます。ファイルは正常に追加され、保存されました。
それ以外
msg =申し訳ありませんが、ファイルは存在しません。
終了の場合
Sys=Nothing を設定します
afile = メッセージ
終了機能
12.cpファイル
関数形式 cpfile(ファイル名, 保存先, 上書き)
関数の説明: ファイルをコピーして情報を返す
アプリケーションコードPublic Function cpfile(xVar, yVar, zVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FileExists( xVar ) の場合
Sys.CopyFile xVar、root&yVar、zVar
msg =おめでとうございます。ファイルは正常にコピーされました。
それ以外
msg =申し訳ありません、ファイルのコピーに失敗しました!
終了の場合
Sys=Nothing を設定します
cpfile = メッセージ
終了機能
13.MVファイル
関数形式 mvfile(ファイル名, 保存先)
関数 説明 ファイルを移動して情報を返す
アプリケーションコードPublic Function mvfile(xVar, yVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FileExists( xVar ) の場合
Sys.MoveFile xVar、root&yVar
msg =おめでとうございます。ファイルは正常に移動されました。
それ以外
msg =申し訳ありません、ファイルの移動に失敗しました!
終了の場合
Sys=Nothing を設定します
mvfile = メッセージ
終了機能
14.rmfile
関数形式 rmfile(ファイル名)
関数の説明ファイルを削除して情報を返す
アプリケーションコードパブリック関数rmfile(xVar)
Set Sys = Server.CreateObject(Scripting.FileSystemObject)
Sys.FileExists( xVar ) の場合
Sys.DeleteFile(xVar)
msg =おめでとうございます。ファイルは正常に削除されました。
それ以外
msg =申し訳ありません、ファイルの削除に失敗しました!
終了の場合
Sys=Nothing を設定します
rmfile = メッセージ
終了機能