请问VB程序里如何获取保存文件的路径？

Question

Private Sub mnuSave_Click()
    If frmD.Grid1.SaveFile("") Then
        MsgBox "保存成功。", vbExclamation, "提示"
    End If
End Sub
上面是保存按钮的代码
我是想在保存时调用一加密程序，对保存的文件进行加密，但必须要返回文件保存的路径才可以吧。请高手看看
请详细一点，我是刚开始学的

Answer 1

savefile后面的参数可以写路径吧，空的话，应该就是默认路径了
不建议用默认路径

Answer 2

我不会用APP.PATH，希望能有个例子俺看下APP.PATH怎么用
另外，如果能有个函数选中整个工作表也行，我试过 frmD.Grid1.Cells.Select不行，说没这么个函数。

Answer 3

APP.PATH返回当前程序所在完整路径!

Answer 4

APP.PATH=执行程序所在的完整路径.
取得一个带路径的文件名的路径的方法,就是在文件名字符串里遍历"\"号.Dim myfilename As String
Dim mypath As String
Dim TempSite As Integer
myfilename = "d:\afiles\bfiles\cfiles\dfile.txt"
TempSite = InStr(myfilename, "\")
Do Until TempSite = 0
 mypath = Left(myfilename, TempSite)
 TempSite = InStr(TempSite + 1, myfilename, "\")
Loop

Answer 5

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "保存文件" '对话框标题
CommonDialog1.Filter = "文本文件|*.txt" '设置文件的保存为文件文件
CommonDialog1.ShowOpen '打开通话框，可以在对话框选择一个文件，也可以输入一个新的文件名，建立一个新的文件
Open CommonDialog1.FileName For Output As #1 '对文件的写操作
Print #1, "这是用通用对话框保存的文件" ' 写文件
Close '关闭文件
pathval = CommonDialog1.FileName 'pathval 变量返回保存路径
MsgBox "文件保存在： " & pathval & Chr(13) & Chr(10) & "请打开磁盘查看", vbOKOnly, "保存提示" '提示文件保存的位置
End Sub

Answer 6

你的程序最是要面向客户的，你不可能编译成EXE之后，还像在编程环境一样，可以用手工来写绝对路径。所以按你的要求，用相对路径也不太现实。要不就用通用对话框来返回文件路径或用输入框输入路径（inputbox)

Answer 7

'此为我写URLDownload下载文件程序保存sub
Private Sub Command4_Click()
On Error Resume Next
Dim aa As String
Dim n As Integer
aa = Text1.Text 'text1是输入网址的地方
n = InStr(aa, "/") '找到字串中带"\"或带"/"的地方
If n = 0 Then
aa = Right(aa, InStr(StrReverse(aa), "\") - 1)'取"\"后的字串，即文件名
ElseIf n <> 0 And n > 0 Then
aa = Right(aa, InStr(StrReverse(aa), "/") - 1)'取"/"后的字串，即文件名
End If
  With CommonDialog1        '调出保存的对话框
   .DialogTitle = "保存文件"
   .FileName = aa           '此时的aa已经是文件名，而不是完整路径
   .Filter = "All files|*.*"
   .ShowSave
  End With
Text2.Text = CommonDialog1.FileName '完整路径
End Sub
'然后自己修改一下吧。。偶也菜鸟。。

Answer 8

'此为我写URLDownload下载文件程序保存sub
Private Sub Command4_Click()
On Error Resume Next
Dim aa As String
Dim n As Integer
aa = Text1.Text 'text1是输入网址的地方
n = InStr(aa, "/") '找到字串中带"\"或带"/"的地方
If n = 0 Then
aa = Right(aa, InStr(StrReverse(aa), "\") - 1)'取"\"后的字串，即文件名
ElseIf n <> 0 And n > 0 Then
aa = Right(aa, InStr(StrReverse(aa), "/") - 1)'取"/"后的字串，即文件名
End If
  With CommonDialog1        '调出保存的对话框
   .DialogTitle = "保存文件"
   .FileName = aa           '此时的aa已经是文件名，而不是完整路径
   .Filter = "All files|*.*"
   .ShowSave
  End With
Text2.Text = CommonDialog1.FileName '完整路径
End Sub