對(duì)于文件的管理，目前市面上也有很多成熟的商業(yè)方案可以使用。在此，僅提供一種輕量級(jí)的使用EXCEL管理文件的思路。畢竟EXCEL使用起來要更為簡(jiǎn)單一些。

以下是詳細(xì)步驟：

一、建立界面表格

1、創(chuàng)建工作表，將自己所需的項(xiàng)目添加進(jìn)去，如下圖。

?

2、在該工作表中插入一個(gè)Active X按鈕控件，然后在該控件click事件下寫入如下代碼：

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim path As String
    Dim ext() As String
    If [A2] = "" Then   '判斷一下表內(nèi)容是否為空，主要目的是防止End(xldown)溢出錯(cuò)誤
        i = 2
    Else
        i = [A1].End(xlDown).Row + 1
    End If
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
     If .Show Then path = .SelectedItems(1) Else Exit Sub
    End With
    If Right(path, 1) <> "\" Then   '給獲取的路徑添加尾部的斜杠“\"
        path = path & "\"
    End If
    file = Dir(path)     '獲取路徑下文件目錄名稱列表
    Do Until file = ""   '在工作表循環(huán)寫入文件名
      Cells(i, 1).Value = file
      Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, 2), Address:=path & file, TextToDisplay:=file
      Cells(i, 3).Hyperlinks.Add Anchor:=Cells(i, 3), Address:=path, TextToDisplay:=path
      ext = Split(file, ".")  '把文件名和擴(kuò)展名分割開來存入一維數(shù)組
      Cells(i, 4) = ext(1) '從數(shù)組中取出文件的擴(kuò)展名
      i = i + 1
      file = Dir() ' 查找下一個(gè)文件
    Loop
End Sub

二、運(yùn)行

1、單擊按鈕，開始運(yùn)行程序。選擇需要導(dǎo)入文件目錄的文件夾路徑：

?

2、導(dǎo)入目錄后的結(jié)果。

這個(gè)列表包含了該文件夾下的文件名稱、文件類型、同時(shí)生成了文件的連接、文件的連接。單擊鏈接后即可直達(dá)文件或者文件夾。

?

以下就是單擊文件鏈接，打開B2020001.jpg文件的效果：

?

3、添加其它文件夾目錄。

如果還需把其它文件目錄也添加進(jìn)來，那么可以重復(fù)添加即可，添加的目錄內(nèi)容會(huì)自動(dòng)增加到列表的底。

?

三、總結(jié)

完成以上操作，一個(gè)小型的文件管理系統(tǒng)就已經(jīng)完成了。所有過程中，最關(guān)鍵的部分在于VBA代碼，這部分代碼基本能普遍適用。至于其它細(xì)節(jié)上的問題，比如加載內(nèi)容前清空工作表、指定更新固定目錄、批量處理目錄等問題，可以自行修改，這個(gè)非常簡(jiǎn)單，在此不做過多說明。

另外，如果有必要，還可以加入文件屬性、文件大小、創(chuàng)建日期、最后修改日期等內(nèi)容，這個(gè)只需要?jiǎng)?chuàng)建一個(gè)FileSystemObject對(duì)象，然后循環(huán)調(diào)用對(duì)應(yīng)的屬性值即可。