怎么让保存地址为默认地址

我的默认保存地址为c盘，现在增加了一个按钮，可以使文件保存到指定地址，但是保存完毕之后，在我接收数据的时候保存的地址马上又为c盘了，我想在我没有关闭程序的时候保存地址一直为我的指定地址，除非程序重新启动，默认地址才为c盘哪位大侠能帮帮忙给改下！不胜感激
Private Sub txtResponse_Change()
savetext.Text = "c:/db.txt"
Open savetext.Text For Output As #1
Print #1, txtResponse
Close #1
End Sub

Private Sub Command1_Click()
Dim str_filename As String
CommonDialog1.ShowSave
str_filename = CommonDialog1.FileName
savetext.Text = str_filename
If savetext.Text <> "" Then
Open savetext.Text For Output As #1
Print #1, txtResponse
Close #1
End If
End Sub

怎么让地址栏搜索地址默认为百度搜索 QQ截图的默认保存地址是什么? 微软拼音词库更改默认保存地址 怎样让word2007默认保存为2003?? 默认下载地址怎么改 怎么设置QQ接收的文件的默认的保存地址？ QQ截图的默认保存地址是哪个文件夹啊？ 请问Eclipse 在哪里能修改默认保存地址呢? 如何修改IE默认保存文件的地址？ 下载歌曲时，怎样修改默认下载保存地址？