vb 默认的文件保存路径是什么

保存路径是当前可执行程序所在的文件夹。比如exe在d:\work\c\test\demo.exe,哪么文件默认保存到d:\work\c\test，利用VB文件夹列表框控件设置文件夹路径的方法：

1、新建一个标准工程。

2、单击工具箱中的“文件列表框”控件，在窗体上拖一个出来。

3、单击已经拖好的文件列表框，在弹出的代码编辑区中键入如下代码：Dir1.Path="E:\2003\WXPE"，即就是要求显示E盘下的2003文件夹中的WXPE文件。

4、退出代码编辑窗口，单击菜单上三角执行按钮，运行该程序。

5、这时会便会发现之前的文件夹路径已经改变到刚才设置的E:\2003\WXPE的上来了。

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，程序运行时，自动读出默认保存路径。

---