يه فرم اصلي دارم که توي فرم اصلي يه TextBox به نام txtMain دارم حالا در اين کد که توي يه فرم مربوط به save کردن فايل هست متن درون txtMain رو توي يه فايل ذخيره نميکنه.
کد:
Private Sub OKButton_Click()
Dim fs, a
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Drive1.Drive + Text1.Text + "." + Combo1.Text, False)
a.WriteLine (frmMain.txtMain.Text)
a.Close
Unload Me
End Sub
