# Re: 到上一层目录 如何做 ?

Posted by Honey on September 05, 1998 at 21:55:54:

In Reply to: 到上一层目录 如何做 ? posted by Shelby on September 05, 1998 at 19:30:39:

不记得有类是的函数
我有写个成函数 可以找出路径
我用的方法是用 '\' 判别

Function ExtractPath$(sSpecIn$)

Dim nCnt As Integer, sSpecOut As String
On Local Error Resume Next

If InStr(sSpecIn, "\") Then
'/*检查是否有"\"字串 非零表示成立*/
For nCnt = Len(sSpecIn) To 1 Step -1
'/*从后面开始比对*/
If Mid$(sSpecIn, nCnt, 1) = "\" Then
sSpecOut = Left$(sSpecIn, nCnt)
'/*从字串开头取到最后一个 "\" 字串*/
Exit For
End If
Next nCnt
ElseIf InStr(sSpecIn, ":") = 2 Then
sSpecOut = CurDir$(sSpecIn)
If Len(sSpecOut) = 0 Then sSpecOut = CurDir$

Else
sSpecOut = CurDir$
'传回目前磁碟机的路径
End If
If Right$(sSpecOut, 1) <> "\" Then
sSpecOut = sSpecOut + "\"
End If
ExtractPath$ = UCase$(sSpecOut)

End Function

使用方法是这样
dim g as string,d as string
g=app.path
d=ExtractPath$(g)
'/*d 就是应用程式所在目录的 _
上一层的目录*/

: 请问
: 错的程式码 :
: dbName = App.Path + "/" + "DataBase" + "\" + txtDbName.Text + ".mdb"
: 我想到上一层目录, 如何做 ?

Follow Ups:

- 加个 ..\ 就可以了 小吴 07:28:59 9/07/98 (0)