app.path .InitDir=App.pa

　　.InitDir=App.path

　　.InitDir=App.path + ""

　　有什么不同？

　　只有在当它返回值的时候才有不同的地方？

　　Private Sub CmdSave_Click()

　　Text1.Text=""

　　With CommonDialog1

　　.DialogTitle="另存为"

　　.InitDir=App.Path + "\" '!!!!

　　.Filter="AllFile(*.*)|*.*|窗体文件(*.frm)|*.frm|工程文件(*.vbp)|*.vbp"

　　.FilterIndex=2

　　.Flags=2

　　.Action=2

　　End With

　　If CommonDialog1.FileName="" Then

　　MsgBox "用户取消了保存文件操作"

　　Else

　　Text1.Text="文件已经保存成功！"

　　End If

　　End Sub

　　Private Sub CmdOpen_Click()

　　Text1.Text=""

　　With CommonDialog1

　　.DialogTitle="打开文件"

　　.InitDir=App.Path '!!!!

　　.Filter="AllFile(*.*)|*.*|窗体文件(*.frm)|*.frm|工程文件(*.vbp)|*.vbp"

　　.FilterIndex=2

　　.Flags=1

　　.Action=1

　　End With

　　If CommonDialog1.FileName="" Then

　　MsgBox "用户取消了打开文件操作"

　　Else

　　Text1.Text=CommonDialog1.FileName

　　End If

　　End Sub

　　如果应用程序在C盘根目录的话，App.path="c:"，后面有'\'，如果不在根目录则App.path="c:\某某目录"，后面没有'\'，则此时App.path+""与在根目录下的App.path格式相同：

　　Dim fullpath As String

　　If Right(App.Path, 1)="" Then ' 若 App.Path 为根目录

　　fullpath=App.Path + "文件名称"

　　Else

　　fullpath=App.Path + "" + "文件名称"

　　End If

　　' fullpath 等于 "文件名称" 的完整路径名称

　　只有在当它返回值的时候才有不同的地方？意思是App.path的值后面带不带'\'吗？只有是根目录时带'\'，不是根目录不带'\'