打开文本框
控件:OpenFileDialog
代码:
- OpenFileDialog1.InitialDirectory = Application.ExecutablePath '初始目录为应用程序的可执行路径,
- OpenFileDialog1.DefaultExt = ".doc" '指定默认类型
- OpenFileDialog1.Filter = "文本型|*.txt|文档型|*.doc|所有文件|*.*"
- OpenFileDialog1.ShowDialog()
保存文本框
控件: SaveFileDialg
注意:把CheckFileExists 和 CheckPathExists都设为true