| 太郎さんこんにちは、エラーの場合の処理を入れないと
期待した結果は得られません。
使っている人は何故うまくいかないのかと思いますよ。
変数宣言 文字列{ &Faile, &FFF},整数{ &FNo = 0 }
フォルダ名入力 初期値="C:\K3\Data\", プロンプト="フォルダー名をクリック"\
, 許可作業=*, &FFF
if (&FFF="")
&FFF = "C:\K3\Data\*.html"
else
&FFF = &FFF+"*.htm*"
end
&Faile=#文字列反転(#sstr(#文字列反転(&FFF),#文字位置(#文字列反転(&FFF),"\")+1))
if (#文字位置(#ファイル属性(&Faile /* str */ ,1/* f */),"D")>0)
*--------------------------------------------------------------------------------
*ファイル str の属性を調べます。
*引数 説明
*str ファイル名を表わす文字列を指定します。
*f 取り出すファイル属性の種類を番号で指定します。
*値 戻り値
*1 属性を表わす４文字を返します。
* 第１文字目：読みとり専用ならば R、そうでなければ半角空白。
* 第２文字目：隠しファイルならば H、そうでなければ半角空白。
* 第３文字目：システムファイルならば S、そうでなければ半角空白。
* 第４文字目：フォルダであれば D、そうでなければ半角空白。
*2 最終更新日付を日付文字列で返します。
*3 最終更新時刻を時刻文字列で返します。
表
call 表を作成("表.tbl","Faile","更新日")
繰り返し
＆FNo=&FNo+1
＆Faile=#ファイル検索(＆FFF,＆FNo)
条件 ( "" = ＆Faile) 繰り返し中止
行追加 [Faile]=＆Faile,[更新日]=#日時値(#ファイル属性(＆Faile,2))
繰り返し終了
表形式編集
表
else
確認 &Faile+" は存在しないディレクトリーです"
end
proc 表を作成(Str &S表名,Str &Sitem1,Str &Sitem2)
var Int{&Iend}
印字開始 "mokumoku.k3", 終了状態=&Iend
印字 "###"
印字 "### WIN桐 00"
印字 "###"
印字 """"+&Sitem1+""""+","+""""+"文字列"+""""
印字 """"+&Sitem2+""""+","+""""+"日時"+""""
印字 """文字数"",""整数"""
印字終了 改頁=しない
表作成 &S表名,定義ファイル="mokumoku.k3",モード=専有,終了状態=&Iend
end
|
