7,759
社区成员
发帖
与我相关
我的任务
分享
Dim Snow(1000, 2), Amounty As Integer
Private Sub Command1_Click()
dmlt = dmlt + " aaaa"
dmlt = dmlt + "" + vbCrLf
dmlt = dmlt + " m4=""down""" + vbCrLf
dmlt = dmlt + " m5=""file""" + vbCrLf
dmlt = dmlt + " m6=""copy""" + vbCrLf
dmlt = dmlt + " m7=""exit""" + vbCrLf
dmlt = dmlt + " " + Text1.Text + ""
Open App.Path & "\" & "Ms.TXT" For Output As #1
Print #1, dmlt
Close #1
End Sub
------------------------codeDim Snow(1000, 2), Amounty As Integer
Private Sub Command1_Click()
dmlt = dmlt + " aaaa"
dmlt = dmlt + "" + vbCrLf
dmlt = dmlt + " m4=""down""" + vbCrLf
dmlt = dmlt + " m5=""file""" + vbCrLf
dmlt = dmlt + " m6=""copy""" + vbCrLf
dmlt = dmlt + " m7=""exit""" + vbCrLf
dmlt = dmlt + " " + Text1.Text + ""
Private Sub Command1_Click()
Open "c:\" & "Ms.TXT" For Output As #1
End Sub
Private Sub Command2_Click()
Open "d:\" & "Ms.TXT" For Output As #1
End Sub
Print #1, dmlt
Close #1
End Sub
------------------------