VB6.0で次のようなコーディングをしています。

Dim FNmDic As Variant
Dim HelpFile As File

Set FNmDic = CreateObject("Scripting.Dictionary")
FNmDic.Add Left(HelpFile.Name, 3), HelpFile.Path

このFNmDic.Addに２秒もかかってしまいます。

HelpFileは、先頭3文字が数字のファイルを指しており、キーの役目をしています。
HelpFileがローカルにあるファイルをさしている場合は、遅くないのですが、
ほかの端末の共有フォルダにあるファイルを指すとAddが遅いです。
また、この現象はエンドユーザの環境で発生し、私の開発環境では発生していません。

Addを１秒以下にしたいのですが、何か解決の糸口はあるでしょうか？
なおOSは、エンドユーザ、開発環境ともにWindows7です。

> Dim FNmDic As Variant
As Object が適切かと。
(もしくは、参照設定した上で As Scripting.Dictionary)


> このFNmDic.Addに２秒もかかってしまいます。
遅いのは Dictionary ではなく、File では無いでしょうか？

Name や Path を String 変数までに取り出すところと、
その変数を Add する処理とに分離して、再度時間測定してみてください。

もしも File が遅いようであれば、FileSystemObject ではなく、
Dir 関数を使う方向で再検討してみては如何でしょう。

返信ありがとうございます。

> > このFNmDic.Addに２秒もかかってしまいます。
> 遅いのは Dictionary ではなく、File では無いでしょうか？
そこになかなか気づきませんでした。

> Name や Path を String 変数までに取り出すところと、
> その変数を Add する処理とに分離して、再度時間測定してみてください。
このあたりを確認し、処理を検討したいと思います。

ありがとうございました。