Private Sub Command1_Click()
On Error GoTo a
MkDir "c:\FOLDERNAME"
Open "c:\FOLDERNAME\TEST.txt" For Output As #1
Print #1, Me.Text1.Text
Close #1
Exit Sub
a:
Open "c:\FOLDERNAME\TEST.txt" For Output As #1
Print #1, Me.Text1.Text
Close #1
End Sub
Private Sub Command1_Click()
On Error GoTo a
MkDir "c:\FOLDERNAME"
Open "c:\FOLDERNAME\TEST.txt" For Output As #1
Print #1, Me.Text1.Text
Close #1
Exit Sub
a:
Open "c:\FOLDERNAME\TEST.txt" For Output As #1
Print #1, Me.Text1.Text
Close #1
End Sub
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول