｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜
─────────────────────────────────────
３.ファイル管理シーケンスの説明
【ファイル転送】はファイルストリーム(TFileStream)を使用します。
【デイレクトリリスト】はストリングスリストを使用します。
───────────────────────────────────
ﾋﾞｼﾞｭｱﾙｺﾝﾄﾛｰﾙﾓｼﾞｭｰﾙのｴﾗｰﾒｯｾｰｼﾞ窓を表示させたくない場合
Rerr2 が 0以外の場合に発生します。
◆ [777]ｴﾗｰ表示ﾒｯｾｰﾄﾞ表示/非表示の設定
※ sw=0 は非表示
sw=1 は表示する
＜esc＞%999;777;;sw;;;;;;;; sp M
※ ｴﾗｰが発生しても無視したい時非表示に設定
※ (ﾃﾞﾌｫﾙﾄ)はｴﾗｰ表示ﾒｯｾｰﾄﾞﾎﾞｯｸｽ表示
-----------------------------------------
sw ＜-- sw=0 は非表示 sw=1 は表示する
D ERRMSG^ZVCM999
---------------------------------------------------------------------
■＜＜＜ローカルコンピュータのカレントデイレクトリを変更 ＞＞＞
---------------------------------------------------------------------
【応答ﾒｯｾｰｼﾞ】はありません
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;401;0;edit;; sp M
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D SETCURDIR1^ZVCMFILE
---------------------------------------------------------------------
■＜＜＜ローカルコンピュータのカレントデイレクトリを取得 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 531,532,533,534の場合のみeditの指す領域にも結果を格納
＜esc＞%5001;501;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 531,532,533,534の場合のみeditの指す領域にも結果を格納
D GETCURRENTDIR^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rmain -＞ カレントデイレクトリ($は?に変換)
editの指す領域 -＞ カレントデイレクトリ(自分でサーバに転送が必要)
【Rmainのような$の変換無】
---------------------------------------------------------------------
■＜＜＜ローカルコンピュータのカレントデイレクトリを変更 ＞＞＞
---------------------------------------------------------------------
ドライブ名を指定すとカレントドライブも変更されます
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;507;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D SETCURDIR2^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:エラー
Rmain -＞ 1:成功 0:エラー
---------------------------------------------------------------------
■＜＜＜ローカルコンピュータのカレントデイレクトリを変更 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;600;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D CHDIR^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 0:成功 -1:エラー
Rmain -＞ 0:成功 -1:エラー
---------------------------------------------------------------------
■＜＜＜ローカルコンピュータ上に新規デイレクトリを作成 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;601;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D CREATEDIR^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:エラー
Rmain -＞ 1:成功 0:エラー
---------------------------------------------------------------------
■＜＜＜ファイルを削除 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;602;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D DELETE^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:エラー(削除できない、見つからない)
Rmain -＞ 1:成功 0:エラー(削除できない、見つからない)
---------------------------------------------------------------------
■＜＜＜指定デイレクトリが存在するか判定 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;603;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D DIRECTORYEXISTS^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:存在する 0:存在しない
Rmain -＞ 1:存在する 0:存在しない
---------------------------------------------------------------------
■＜＜＜指定されたドライブの空き容量を返す ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
drive ＜- 0:カレント 1,2,3...(A,B,C,,...に対して)
＜esc＞%5001;604;0;;;drive;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
drive ＜- 0:カレント 1,2,3...(A,B,C,,...に対して)
D DISKFREE^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rmain -＞ ＞=0:空き容量をバイト単位で -1:ドライブが無効
---------------------------------------------------------------------
■＜＜＜指定されたドライブのサイズを返す ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
drive ＜- 0:カレント 1,2,3...(A,B,C,,...に対して)
＜esc＞%5001;605;0;;;drive;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
drive ＜- 0:カレント 1,2,3...(A,B,C,,...に対して)
D DISKSIZE^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rmain -＞ ＞=0:空き容量をバイト単位で -1:ドライブが無効
---------------------------------------------------------------------
■＜＜＜指定ファイルが存在するか判定 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;606;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D FILEEXISTS^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:存在する 0:存在しない
Rmain -＞ 1:存在する 0:存在しない
---------------------------------------------------------------------
■＜＜＜指定ファイルが読み出し専用かどうか報告 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;607;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D FILEISREADONLY^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:読み出し専用 0:書き込み可能
Rmain -＞ 1:読み出し専用 0:書き込み可能
---------------------------------------------------------------------
■＜＜＜指定されたデイレクトリパスでファイルを検索 ＞＞＞
---------------------------------------------------------------------
一致するファイルが存在しない場合は空の文字列を返します。
[1] シーケンス
edit ＜== 編集領域番を指定する
531,532,533,534の場合のみeditの指す領域にも結果を格納
editstr ＜-- 検索するファイル文字列
rect ＜== 編集領域番を指定する
rectstr ＜-- デイレクトリパス文字列(セミコロンで区切られたパス名の集合)
＜esc＞%5001;608;0;edit;rect;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
531,532,533,534の場合のみeditの指す領域にも結果を格納
editstr ＜-- 検索するファイル文字列
rect ＜== 編集領域番を指定する
rectstr ＜-- デイレクトリパス文字列(セミコロンで区切られたパス名の集合)
D FILESEARCH^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rmain -＞ 一致するファイルを見つけるとそのファイルのパス名
一致するファイルが存在しない場合は、null
ファイルのパス名に$が含まれている場合は?に変換
editの指す領域 -＞ (自分でサーバに転送が必要)
【Rmainのような$の変換無】
---------------------------------------------------------------------
■＜＜＜指定ファイルのアクセス許可を読み出し専用に設定 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
readonly ＜-- 0:読み出し専用でない 1:読み出し専用
＜esc＞%5001;609;0;edit;;readonly;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
readonly ＜-- 0:読み出し専用でない 1:読み出し専用
D FILESETREADONLY^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:エラー
Rmain -＞ 1:成功 0:エラー
---------------------------------------------------------------------
■＜＜＜新規デイレクトリを作成必要に応じて親デイレクトリも作成 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;610;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D FORCEDIRECTORIES^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:エラー
Rmain -＞ 1:成功 0:エラー
---------------------------------------------------------------------
■＜＜＜既存の空のデイレクトリを削除 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
＜esc＞%5001;611;0;edit;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- デイレクトリ文字列
D REMOVEDIR^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:エラー
Rmain -＞ 1:成功 0:エラー
---------------------------------------------------------------------
■＜＜＜ファイルの名前を変更 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- 変更する前のファイル名
rect ＜== 編集領域番を指定する
rectstr ＜-- 変更後のファイル名
＜esc＞%5001;612;0;edit;rect;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- 変更する前のファイル名
rect ＜== 編集領域番を指定する
rectstr ＜-- 変更後のファイル名
D RENAMEFILE^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:エラー(アクセス許可を持っていない、変更出来なかった)
Rmain -＞ 1:成功 0:エラー
---------------------------------------------------------------------
■＜＜＜指定ファイルのOSタイムスタンプを返す ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
＜esc＞%5001;621;0;edit;;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
D FILEAGE^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 0:成功 -1:エラー
Rmain -＞ タイムスタンプ(2007/07/30 16:15:08)のように
---------------------------------------------------------------------
■＜＜＜指定ファイルのOSタイムスタンプを現在日付時間で設定 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
＜esc＞%5001;622;0;edit;;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます】
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
D FILESETCURDATE^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 0:成功 0以外:エラー
Rmain -＞ 0:成功 0以外:エラー
---------------------------------------------------------------------
■＜＜＜指定ファイルのOSタイムスタンプを指定日付時間で設定 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
rect ＜== 編集領域番を指定する
rectstr ＜-- 指定日付時間(2007/07/30 16:15:08)のように
＜esc＞%5001;623;0;edit;rect;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます】
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
rect ＜== 編集領域番を指定する
rectstr ＜-- 指定日付時間(2007/07/30 16:15:08)のように
D FILESETDATE^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 0:成功 0以外:エラー
Rmain -＞ 0:成功 0以外:エラー
---------------------------------------------------------------------
■＜＜＜指定ファイルの属性を返す ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
＜esc＞%5001;625;0;edit;;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
D FILEGETATTR^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 0:成功 -1:エラー
Rmain -＞ 属性
属性 (ReadOnly;Hidden;SysFile;VolumeID;Directory;Archive;)
Rsub -＞ 属性コード
属性コード (01;02;04;08;10;20;)
---------------------------------------------------------------------
■＜＜＜指定ファイルの属性を設定 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
rect ＜== 編集領域番を指定する
rectstr ＜-- 属性または属性コード
(※セミコロンを各文字列の末尾に付加すること)
(ReadOnly;Hidden;SysFile;VolumeID;Directory;Archive;)
(01;02;04;08;10;20;)
＜esc＞%5001;626;0;edit;;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
rect ＜== 編集領域番を指定する
rectstr ＜-- 属性または属性コード
(※セミコロンを各文字列の末尾に付加すること)
(ReadOnly;Hidden;SysFile;VolumeID;Directory;Archive;)
(01;02;04;08;10;20;)
D FILESETATTR^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 0:成功 -1:エラー
Rmain -＞ 0:成功 -1:エラー
---------------------------------------------------------------------
■＜＜＜指定ファイルのサイズを返す ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
＜esc＞%5001;627;0;edit;;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル文字列
D FILESIZE^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 0:成功 -1:エラー
Rmain -＞ ファイルのサイズ(64ビット数値)
---------------------------------------------------------------------
■＜＜＜ソースファイルをターゲットファイルコピーします ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ソースファイル名
rect ＜== 編集領域番を指定する
rectstr ＜-- ターゲットファイル名
sw ＜- 0:同じファイルが存在する場合上書き 1:同じファイルが存在する場合失敗
＜esc＞%5001;628;0;edit;rect;sw;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ソースファイル名
rect ＜== 編集領域番を指定する
rectstr ＜-- ターゲットファイル名
sw ＜- 0:同じファイルが存在する場合上書き 1:同じファイルが存在する場合失敗
D COPYFILE^ZVCMFILE
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:失敗
Rmain -＞ 1:成功 0:失敗
---------------------------------------------------------------------
■＜＜＜OSのパスを検索してファイルを探す ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル名
rect ＜== 531,532,533,534の場合のみrectの指す領域にも結果を格納
sw ＜- 0:同じファイルが存在する場合上書き 1:同じファイルが存在する場合失敗
＜esc＞%5001;629;0;edit;rect;sw;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
rectの指す領域 --＞ フルパス名(自分でサーバに転送が必要)
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ファイル名
rect ＜== 531,532,533,534の場合のみrectの指す領域にも結果を格納
sw ＜- 0:同じファイルが存在する場合上書き 1:同じファイルが存在する場合失敗
D SEARCHPATH^ZVCMFILE2
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:ファイルが見つからない
Rmain -＞ フルパス名(NULL:無い場合)($は?に変換)
rectの指す領域 -＞ フルパス名(自分でサーバに転送が必要)
【Rmainのような$の変換無】
---------------------------------------------------------------------
■＜＜＜既存のファイル又はデイレクトリとそのサブデイレクトリを含む名前を変更 ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- ソースファイル名又はデイレクトリ名
rect ＜== 編集領域番を指定する
rectstr ＜-- 新しい名前(NULLの場合削除される)
sw ＜- 0:同じファイルが存在する場合上書き 1:同じファイルが存在する場合失敗
＜esc＞%5001;630;0;edit;rect;sw;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- ソースファイル名又はデイレクトリ名
rect ＜== 編集領域番を指定する
rectstr ＜-- 新しい名前(NULLの場合削除される)
sw ＜- 0:同じファイルが存在する場合上書き 1:同じファイルが存在する場合失敗
D MOVEFILE^ZVCMFILE2
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:失敗
Rmain -＞ 1:成功 0:失敗
---------------------------------------------------------------------
■＜＜＜環境変数を検索します ＞＞＞
---------------------------------------------------------------------
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- 環境変数の名前(PATH)のように
rect ＜== 531,532,533,534の場合のみrectの指す領域に結果を格納
＜esc＞%5001;631;0;edit;rect;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- 環境変数の名前(PATH)のように
rect ＜== 531,532,533,534の場合のみrectの指す領域に結果を格納
D GETENV^ZVCMFILE2
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 1:成功 0:失敗
rectstr -＞ 環境変数の名前に対応付けられている値
---------------------------------------------------------------------
■＜＜＜環境変数に文字列を追加します ＞＞＞
---------------------------------------------------------------------
環境変数を削除するには(" name =") を使います。
putenv は，現在のプログラムの環境の変更にしか使えません。
プログラムが終了すると，元の環境が復元されます。
現在のプロセスの環境はputenvによる変更を含めて子プロセスに渡されます。
[1] シーケンス
edit ＜== 編集領域番を指定する
editstr ＜-- 環境変数の名前と文字列(PATH=C:\BC)のように
＜esc＞%5001;632;0;edit;;;;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
editstr ＜-- 環境変数の名前と文字列(PATH=C:\BC)のように
D PUTENV^ZVCMFILE2
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ 0:成功 -1:失敗
Rmain -＞ 0:成功 -1:失敗
---------------------------------------------------------------------
■＜＜＜指定したデイレクトリ内で指定された属性を持つファイル名のリストを取得 ＞＞＞
---------------------------------------------------------------------
[注意]属性=0ならばデイレクトリ等でないもの
属性=3Fならデイレクトリを含む全て
それ以外の0以外は属性=0以外で該当する属性全ての論理和
[1] シーケンス
edit ＜== 編集領域番を指定する
531,532,533,534 ならばパラメタ領域に格納(FILE;FILE;...) デリミタは;
それ以外の場合結果リストは格納されない
editstr ＜-- デイレクトリ名とファイル名(C:\test\*.*)のように
rect ＜== 編集領域番を指定する
rectstr ＜-- 属性(ReadOnly;Hidden;SysFile;VolumeID;Directory;Archive;AnyFile;)
(01;02;04;08;10;20;3F;)必ず末尾にセミコロンが必要
list ＜-- 作成済みのストリングリストのvcmのidv番号(ファイル名のリストが格納されす)
0:作成済みのストリングリストに格納されない
＜esc＞%5001;651;0;edit;rect;;list;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
editの指す領域 --＞ 531,532,533,534 ならばファイル名のリスト
(32762バイト迄可能)
(セミコロンで区切らてたリスト)(自分でサーバに転送が必要)
listの指すストリングリスト --＞ ファイル名リストが格納される
(長さ制限無し)
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
531,532,533,534 ならばパラメタ領域に格納(FILE;FILE;...) デリミタは;
それ以外の場合結果リストは格納されない
editstr ＜-- デイレクトリ名とファイル名(C:\test\*.*)のように
rect ＜== 編集領域番を指定する
rectstr ＜-- 属性(ReadOnly;Hidden;SysFile;VolumeID;Directory;Archive;AnyFile;)
(01;02;04;08;10;20;3F;)必ず末尾にセミコロンが必要
list ＜-- 作成済みのストリングリストのvcmのidv番号(ファイル名のリストが格納されす)
0:作成済みのストリングリストに格納されない
D FINDFILES^ZVCMFILE2
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ ファイル名のリスト文字列とデリミタを加えた合計のバイト数合計
長さが制限を越えた場合にも正しく設定される
Rselcnt -＞ ファイルの個数
Rmain -＞ 処理結果(0:正常)
editの指す領域 -＞ 531,532,533,534 ならばファイル名のリスト
(32762バイト迄可能)
(セミコロンで区切らてたリスト)(自分でサーバに転送が必要)
listの指すストリングリスト -＞ ファイル名リストが格納される
(長さ制限無し)
---------------------------------------------------------------------
■＜＜＜指定したデイレクトリ内で指定された属性を持つファイル名と属性リストを取得 ＞＞＞
---------------------------------------------------------------------
[注意]属性=0ならばデイレクトリ等でないもの
属性=3Fならデイレクトリを含む全て
それ以外の0以外は属性=0以外で該当する属性全ての論理和
[1] シーケンス
edit ＜== 編集領域番を指定する
531,532,533,534 ならばパラメタ領域に格納(FILE;FILE;...) デリミタは;
それ以外の場合結果リストは格納されない
editstr ＜-- デイレクトリ名とファイル名(C:\test\*.*)のように
rect ＜== 編集領域番を指定する
rectstr ＜-- 属性(ReadOnly;Hidden;SysFile;VolumeID;Directory;Archive;AnyFile;)
(01;02;04;08;10;20;3F;)必ず末尾にセミコロンが必要
sw ＜-- 属性を10進数か16進数かを指定(0:10進数,1:16進数)
list ＜-- 作成済みのストリングリストのvcmのidv番号(ファイル名のリストが格納されす)
0:作成済みのストリングリストに格納されない
＜esc＞%5001;652;0;edit;rect;sw;list;; sp M
【応答ﾒｯｾｰｼﾞ】がtelnetサーバから送信されて来ます
editの指す領域 --＞ 531,532,533,534 ならばファイル名と属性のリスト
(32762バイト迄可能)
(セミコロンで区切らてたリスト)(自分でサーバに転送が必要)
ファイル名*更新日付*サイズ*属性;
ファイル名*更新日付*サイズ*属性;
.......
ファイル名*更新日付*サイズ*属性;
デリミタは ;と *末尾に;が付く
更新日付(2007/07/30 16:15:08)のように示される
サイズはファイルの大きさ
属性は２桁の16進数または10進数で論理和で示される
listの指すストリングリスト --＞ ファイル名と属性リストが格納される
(長さ制限無し)
---------------------------------------------------------------
[2] Cache用共通関数
edit ＜== 編集領域番を指定する
531,532,533,534 ならばパラメタ領域に格納
それ以外の場合結果リストは格納されない
editstr ＜-- デイレクトリ名とファイル名(C:\test\*.*)のように
rect ＜== 編集領域番を指定する
rectstr ＜-- 属性(ReadOnly;Hidden;SysFile;VolumeID;Directory;Archive;AnyFile;)
(01;02;04;08;10;20;3F;)必ず末尾にセミコロンが必要
sw ＜-- 属性を10進数か16進数かを指定(0:10進数,1:16進数)
list ＜-- 作成済みのストリングリストのvcmのidv番号(ファイル名と属性のリストが格納されす)
0:作成済みのストリングリストに格納されない
D FINDFILESATTR^ZVCMFILE2
【応答ﾒｯｾｰｼﾞ】
Rselno -＞ ファイル名のリスト文字列とデリミタを加えた合計のバイト数合計
長さが制限を越えた場合にも正しく設定される
Rselcnt -＞ ファイルの個数
Rmain -＞ 処理結果(0:正常)
editの指す領域 -＞ 531,532,533,534 ならばファイル名と属性のリスト
(32762バイト迄可能)
(セミコロンで区切らてたリスト)(自分でサーバに転送が必要)
ファイル名*更新日付*サイズ*属性;
ファイル名*更新日付*サイズ*属性;
.......
ファイル名*更新日付*サイズ*属性;
デリミタは ;と *末尾に;が付く
更新日付(2007/07/30 16:15:08)のように示される
サイズはファイルの大きさ
属性は２桁の16進数または10進数で論理和で示される
16進数(01;02;04;08;10;20;3F;)＜-＞10進数(1;2;4;8;16;32;63)
listの指すストリングリスト -＞ ファイル名と属性リストが格納される
(長さ制限無し)
───────────────────────────────────
3-1
｜目次｜前ﾍﾟｰｼﾞ｜次ﾍﾟｰｼﾞ｜