出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
特定ファイル一覧 　 Sawaさん [2001/12/21 14:12:01] [1301]
　 Re:特定ファイル一覧 　 arikさん [2001/12/21 15:58:47] [1302]
　 Re:特定ファイル一覧 　 Tomitomiさん [2001/12/21 16:35:21] [1303]
　 　 Re:特定ファイル一覧 　 Sawaさん [2001/12/22 18:10:55] [1305]
[1301] 特定ファイル一覧
投稿者：Sawaさん 2001/12/21 14:12:01
はじめまして、Sawaと言います。

ASPで、あるディレクトリの特定ファイル名のファイル一覧を
取得しようと思い下記のように作成してみたのですが、
他のファイルが多すぎて、思うようにレスポンスが出ません。
誰か別の良い案があれば、教えて頂けないでしょうか？
宜しくお願いします。
-----------------------------------------------------------
Set fs = CreateObject("Scripting.FileSystemObject")

dn = "C:\TEST\"
'ファイル名をGET
Set f = fs.GetFolder(dn)
Set fc = f.Files

For Each f1 in fc
Set f2 = fs.GetFile(f1.Path)
filename = f2.Name
fn = Left(filename, Len(filename) - 4)
If Right(fn, 4) = "_err" Then
vFileList = vFileList & filename & ","
End If
Next
[1302] Re:特定ファイル一覧
投稿者：arikさん 2001/12/21 15:58:47
無駄を省くこと。

For Each f1 in fc
filename = f1.Name
If Instr(filename,"_err.") Then
vFileList = vFileList & filename & ","
End If
Next
[1303] Re:特定ファイル一覧
投稿者：Tomitomiさん 2001/12/21 16:35:21
こんにちは、Tomitomiです。

> ASPで、あるディレクトリの特定ファイル名のファイル一覧を
> 取得しようと思い下記のように作成してみたのですが、
> 他のファイルが多すぎて、思うようにレスポンスが出ません。
> 誰か別の良い案があれば、教えて頂けないでしょうか？
> 宜しくお願いします。

ファイル数ってどれくらいあるんでしょうか？
ふっと思ったのは、「FileSystemObject」ですべてのファイルを
ループするのではなく、フィルタみたいな物があれば早くなるかな？と
思ったのですが、探してみたんですがないみたいです。ｗ

で、次に思いついたのが、ディレクトリ内を参照するのではなく
ディレクトリ内を検索してみてはどうか？
と思い探してみたのですが、これもないみたいです。

arikさんの方法でも改善できないならば、
API等を使用したファイルを検索するDLL作るしかないのでは？
個人的には↑これが早くなりそうな気はする。
[1305] Re:特定ファイル一覧
投稿者：Sawaさん 2001/12/22 18:10:55
こんにちは、Sawaです。
arikさん、Tomitomiさん、ありがとうございました。

とりあえず、arikさんの方法で以前の3/4くらいのレスポンスになりました。

> ファイル数ってどれくらいあるんでしょうか？

ファイルは約3000中の100ファイルくらいです。
やはりファイル数が多すぎるようでまだまだ遅いです。

> ふっと思ったのは、「FileSystemObject」ですべてのファイルを
> ループするのではなく、フィルタみたいな物があれば早くなるかな？と
> 思ったのですが、探してみたんですがないみたいです。ｗ

これが出来ると良いんですけどね・・・

> API等を使用したファイルを検索するDLL作るしかないのでは？
> 個人的には↑これが早くなりそうな気はする。

こっちの方法も、検討してみます。
ありがとうございました。

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ