A.Private Sub Cmd1_Click() CD1.FileName="SaveFile"
CD1.Filter="All Files|*.*|(*.txt)|*.txt| CD1.FilterIndex=1
CD1.DialogTitle="Save" CD1.Action=2 End
Sub
B.Private Sub Cmd1_Click() CD1.FileName="SaveFile"
D1.Filter="All Files|*.*|(*.txt)|*.txt| CD1.FilterIndex=2
CommonDialog1.DialogTitle="Save" CD1.Action=2
End Sub
C.Private Sub Cmd1_Click() CD1.FileName="Save"
CD1.Filter="All Files|*.*|(*.txt)|*.txt| CD1.FilterIndex=2
CD1.DialogTitle="SaveFile" CD1.Action=2 End
Sub
D.Private Sub Cmd1_Click() CD1.FileName="SaveFile"
CD1.Filter="All Files|*.*|(*.txt)|*.txt| CD1.FilterIndex=1
CD1.DialogTitle="Save" CD1.Action=1 End
Sub