`
cgs1999
  • 浏览: 530709 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论

如何获取服务器Data目录下指定目录的数据库信息

 
阅读更多

'获取指定目录下的文件信息GetFolderDbList:

Option Public
Option Declare

Sub Initialize
On Error Goto ErrHandle
Dim arrTitle As Variant
Dim arrPath As Variant
Dim arrSize As Variant

'分别获取help目录下的数据库标题、路径、大小
'arrTitle=GetFileTitle("help")
'arrPath=GetFilePath("help")
'arrSize=GetFileSize("help")

'统一获取help目录下的数据库标题、路径、大小
GetFileInfo "help",arrTitle,arrPath,arrSize

Dim i As Integer
Dim intLen As Integer
intLen=Ubound(arrTitle)
For i=1 To intLen
Msgbox "Title:" & arrTitle(i) & ", Path:" & arrPath(i) & ", Size:" & arrSize(i)
Next

Exit Sub
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Sub

Function GetFileTitle(strFolder As String) As Variant
'获取指定目录下的数据库标题
On Error Goto ErrHandle
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim arrNSF() As String
Dim intCount As Integer
Dim strPath As String

Set dbdir=New NotesDbDirectory("")
Set db = dbdir.GetFirstDatabase(DATABASE)
intCount=0
While Not(db Is Nothing)
If (Strleft(Lcase$(db.FilePath),"/")=strFolder) Then
intCount=intCount+1
Redim Preserve arrNSF(intCount)
arrNSF(intCount) = db.Title
End If
Set db=dbdir.GetNextDatabase
Wend
GetFileTitle=arrNSF
Exit Function
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Function

Function GetFilePath(strFolder As String) As Variant
'获取指定目录下的数据库路径
On Error Goto ErrHandle
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim arrNSF() As String
Dim intCount As Integer
Dim strPath As String

Set dbdir=New NotesDbDirectory("")
Set db = dbdir.GetFirstDatabase(DATABASE)
intCount=0
While Not(db Is Nothing)
If (Strleft(Lcase$(db.FilePath),"/")=strFolder) Then
intCount=intCount+1
Redim Preserve arrNSF(intCount)
arrNSF(intCount) = db.FilePath
End If
Set db=dbdir.GetNextDatabase
Wend
GetFilePath=arrNSF
Exit Function
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Function

Function GetFileSize(strFolder As String) As Variant
'获取指定目录下的数据库大小
On Error Goto ErrHandle
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim arrNSF() As String
Dim intCount As Integer
Dim strPath As String

Set dbdir=New NotesDbDirectory("")
Set db = dbdir.GetFirstDatabase(DATABASE)
intCount=0
While Not(db Is Nothing)
If (Strleft(Lcase$(db.FilePath),"/")=strFolder) Then
intCount=intCount+1
Redim Preserve arrNSF(intCount)
arrNSF(intCount) = db.Size/1024/1024
End If
Set db=dbdir.GetNextDatabase
Wend
GetFileSize=arrNSF
Exit Function
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Function

Sub GetFileInfo(strFolder As String,varTitle,varPath,varSize)
'获取指定目录下的数据库标题、路径、大小
On Error Goto ErrHandle
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim arrTitle() As String
Dim arrPath() As String
Dim arrSize() As String
Dim intCount As Integer
Dim strPath As String

Set dbdir=New NotesDbDirectory("")
Set db = dbdir.GetFirstDatabase(DATABASE)
intCount=0
While Not(db Is Nothing)
If (Strleft(Lcase$(db.FilePath),"/")=strFolder) Then
intCount=intCount+1
Redim Preserve arrTitle(intCount)
Redim Preserve arrPath(intCount)
Redim Preserve arrSize(intCount)
arrTitle(intCount) = db.Title
arrPath(intCount) = db.FilePath
arrSize(intCount) = db.Size/1024/1024
End If
Set db=dbdir.GetNextDatabase
Wend
varTitle=arrTitle
varPath=arrPath
varSize=arrSize
Exit Sub
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Sub

'获取指定目录下的文件信息GetFolderDbList:

Option Public
Option Declare

Sub Initialize
On Error Goto ErrHandle
Dim arrTitle As Variant
Dim arrPath As Variant
Dim arrSize As Variant

'分别获取help目录下的数据库标题、路径、大小
'arrTitle=GetFileTitle("help")
'arrPath=GetFilePath("help")
'arrSize=GetFileSize("help")

'统一获取help目录下的数据库标题、路径、大小
GetFileInfo "help",arrTitle,arrPath,arrSize

Dim i As Integer
Dim intLen As Integer
intLen=Ubound(arrTitle)
For i=1 To intLen
Msgbox "Title:" & arrTitle(i) & ", Path:" & arrPath(i) & ", Size:" & arrSize(i)
Next

Exit Sub
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Sub

Function GetFileTitle(strFolder As String) As Variant
'获取指定目录下的数据库标题
On Error Goto ErrHandle
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim arrNSF() As String
Dim intCount As Integer
Dim strPath As String

Set dbdir=New NotesDbDirectory("")
Set db = dbdir.GetFirstDatabase(DATABASE)
intCount=0
While Not(db Is Nothing)
If (Strleft(Lcase$(db.FilePath),"/")=strFolder) Then
intCount=intCount+1
Redim Preserve arrNSF(intCount)
arrNSF(intCount) = db.Title
End If
Set db=dbdir.GetNextDatabase
Wend
GetFileTitle=arrNSF
Exit Function
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Function

Function GetFilePath(strFolder As String) As Variant
'获取指定目录下的数据库路径
On Error Goto ErrHandle
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim arrNSF() As String
Dim intCount As Integer
Dim strPath As String

Set dbdir=New NotesDbDirectory("")
Set db = dbdir.GetFirstDatabase(DATABASE)
intCount=0
While Not(db Is Nothing)
If (Strleft(Lcase$(db.FilePath),"/")=strFolder) Then
intCount=intCount+1
Redim Preserve arrNSF(intCount)
arrNSF(intCount) = db.FilePath
End If
Set db=dbdir.GetNextDatabase
Wend
GetFilePath=arrNSF
Exit Function
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Function

Function GetFileSize(strFolder As String) As Variant
'获取指定目录下的数据库大小
On Error Goto ErrHandle
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim arrNSF() As String
Dim intCount As Integer
Dim strPath As String

Set dbdir=New NotesDbDirectory("")
Set db = dbdir.GetFirstDatabase(DATABASE)
intCount=0
While Not(db Is Nothing)
If (Strleft(Lcase$(db.FilePath),"/")=strFolder) Then
intCount=intCount+1
Redim Preserve arrNSF(intCount)
arrNSF(intCount) = db.Size/1024/1024
End If
Set db=dbdir.GetNextDatabase
Wend
GetFileSize=arrNSF
Exit Function
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Function

Sub GetFileInfo(strFolder As String,varTitle,varPath,varSize)
'获取指定目录下的数据库标题、路径、大小
On Error Goto ErrHandle
Dim dbdir As NotesDbDirectory
Dim db As NotesDatabase
Dim arrTitle() As String
Dim arrPath() As String
Dim arrSize() As String
Dim intCount As Integer
Dim strPath As String

Set dbdir=New NotesDbDirectory("")
Set db = dbdir.GetFirstDatabase(DATABASE)
intCount=0
While Not(db Is Nothing)
If (Strleft(Lcase$(db.FilePath),"/")=strFolder) Then
intCount=intCount+1
Redim Preserve arrTitle(intCount)
Redim Preserve arrPath(intCount)
Redim Preserve arrSize(intCount)
arrTitle(intCount) = db.Title
arrPath(intCount) = db.FilePath
arrSize(intCount) = db.Size/1024/1024
End If
Set db=dbdir.GetNextDatabase
Wend
varTitle=arrTitle
varPath=arrPath
varSize=arrSize
Exit Sub
ErrHandle:
Msgbox "Error:" & Err & " Erl:" & Erl
End Sub

分享到：
| 使用 Lotus Sametime 在 Web 应用程序中实 ...
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

    Notes 数据库批量新建拷贝

    可以将指定服务器的一个或多个数据库批量拷贝到Notes的Data目录下，可以指定拷贝到特定目录下，可以拷贝整个指定目录下的所有数据库。 如有问题请给我回复或给我站内信，以便及时修正程序中的Bug，同时增加功能。

    MySQL数据库：数据库日志管理.pptx

    若不指定目录，则在MySQL的data目录下自动创建二进制日志文件。 若日志路径指定为C:/appserv/MySQL/bin目录，添加以下一行： log-bin=C:/appserv/MySQL/bin/bin_log 保存，重启服务器。 用mysqlbinlog管理日志 ...

    VC 编写的MYSQL数据库连接接口类.rar

    VC 编写的一个用于MYSQL数据库连接的接口类，用ODBC在VC 中连接MYSQL数据库，接口部分代码如下： 　char* GetState();//服务器状态 　char* GetServerInfo();//服务器信息 　int GetProtocolInfo();//协议信息 ...

    net数据库操作

    .net数据库 .NET Framework 数据提供程序的核心对象创建打开...data source：要连接的数据库服务器名称 initial catalog：要连接的数据库名称 persist security info：防止敏感，如密码作为打开连接的一部分信息被返回

    数据库灾难性恢复(数据库技术；灾难性；恢复；数据备份)

    6、指定数据库的所有者。 7、单击"确定"按钮。新附加的数据库的数据库节点即创建在"数据库"文件夹中。 方法二 sp_attach_db 将数据库附加到服务器。 语法 sp_attach_db [ @dbname = ] 'dbname' , [ @...

    php – 前端表单上传文件并保存到指定服务器目录

    前端使用 from 表单以 POST 方式提交文件，php 进行处理后存储文件到指定目录。 目录结构：新建一个存储用户文件的文件夹(userImage)，然后再建一个 index.php 实现 为了直观简洁，我把 HTML 与 PHP 代码都写在了 ...

    迷你版SQL2000服务器

    2、新建、附加和恢复数据库，这几项操作会将数据库保存或转移到本软件所在目录的DATA目录下，同时也会将数据库文件的物理文件名和逻辑名进行调整； 3、删除、分离数据库时，会自动清除目标数据库的用户连接； 4、...

    数据库操作语句大全(sql)

    数据库操作语句大全(sql) 一、基础 1、说明：创建数据库 CREATE DATABASE database-name 2、说明：删除数据库 drop database dbname 3、说明：备份sql server --- 创建 备份数据的 device USE master EXEC sp_...

    sqlserver 2005 无法在服务器上访问指定的路径或文件

    刚装的sql server 2005系统，附加数据库是出现如下提示 C:\Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\DATA 无法在服务器上访问指定的路径或文件。请确保您具有必需的安全权限且该路径或文件存在。 如果您...

    JDBC 3.0数据库开发与设计

    3.3.6 获取数据库中各种信息的实例 3.4 Statement对象 3.4.1 Statement对象使用基础 3.4.2 获取所有记录 3.4.3 获取指定记录 3.5 修改数据库表 3.5.1 修改数据库表本身 3.5.2 修改数据库表记录 3.6 结果集 ...

    第一章数据库的简介.docx

    status (\s) 以服务器获取MySQL的状态 tee (\T) 设置输出文件，并将信息添加到所有给定的输出文件 use (\u) 用另一个数据库，数据库名称作为参数 charset (\C) 切换到另一个字符集 warnings (\W) 每一个语句之后显示...

    数据库.txt

    status (\s) 以服务器获取MySQL的状态 tee (\T) 设置输出文件，并将信息添加到所有给定的输出文件 use (\u) 用另一个数据库，数据库名称作为参数 charset (\C) 切换到另一个字符集 warnings (\W) 每一个语句之后显示...

    Linux下通过脚本自动备份Oracle数据库并删除指定天数前的备份

    chown -R oracle:oinstall /backup/oracledata -R #设置目录权限为oinstall用户组的oracle用户（用户oracle与用户组oinstall是在安装Oracle数据库时设置的） 系统运维 www.osyunwei.com 温馨提醒：qihang

    delete-from-sqlserver.rar_delphi7 网络

    本实例数据库脚本为cyjlkc.sql，附加文件为cyjlkc_data和cyjlkc_long,均保存在本实例data目录下。 使用本实例时要注意以下几点。 1、使用Socket方式和应用程序服务器相连，Socket使用TCP/IP协议来和应用程序服务器...

    oracle恢复工具-FY_Recover_Data

    步骤1：先把Fy_Recover_Data包拷贝到oracle相关目录下 步骤2：在scott用户下创建test_emp表： SQL> conn scott/tiger; Connected. SQL> select * from tab; TNAME ? ? ? TABTYPE CLUSTERID --------------...

    Oracle数据库管理员技术指南

    第1章 建立和配置数据库 1.1 数据库创建规划 1.1.1 规划以及提出正确的问题 1.1.2 怎样确定恰当的数据块尺寸 1.2 组织文件系统 1.2.1 怎样命名数据库文件 1.2.2 使用最佳灵活结构 1.2.3 怎样配置符合 OFA 的 ...

    平台数据库备份功能的说明

    1.主控的数据库备份目录可以在系统参数中指定，注意，此目录(如E:\backup)必须已经在服务器上存在，而且，SQL运行用户必须对这个目录有写入的权限，而且，这个目录的根目录，如E:\，必须有SQL运行用户的读的权限，...

Magicbox
Global site tag (gtag.js) - Google Analytics