【Access小品】资料管理器

时　间:2013-11-16 09:28:33
作　者:煮江品茶   ID：10802  城市：武汉
摘　要:【Access小品】资料管理器
正　文:

　　版友gaowenjie或为一测绘专业学生，老师要求用Access整理实验室文件档案。初看起来只是文件和文件夹管理的问题，似乎不需要编写什么程序。仔细考虑了一下，文件和文件夹本身提供的信息并不充分，因此文件资料的整理大体上是需要附加一些说明的，这也就需要借助数据表来进行管理了。

　　用Access单独处理文件和文件夹，或者是单独处理数据表，都是比较容易的。但是两者一结合，麻烦就来了，如何同步文件、文件夹与数据表记录之间的数据关系比较复杂。这样看来，这就是一个有趣的问题了。于是乎便决定写一个这样的程序以解其惑。

    这个示例中，着重说明三者的关系处理方法。哪三者呢？一者文件和文件夹，二者TreeView控件节点，三者数据表记录。所有操作都在TreeView控件上进行，而背后则悄然的处理着这三者的关系。具体怎么个搞法，有兴趣的版友可以下载后自己琢磨。

示例：点击下载此示例

图示：

文件不能导入的问题源于函数编写有些错误，版友可自行修改为：

Public Function 导入文件()
    Dim path As String
    Dim fso As New FileSystemObject
    Dim f As File
    Dim tree As TreeView
    Dim n As node

    '移动文件
    path = GetF(True)
    If path = "" Then Exit Function
    Set f = fso.GetFile(path)
    If fso.FileExists(path) = True Then
        f.Copy myPath & "\" & f.Name
   
        '增加节点
        Set tree = Screen.ActiveControl.Object
        tree.Nodes.Add myPath, tvwChild, myPath & "\" & f.Name, f.Name, "k3"
        Set n = tree.SelectedItem
        n.Expanded = True
    End If
   
    Set tree = Nothing
    Set f = Nothing
    Set fso = Nothing
End Function