------------------------------------------------------------------------- Const ForAppending = 8 strNG = WScript.Arguments.Item(0) strType = WScript.Arguments.Item(1) If Trim(strNG) = "" Then WScript.Quit Set fso = CreateObject("Scripting.FileSystemObject") Select Case strType Case "Memo1" Set f = fso.OpenTextFile("Memo1.txt" , ForAppending, True) Case "Memo2" Set f = fso.OpenTextFile("Memo2.txt" , ForAppending, True) Case "Memo3" Set f = fso.OpenTextFile("Memo3.txt" , ForAppending, True) End Select f.WriteLine(strNG) f.close Set f = Nothing Set fso = Nothing ----------------------------------------------------------------------------- んで Memo1.txt〜Memo3.txtまでをJaneのフォルダにぶち込んで