出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
無題 　 恵比寿さん [2005/11/30 9:54:14] [5493]
　 Re:無題 　 ビギナーズラックさん [2005/11/30 12:56:03] [5495]
　 Re:無題 　 Lightningさん [2005/12/01 9:49:36] [5497]
[5493] 無題
投稿者：恵比寿さん 2005/11/30 9:54:14
Dim W_FS1
Set W_FS1 = CreateObject("Scripting.FileSystemObject")

Set W_FL1 = W_FS1.GetFile("E:\test\20051129.csv")
Set W_TS1 = W_FL1.OpenAsTextStream( 1, 0 )

E:\test\20051129.csvファイルが存在するの場合、エラーメッセージ「Microsoft VBScript 実行時エラー (0x800A0035)
ファイルが見つかりません。」もできました、なぜ？
[5495] Re:無題
投稿者：ビギナーズラックさん 2005/11/30 12:56:03
> Dim W_FS1
> Set W_FS1 = CreateObject("Scripting.FileSystemObject")
>
> Set W_FL1 = W_FS1.GetFile("E:\test\20051129.csv")
> Set W_TS1 = W_FL1.OpenAsTextStream( 1, 0 )
>
> E:\test\20051129.csvファイルが存在するの場合、エラーメッセージ「Microsoft VBScript 実行時エラー (0x800A0035)
> ファイルが見つかりません。」もできました、なぜ？

環境とかもっと詳しくプリーズですね
読み取り権限ないとかってオチは無いですよね？
[5497] Re:無題
投稿者：Lightningさん 2005/12/01 9:49:36
> Dim W_FS1
> Set W_FS1 = CreateObject("Scripting.FileSystemObject")
>
> Set W_FL1 = W_FS1.GetFile("E:\test\20051129.csv")
> Set W_TS1 = W_FL1.OpenAsTextStream( 1, 0 )
>
> E:\test\20051129.csvファイルが存在するの場合、エラーメッセージ「Microsoft VBScript 実行時エラー (0x800A0035)
> ファイルが見つかりません。」もできました、なぜ？

とりあえず、前にも書いたような気がしますけど、ファイルを開く前にファイルの存在有無を確認してください。

if W_FS1.FileExists(server.mappath("E:\test\20051129.csv")) then

Set W_FL1 = W_FS1.GetFile(server.Mappath("E:\test\20051129.csv"))
Set W_TS1 = W_FL1.OpenAsTextStream( 1, 0 )

end if
Server.Mappthはイランかも
あと、FileSystemObjectにはopenTextFileがあったような・・・

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