请问VB程序里如何获取保存文件的路径？
Private Sub mnuSave_Click()If frmD.Grid1.SaveFile("") Then
MsgBox "保存成功。", vbExclamation, "提示"
End If
End Sub
上面是保存按钮的代码
我是想在保存时调用一加密程序，对保存的文件进行加密，但必须要返回文件保存的路径才可以吧。请高手看看
请详细一点，我是刚开始学的 --------------------编程问答-------------------- savefile后面的参数可以写路径吧，空的话，应该就是默认路径了
不建议用默认路径 --------------------编程问答-------------------- 用app.path不行吗？ --------------------编程问答-------------------- 谢谢楼上，我意思是保存之后让函数有个返回值，能返回保存的路径 --------------------编程问答-------------------- 我不会用APP.PATH，希望能有个例子俺看下APP.PATH怎么用
另外，如果能有个函数选中整个工作表也行，我试过 frmD.Grid1.Cells.Select不行，说没这么个函数。 --------------------编程问答-------------------- APP.PATH返回当前程序所在完整路径! --------------------编程问答-------------------- 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
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
保存的路径是你自己写的，没有问题。 --------------------编程问答-------------------- 你的程序最是要面向客户的，你不可能编译成EXE之后，还像在编程环境一样，可以用手工来写绝对路径。所以按你的要求，用相对路径也不太现实。要不就用通用对话框来返回文件路径或用输入框输入路径（inputbox) --------------------编程问答-------------------- '此为我写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
'然后自己修改一下吧。。偶也菜鸟。。 --------------------编程问答--------------------
'此为我写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
补充：VB , 基础类
