<ソース抜粋> Public Function WriterLines(ByVal lines As String()) As Boolean Try Using sw As New System.IO.StreamWriter(Me.filePath, True, System.Text.Encoding.GetEncoding(ShiftJIS)) For Each line As String In lines sw.WriteLine(line) Next sw.Close() End Using Return True Catch ex As Exception '例外時処理を行っています。 Throw End Try End Function