Dim fsoTest As New FileSystemObject, file1 As File, ts As TextStream
Set file1 = fsoTest.GetFile("c:\a.txt")
Set ts = file1.OpenAsTextStream(ForWriting)
'使用Write方法写入
For I = 1 To 99999
ts.Write (I & vbCrLf)
Next
ts.Close
End Sub
Public Sub WriteLogNew(strTitle As String, strMessage As String, logshain As SHAIN)
Dim objFSO As Scripting.FileSystemObject
Dim objFilestream As Object
Dim update_time As String
Dim strFileName As String
Dim strWriteline As String
Dim iCntSpace_kanji As Integer
Dim iCntSpace_kana As Integer
Dim logIndex As String
Dim strTemp As String
Dim lngMax As Double
update_time = Format(Now, "yyyymmddhhmmss")
strFileName = App.Path & "\" & LOG
Set objFSO = New Scripting.FileSystemObject
Set objFilestream = objFSO.OpenTextFile(strFileName, ForReading)
logIndex = "0"
Do While Not (objFilestream.AtEndOfStream)
logIndex = Left(objFilestream.ReadLine, 5)
Loop
If logIndex = "99999" Then 'レコードNOはMAX99999まで到達した場合、バックアップファイルにコピーし、ログファイルは初期化する。
objFilestream.Close
objFSO.DeleteFile strFileName
Set objFilestream = objFSO.OpenTextFile(strFileName, ForAppending, True)
logIndex = Format(1, "00000")
ElseIf logIndex = "0" Then
logIndex = Format(1, "00000")
Else
logIndex = Format(Val(logIndex + 1), "00000")
End If