`
cgs1999
  • 浏览: 540935 次
  • 性别: 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 应用程序中实 ...
评论
发表评论

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

相关推荐

    附加database目录下的数据库文件到mssql2000

    - 使用FTP客户端上传`database`目录下的所有数据库文件至服务器的适当位置。 - 确保文件上传完整无误。 **步骤三：附加数据库文件** 1. **打开MS SQL Server Management Studio**：登录至MS SQL Server 2000。 2. ...

    获取指定数据库所有数据信息

    本示例将聚焦于使用PHP的ThinkPHP5框架（简称TP5）和MySQL数据库来获取指定数据库中的所有数据信息。 TP5是一个流行的PHP开发框架，它提供了一套完善且高效的工具，帮助开发者快速构建应用程序。而MySQL则是广泛使用...

    获取局域网数据库服务器列表

    这种方法利用SQLDMO (SQL Server Data Management Objects) 来获取指定服务器上的数据库列表，而不是列出所有局域网中的MSSQL服务器。以下是一个简单的示例： ```sql String ls_name,ls_db_size,ls_owner,ls_dbid,...

    DataGrip 常用数据库驱动

    驱动程序充当了DataGrip与数据库服务器之间的桥梁，使得用户能够在DataGrip中执行针对特定数据库的操作。在上述列表中，我们可以看到多个与不同数据库系统相对应的驱动程序名称。 首先是MariaDB，它是由MySQL的原始...

    不同服务器数据库之间的数据操作

    其中，`ITSV`是链接服务器的名字，`SQLOLEDB`指定了提供者（即数据源类型），`Data Source=远程服务器IP地址`则指定了远程数据库的具体位置。 接着，我们需要为这个链接服务器添加登录凭证，以便能够成功访问远程...

    备份数据库服务器数据库（源代码C#的）

    描述中提到，“可以选择数据库所在服务器的文件路径”，这意味着这个C#程序提供了用户交互界面，让用户能够指定SQL Server数据库文件的位置，然后进行备份操作。SQL Server的备份通常涉及创建数据库的完整副本，包括...

    如何将数据库从A服务器移动到B服务器_sqlServer

    ### 如何将数据库从A服务器移动到B服务器——SQL Server #### 引言 随着业务需求的变化和技术的进步，有时我们不得不面对将数据库从一台服务器迁移到另一台服务器的任务。这通常发生在服务器升级、数据迁移或者架构...

    php上传图片并把信息写入数据库代码

    这个过程包括接收用户上传的文件、处理文件、保存文件到服务器、记录文件信息到数据库，以及后续从数据库中检索信息并展示图片。下面我们将详细探讨这一过程。 首先，我们从`action.php`和`index.php`这两个文件名...

    MySql.Data.dll 连接Mysql数据库

    `Read()`方法会移动到结果集的下一行，`GetInt32`和`GetString`则是获取指定列的数据。 事务处理在数据库操作中也非常重要，`MySqlConnection`提供了`BeginTransaction`、`Commit`和`Rollback`方法来处理事务。例如...

    ASP上传图片到指定文件夹，并保存图片信息到数据库

    在ASP（Active Server Pages）开发中，实现图片上传到服务器并将其信息保存到数据库是一项常见的需求。这个功能有助于创建各种在线服务，如社交媒体平台、电子商务网站等，它们需要用户能够上传个人照片或产品图片。...

    图解WINDOWS下如何安装MYSQL数据库

    在这个目录下，有一个“data”目录，用于存放数据，为了方便备份和升级，可以将其移到其他地方。 三、配置 MySQL 为了配置 MySQL，需要新建一个“my.ini”文件，内容如下： ``` [WinMySQLAdmin] Server=D:/mysql/...

    服务器无网状态下安装MySQL数据库

    在服务器无网状态下，我们无法通过常规的包管理器如yum或apt直接获取所需的依赖包。在这种情况下，我们需要提前下载所有必需的依赖，并通过本地安装的方式进行部署。"install_rpm.sh"脚本就是为此目的编写的。通常，...

    MYSQL数据库文件目录更改步骤

    将原目录`C:\ProgramData\MySQL\MySQL Server 5.1\Data`下的所有文件复制到新目录`E:\WindFarmData\MySQL\data`。确保在复制过程中没有遗漏任何文件，尤其是`.ibd`和`.frm`文件，它们分别存储了InnoDB表的数据和表...

    windows操作系统安装人大金仓数据库操作指南

    - **启动失败解决**: 如果安装后数据库无法启动，并提示目录不是一个数据库集群目录，则需要进入\Server\bin目录下执行initdb命令进行初始化。 - **命令示例**: `initdb -U SYSTEM -x beidasoft --locale=C -E UTF8 ...

    服务器TCP接收数据并存入access数据库VB程序（支持多线程）

    1. 创建Connection对象，指定数据库连接字符串，如“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myDatabase.mdb”。 2. 打开数据库连接，使用Connection对象的Open方法。 3. 创建Command对象，设置SQL插入...

    Oracle10g数据库服务器和轻量级客户端

    轻量级客户端，即Oracle Instant Client，是Oracle数据库的一个精简版，它允许用户在不安装完整数据库服务器的情况下执行SQL查询、连接到数据库和开发应用程序。Instant Client包含基本的客户端组件，如SQL*Plus、...

    KEPServerEX数据写入数据库案例.pdf

    4. **配置DSN**：DSN（Data Source Name）是数据库连接的配置信息。在案例中，创建了一个系统DSN，选择了SQL Server作为目标数据库服务器。 5. **数据库设置**：在SQL Server中，数据存储在master数据库中新建的表...

    win2008 R2服务器下修改MySQL 5.5数据库data目录的方法

    在本篇文章中，将详细介绍如何在Windows Server 2008 R2操作系统下，将MySQL 5.5数据库的data目录从默认位置迁移到指定的新位置。 首先，操作之前需要明确几个关键点： 1. MySQL 5.5版本的安装目录为D:\Program...

    c#_获取数据库中所有表名称的方法

    //对所有的数据库遍历，获得指定数据库 for(int i=0;i;i++) { //判断当前数据库是否是指定数据库 if(Server.Databases.Item(i+1,"dbo").Name ==strDatabase) { //获得指定数据库 SQLDMO._Database db= ...

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