「ファイル検索」の編集履歴（バックアップ）一覧はこちら

「ファイル検索」(2006/09/29 (金) 18:33:53) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

*ファイル検索

サブルーチンにしてしまうといくらか使いにくくなるのでこちらに記述。

ファイル検索法の例として、指定されたフォルダ内のファイルとフォルダをリストアップするアルゴリズムを書いておきます。
これを改造すればファイル検索も可能なはず。

※注意
以下のサンプルをそのまま実行すると、ＳＲＣ本体フォルダ内のファイル数が多すぎてエラーがでます。（加えてかなり重いのでＰＣがストップするかも…）
基点フォルダを適当なものに変えて実行すると吉。

 ※サンプル
 Local i = 0
 Local FolderPath FileList newFolder newFile
 
 # 基点フォルダを指定
 FolderPath[0] = AppPath
 
 # 指定フォルダ内を検索
 Do While (FolderPath[i] != "")
   # フォルダがあったら追加する
   newFolder = Dir(FolderPath[i] & "*", "フォルダ")
   Do While (newFolder != "")
     FolderPath[Count(FolderPath)] = FolderPath[i] & newFolder & "\"
     newFolder = Dir()
   Loop
 
   # ファイルを検索
   newFile = Dir(FolderPath[i] & "*.*", "ファイル")
   Do While (newFile != "")
     FileList[Count(FileList)] = FolderPath[i] & newFile
     newFile = Dir()
   Loop
 
   Incr i
 Loop
 
 Ask FolderPath "test"
 Ask FileList "test"