A.Private Sub Command1_Click() CD1.FileName="ABC" CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc) |*.doc" CD1.FilterIndex=1 CD1.DialogTitle="保存" CD1.Action=2 End Sub B.Private Sub Command1_Click() CD1.FileName="ABC" CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc) |*.doc" CD1.FilterIndex=2 CD1.DialogTitle="保存" CD1.Action=2 End Sub C.Private Sub Command1_Click() CD1.FileName="保存" CD1.Filter="All Files|*.*|(*.txt)|*.txt|(*.doc) |*.doc" CD1.FilterIndex=2 CD1.DialogTitle="ABC" CD1.Action=2 End Sub D.Private Sub Command1_Click() CD1.FileName="ABC" CD1.Filter="All Files[*.*|(*.txt)|*.txt|(*.doc) |*.doc" CD1.FilterIndex=1 CD1.DialogTitle="保存" CD1.Action=1 End Sub