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 · ベストアンサー

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

お礼

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

回答No.2

arenani_sorenani

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に変な値が入っていたためのエラーでした。
お騒がせしてすみませんでした。