Notes Error:Cannot write or file(file or disk if readonly)

[dj2267239]

我的代碼如下：
　Sub Click(Source As Button)
Dim session As New NotesSession
'Dim db As NotesDatabase
Dim db2 As NotesDatabase
Dim dc As NotesDocumentCollection
'Dim doc As NotesDocument

Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc=workspace.currentDocument
Set doc=uidoc.document


'Set db=session.CurrentDatabase
Set db2=New NotesDatabase( " ","MTDGNS01//wintek\\MIS\\BadComputer.nsf")

'Call db.UpdateFTIndex(True)
Call doc.CopyToDatabase(db2)


End Sub
我的用途是把當前文檔復制到指定的資料庫上去 Set db2=New NotesDatabase( " ","MTDGNS01//wintek\\MIS\\BadComputer.nsf") 研究中　哪位大大指點指點　.............

[dj2267239]

win2000

[dj2267239]

domino 5.0

[wgljakey]

你看看你用于开发的那个nsf的属性是不是只读的？？？我今天就是这个错，因为我把它check out出来的副本。

[dj2267239]

這個與我對服務器上的磁碟的讀取權限有關嗎？郁悶中　。。。。。。。。。

[dj2267239]

沒人看見　我要頂出來　頂　。。。。。。。。。

[carlunbu]

应该是与权限有关吧。什么操作系统啊？

[dj2267239]

這個問題　我後來沒用套表　就OK了　沒其它方法　過年了　接貼先　謝謝樓上的給位!!