お前ら、wsh使ってますか? Part7at WINお前ら、wsh使ってますか? Part7 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト800:名無し~3.EXE 10/01/13 02:12:06 3721OXm1 HTAがいちばんかんたん 801:名無し~3.EXE 10/01/15 19:41:04 TCjMpnYM ieのstatustextがいちばんかんたん 802:名無し~3.EXE 10/01/17 10:04:44 Ix5w7yDX http://rocketeer.dip.jp/sanaki/free/free42.htm ↑ここにあったスクリプトなんですが、次のように改変して使いたいのですが動きません どこに何が足りないのか、どなたかご教授くださいませ (※ターゲットファイルはUTF-8なのでそのままで保存したいです) 803:名無し~3.EXE 10/01/17 10:05:26 Ix5w7yDX Dim FI Dim FO Dim Obj Dim beforeStr Dim afterStr Dim FileName Dim R FileName = "C:\Windows\system.ini" beforeStr = "MailBox" afterStr = "MailBox=d:\mailbox" Set Obj = CreateObject("Scripting.FileSystemObject") Set FI = Obj.OpenTextFile(FileName,1,0) Set FO = Obj.OpenTextFile(FileName & ".bak",2,True,0) While Not FI.AtEndOfStream = True R = FI.ReadLine If Left(R,Len(beforeStr)) = beforeStr Then R = afterStr End If FO.WriteLine (R) Wend FI.Close FO.Close Obj.DeleteFile FileName Obj.MoveFile FileName & ".bak",FileName Set Obj = Nothing Set FI = Nothing Set FO = Nothing Set Param = Nothing WScript.Quit よろしくおねがいします 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch