Option Explicit Private Sub Form_Load() Dim sfile As String, strChange As String sfile = App.Path + "\test.ini" Open sfile For Output As #1 strChange = "456RTY" Write #1, strChange Close #1 End Sub
7,785
社区成员
197,585
社区内容
加载中
试试用AI创作助手写篇文章吧