Set Stream = CreateObject( "ADODB.Stream" )

Stream.Open
Stream.Type = 2	' テキスト
Stream.Charset = "euc-jp"
Stream.LoadFromFile "euc_lf.txt"

Stream.Position = 0
Stream.LineSeparator = 10	' LF

Do While not Stream.EOS
	' -2 は、ストリームから次の行を読み取ります
	strRet = Stream.ReadText( -2 ) 
Loop

Stream.Close

Set Stream = CreateObject( "ADODB.Stream" )
Set Stream2 = CreateObject( "ADODB.Stream" )

Stream.Open
Stream.Type = 2	' テキスト
Stream.Charset = "euc-jp"
Stream.LoadFromFile "euc_lf.txt"

Stream2.Open
Stream2.Charset = "shift_jis"
Stream.CopyTo Stream2
Stream.Close

Stream2.Position = 0
Stream2.LineSeparator = 10	' LF

Do While not Stream2.EOS
	' -2 は、ストリームから次の行を読み取ります
	strRet = Stream2.ReadText( -2 ) 
Loop

Stream2.Close

Set Stream = CreateObject( "ADODB.Stream" )
Set Fso = CreateObject( "Scripting.FileSystemObject" )

Stream.Open
Stream.Type = 2	' テキスト
Stream.Charset = "euc-jp"
Stream.LoadFromFile "euc_lf.txt"

Stream.Position = 0
Stream.LineSeparator = 10	' LF

Set objHandle = Fso.OpenTextFile( "Shift_Jis_crlf.txt", 2, True )

Do While not Stream.EOS
	' -2 は、ストリームから次の行を読み取ります
	objHandle.WriteLine Stream.ReadText( -2 ) 
Loop

objHandle.Close
Stream.Close

Set Stream = CreateObject( "ADODB.Stream" )
Set Stream2 = CreateObject( "ADODB.Stream" )

Stream.Open
Stream.Type = 2	' テキスト
Stream.Charset = "euc-jp"
Stream.LoadFromFile "euc_lf.txt"
Stream.LineSeparator = 10	' CRLF
Stream.Position = 0

Stream2.Open
Stream2.Type = 2	' テキスト
Stream2.Charset = "shift_jis"
Stream2.LineSeparator = -1	' CRLF

Do While not Stream.EOS
	' -2 は、ストリームから次の行を読み取ります
	Stream2.WriteText Stream.ReadText( -2 ), 1
Loop

Stream2.SaveToFile "Shift_Jis_crlf.txt", 2

Stream.Close
Stream2.Close