ä¸ä¸ªçªä½ï¼ä¸ä¸ªå½ä»¤æé®
å¨ä½ çç¨åºç®å½ä¸æ¾ä¸ä¸ªå为123çtxtæ件ï¼éé¢å«æå
容ï¼
å½ä»¤æé®ä¸æ·»å 代ç ï¼
Private Sub Command1_Click()
Open App.Path &"\123.txt" For Output As #1
Print #1, ""
Close #1
End Sub
å®ç°ææï¼åå»å½ä»¤æé®åï¼123.txtæ件ä¸çå
容被æ¸
空
第äºé¢ï¼ä¸ä¸ªçªä½ï¼ä¸ä¸ªå½ä»¤ææ¬æ¡
ææ¬æ¡changeäºä»¶ä¸æ·»å 代ç ï¼
Private Sub Text1_Change()
Open "C:\a.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
温馨提示:答案为网友推荐,仅供参考