怎么获取非当前目录
Set curDb = ss.CurrentDatabase
Dim maindb As New NotesDatabase( "", "" )
maindb.Open(curDb.server, Left(curDb.FilePath,InStr(curDb.FilePath,"/")) & "maindb.nsf" )
我要获取非当前目录怎么写呢?
Dim forumdbAs New NotesDatabase( "", "" )
forumdb.Open(curDb.server, Left(curDb.FilePath,InStr(curDb.FilePath,"/")) &"/forum/forumdb.nsf" )
forumdb.Open(curDb.server, "/forum/forumdb.nsf" )
似乎都有问题
[解决办法]
晕,被你一楼写的程序带沟里了,斜杠全反了。
Dim dbpath As String
dbpath=curDb.FilePath
Dim patharray As String
v=Split1(dbpath,"\")
For i=0 To Ubound(v)-2
If i=0 Then
patharray=v(0)
Else
patharray=patharray+"\"+v(i)
End If
Next
if patharray<>"" then
patharray=patharray+"\"
end if
forumdbpath=patharray+"forum\forumdb.nsf"
forumdb.Open(curDb.server, forumdbpath )