csvファイルを読み込む方法について

aspにてscvファイルを読み込む際、直接ファイル名を指定するとうまくいくのですが、ファイル名を変数で指定しようとすると、「ファイルが見つかりません」というエラーになってしまいます。どのように記述すれば良いでしょうか。お教えください。よろしくお願いいたします。
（例）
'OK
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objText = objFS.OpenTextFile(Server.MapPath("aaa.csv"),1)

'NG
fname = "aaa.csv"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objText = objFS.OpenTextFile(Server.MapPath(fname),1)
また、
Set objText = objFS.OpenTextFile(Server.MapPath("""" & fname & """"),1)
としてもダメでした。以上です。

No.1 ベストアンサー 回答者： Bonjin 回答日時： 2006/12/12 19:41

とりあえず

>Server.MapPath(fname)
がどんな値になっているのかチェックしてみてはいかがですか？

この回答へのお礼

お礼が遅れて済みません。
Set objText = objFS.OpenTextFile(Server.MapPath(fname),1)
でうまくいきました。
実際にはfnameを関数の引数として取得していたため、fnameに変な値が入っていたためのエラーでした。
有難うございました。

お礼日時：2007/05/24 11:44

No.2 回答者： arenani_sorenani 回答日時： 2006/12/16 00:12

fname = Server.MapPath(".") & "\aaa.csv"

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objText = objFS.OpenTextFile(fname ,1)

または

fname = "aaa.csv"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objText = objFS.OpenTextFile(Server.MapPath("./") & fname ,1)

とかはだめですか・・・？

この回答へのお礼

arenani_sorenani様
お礼が遅れて済みません。
Set objText = objFS.OpenTextFile(Server.MapPath(fname),1)
でうまくいきました。
実際にはfnameを関数の引数として取得していたため、fnameに変な値が入っていたためのエラーでした。
お騒がせしてすみませんでした。

お礼日時：2007/05/24 11:47