文件操作没办法只替换第一行，只能读出全部，再写回去。
这样Dim s As StringOpen c For Binary As #1 s = Input(LOF(1), 1)Close #1Open c For Output As #1 Print #1, "" & vbCrLf & sClose #1
