KenjiTweetCheckよく使うコードのメモです。あるフォルダ以下のファイル一覧を出力したいときに使うコードです。必要だったので、「とりあえず動けばいい!」というスタイルで作りました。プログラムの流れシート上のボタンをクリックします。フォルダ選択ダイアログを表示します。選択されたフォルダ以下のファイルを再帰的にリストにします。リストになったファイル一覧を、フォーム(またはシート)に出力します。やることモジュールを作成して、次の関数を作成します。ファイル一覧を取得するフォルダ選択ダイアログを処理する結果を出力するダイアログを作る。シートにボタンを作ってクリックしたときの処理を追加する。ファイル名に関連した文字列操作の記事をまとめました。ファイル名からディレクトリ名を取得する。ファイル名からディレクトリ名を取得する。Functionファイルパスから一番右のバックスラッシュの位置を探して、ファイルパスのそれより左の部分を抽出します。バックスラッシュが見つからなかった場合(ディレクトリがファイルパスに含まれない場合)は、空文字列が返ります。始まるわけではありません。第2引数に負の数が渡るため、例外が発生します。これを解消するには次のようにします。使って拡張子を取得することもできます。ファイル名から拡張子を取得するここでは、あるところで使われていたコードを見てみます。String'ファイルの拡張子を文字列操作で求める。'すべて小文字に変換する。'ファイルの拡張子を文字列操作で求める。'すべて小文字に変換する。その後ピリオドがあればそれより後ろを抜き出しています。ピリオドがなければ空文字列が返ります。最後の文字位置から検索を開始し、最初に見つかった文字位置を返す文字列処理関数です。使用され、最後の文字位置から検索を開始します。比較するモード(テキスト/バイナリ)を指定します。省略時はバイナリモードになります。Integer)与えられた文字列の左端から指定された長さの文字列を抽出します。小さいと例外が発生します。length])与えられた文字列の部分文字列を返します。して文字位置を指定します。Integer)与えられた文字列の右端から指定された長さの文字列を抽出します。小さいと例外が発生します。Oracle用のテーブル定義に変換して、一覧で出力するコードを紹介します。開いているエクセルのシートにアクセスファイル内のテーブル定義を一覧出力します。テーブル定義書(.xls)に貼り付けることを想定してテキストデータを作ります。システムテーブルは出力しません(コードを一部変更すれば出力できます)。リンクテーブルは、リンクの内容を表示します。リンク先のテーブルの定義は出力しません。