Private Sub Command1_Click()
Open App.Path + "\time.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
text1(i) = temp
i = i + 1
Loop
Close #1
bb = text1(1)
Open App.Path + "\1.txt" For Output As #1 '湖羲恅璃
Print #1, bb
Close #1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024