出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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があったような・・・
無題 　 恵比寿さん [2005/11/30 9:54:14] [5493]
　 Re:無題 　 ビギナーズラックさん [2005/11/30 12:56:03] [5495]
　 Re:無題 　 Lightningさん [2005/12/01 9:49:36] [5497]

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