ファイルを書き込もうとしたら、他のプロセスなどにそのファイルが掴まれていて、書き込みに失敗することがある。このとき成功するまで何度もチャレンジしたい。 Dim fso As New FileSystemObject Dim t As TextStream Do On Error Resume Next Set t = fso.…