Private Sub Command1_Click()
CD1.Filter="All File| * . * |Text File| * .txt|PPT| * .ppt"
CD1.FilterIndex=2
CD1.InitDir="C:"
CD1.FileName="default"
CD1.ShowSave
End Sub
1.Filter:为文件过滤器,列举出需要打开的文件类型,此程序包含的类型有TXT和ppt两种
2.Filterindex=1,表示另存为的类型为All File ,若
Filterindex=2,表示另存为的类型为txt,若
Filterindex=3,表示另存为的类型为PPt
3.initDir:表示指定通用对话框的初始目录
4.FileName:表示文件对话框默认的保存文件名
5.ShowSave:表示表示打开另存为对话框,执行保存文件的操作。
注意:CD1.showopen的程序位置很重要,如果放在程序开头,程序首先执行打开文件操作,而后面的程序则未执行到,需要第二次打开才执行后面的程序。