【上書きモード】に関する知恵袋
【質問】
【初心者です】VBscriptについてのご質問【初心者です】VBscriptについて。VBscriptについて教えてほしいです。レンタルサーバには、OSはWindowsXPです。バッチファイルからvbsファイルを読み込み、iniファイルの特定のセクションにキーを書き込むという事をしようとしています。そこでサンプルソースを持ってきて色々触ってみたのですが、④がうまくいきません。ここでの書き込みを特定セクションに書き込むためにはどのような記述が必要になりますか？レンタルサーバを追求していくと、また、上書のモードの知恵袋に対しては、もっと簡単に出来る方法があれば教えて下さい。----------------以下サンプルソース-----------------Option Explicit'定数の宣言Const ForReading = 1 '読み込みConst ForWriting = 2 '書きこみ（上書きモード）Const ForAppending = 8 '書きこみ（追記モード）Dim objFileSysDim objOutFileDim objNetWorkDim strAccountInfo'①ユーザIDの取得Set objNetWork = WScript.CreateObject("WScript.Network")strAccountInfo = objNetWork.UserName'②ファイルシステムオブジェクトの作成Set objFileSys = WScript.CreateObject("Scripting.FileSystemObject")'③テキストファイルを書き込み（ただし追記モード）でオープンSet objOutFile = objFileSys.OpenTextFile("aaa.ini",ForAppending)'④テキストファイルへの書き込み（1行書き込み）objOutFile.WritePrivateProfileString(SECTIONNAME, KEYNAME, 0, aaa.ini)'⑤テキストファイルのクローズobjOutFile.Close'⑥オブジェクト破棄Set objFileSys = NothingSet objOutFile = NothingSet objNetWork = Nothing すみません、質問内容に問題があったので、上書のモードの知恵袋についてだが、書き直しました。
【解答】
試してみましたが、レンタルサーバなら、上書のモードの知恵袋を説明します。まず、エラーが出ます。上書のモードの知恵袋に関連する解説をすると、>objOutFile.WritePrivateProfileString(SECTIONNAME, KEYNAME, 0, aaa.ini)引数を()で指定するのであれば、レンタルサーバについて言及すると、Callが必要です。ファイル名も"で括っていません。WritePrivateProfileStringはTextStreamオブジェクトには存在しません。以下のページが参考になると思います。http://winofsql.jp/VA003334/vbsguide060101070259.htmhttp://www.microsoft.com/japan/technet/scriptcenter/resources/qanda/nov04/hey1130.mspx
