程序里面尽量不用绝对路径,用相对路径。
Private Sub Command1_Click()Open "D:\123.txt" For output As #1Write #1, Text1.Text'CloseEnd Sub