扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
其
成都创新互联致力于互联网品牌建设与网络营销,包括成都网站设计、成都网站建设、SEO优化、网络推广、整站优化营销策划推广、电子商务、移动互联网营销等。成都创新互联为不同类型的客户提供良好的互联网应用定制及解决方案,成都创新互联核心团队10多年专注互联网开发,积累了丰富的网站经验,为广大企业客户提供一站式企业网站建设服务,在网站建设行业内树立了良好口碑。
FileName
属性可以取到点击确定之后的完整路径地址,是带文件名的,再利用
System.IO.Path.GetDirectoryName()
方法就可以取到文件夹路径。
其
InitialDirectory
属性可以设置打开时默认指向的路径。
1,点击“工程-部件”,显示“部件”对话框,将“Microsoft Common Dialog control 6.0”选中,然后确定。
2,添加工具栏中的CommonDialog控件图标,将其添加到窗体上。
3,窗体添加Command控件和Text控件,用来浏览目录和保存默认路径。
4,在Command中添加以下代码:
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "选择保存目录"
CommonDialog1.Filter = "全部文件 (*.*)|*.*"
CommonDialog1.FileName = "保存目录"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowSave
If CommonDialog1.FileName "" Then
Text1 = Left(CommonDialog1.FileName, Len(CommonDialog1.FileName) - Len(CommonDialog1.FileTitle))
Open "C:\path.txt" For Output As #1
Print #1, Text1 '写入默认保存路径
Close #1
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
If Dir("C:\path.txt") "" Then
Open "C:\path.txt" For Input As #1 '自动读出默认保存路径
Input #1, TEMPA
Text1.Text = TEMPA
Close #1
End If
End Sub
5,以上代码就达到TEXT1控件中保存默认保存路径的目的,Command1点击选择时能保存默认路径到c:\path.txt,程序运行时,自动读出默认保存路径。
系统默认的是 当前目录。
这个当前目录 我碰到两种情况。 1、此程序未打开过任何的dialog的话 是和当前工程(exe)在一起。 2、 若打开过dialog 且并未返回当前工程目录的话,去你上一次dialog中打开的位置去找吧。 一般情况下 为了保证此目录唯一。 我写程序时 在启动后获取当前(exe所在目录) 并保存起来。 以后保存文件时 直接加上目录。免得有的时候 根本不知道保存到哪去了。尤其是调试中 直接中断程序 导致dialog 未正常返回的时候
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流