刷新指定目录下的模块信息
来源:互联网 发布:2017ipad视频软件 编辑:程序博客网 时间:2024/04/24 19:08
Sub Initialize
On Error Goto OnErrDo
Dim Session As NotesSession
Dim TDB As NotesDatabase
Dim AimDB As NotesDatabase
Dim TDoc As NotesDocument
Dim SDoc As NotesDocument
Dim NewDBDoc As NotesDocument
Dim DC As NotesDocumentCollection
Dim Paths(0 To 2) As String
Set Session = New NotesSession
Set TDB = Session.CurrentDatabase
Set TDoc = Session.DocumentContext
'=======================删除原模块信息文档======================
Query = "form='FormWeb_DBAdd'"
Set DC = TDB.Search(Query,Nothing,0)
If DC.Count > 0 Then
Call DC.RemoveAll(True)
End If
'=======================更新模块信息文档======================
AppPath = “highcomoa”
Directory = Session.GetEnvironmentString("Directory",True)
Paths(0) = Directory+"\"+AppPath+"\"
Paths(1) = Directory+"\"+AppPath+"\application\"
Paths(2) = Directory+"\"+AppPath+"\public\"
For i=0 To Ubound(Paths)
fileName$ = Dir$(Paths(i),16)
Do While fileName$ <> ""
Set AimDB = New NotesDatabase("","")
If Right(Lcase(fileName$),4) = ".nsf" Then
If AimDB.Open("",Paths(i)+fileName$) Then
Set NewDBDoc = New NotesDocument(TDB)
NewDBDoc.form = "FormWeb_DBAdd"
NewDBDoc.DocID = NewDBDoc.UniversalID
NewDBDoc.Chr_DBtitle = AimDB.Title
NewDBDoc.Chr_DBname = fileName$
NewDBDoc.Chr_DBpath = Right(Paths(i),Len(Paths(i))-Len(Directory)-1)
Call NewDBDoc.Save(True,True)
End If
End If
fileName$ = Dir$()
Loop
Next
'=============================================================
Exit Sub
OnErrDo:
Print "<h1> 警告!</h1>"
Print "错误信息" & Str(Err) & ": " & Error$ & "错误行:" & Erl
End Sub
- 刷新指定目录下的模块信息
- 如何获取服务器Data目录下指定目录的数据库信息
- 如何获取服务器Data目录下指定目录的数据库信息
- 指定目录下的 strip
- 1.作业:找出指定目录下所有.xml文件的相关信息
- 使用File类列出指定位置下的文件及目录信息
- C# 获取指定目录下所有文件信息、删除文件、目录,移动目录,拷贝目录
- C# 获取指定目录下所有文件信息、移动目录、拷贝目录
- C# 获取指定目录下所有文件信息、移动目录、拷贝目录
- Python应用指定路径下的模块
- vc查找指定目录下的文件:
- VC 遍历指定目录下的文件
- 查找指定目录下的文件
- 获取指定目录下的所有文件
- PYTHON 列出指定目录下的文件
- 遍历指定目录下的所有文件
- 删除指定目录下的文件
- 列出指定目录下的文件
- NCMsg_Test
- Oracle数据库表空间日常操作
- 网络数据的处理之HttpClient
- 6.087 Practical Programming in C, Assign1(not complete)
- 设置Android程序图标
- 刷新指定目录下的模块信息
- 虚拟机安装mac os
- Mysql+Json+Android的组合
- 插入排序
- 逃逸分析(Escape Analysis)
- jquery ajax跨域访问完整例子
- HTTP协议
- 2011年10月16日(陈)
- 给北软学生:咨询行业简介