對於文件的管理，目前市面上也有很多成熟的商業方案可以使用。在此，僅提供一種輕量級的使用EXCEL管理文件的思路。畢竟EXCEL使用起來要更為簡單一些。
以下是詳細步驟：
一、建立界面表格
1、創建工作表，將自己所需的項目添加進去，如下圖。
2、在該工作表中插入一個Active X按鈕控制項，然後在該控制項click事件下寫入如下代碼：
Private Sub CommandButton1_Click()Dim i As Integer Dim path As String Dim ext() As String If [A2] = "" Then '判斷一下表內容是否為空，主要目的是防止End(xldown)溢出錯誤 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 = "" '在工作表循環寫入文件名 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, ".") '把文件名和擴展名分割開來存入一維數組 Cells(i, 4) = ext(1) '從數組中取出文件的擴展名 i = i + 1 file = Dir() ' 查找下一個文件 Loop End Sub
二、運行
1、單擊按鈕，開始運行程序。選擇需要導入文件目錄的文件夾路徑：
2、導入目錄後的結果。
這個列表包含了該文件夾下的文件名稱、文件類型、同時生成了文件的連接、文件的連接。單擊連結後即可直達文件或者文件夾。
以下就是單擊文件連結，打開B2020001.jpg文件的效果：
3、添加其它文件夾目錄。
如果還需把其它文件目錄也添加進來，那麼可以重複添加即可，添加的目錄內容會自動增加到列表的底。
三、總結
完成以上操作，一個小型的文件管理系統就已經完成了。所有過程中，最關鍵的部分在於VBA代碼，這部分代碼基本能普遍適用。至於其它細節上的問題，比如加載內容前清空工作表、指定更新固定目錄、批量處理目錄等問題，可以自行修改，這個非常簡單，在此不做過多說明。
另外，如果有必要，還可以加入文件屬性、文件大小、創建日期、最後修改日期等內容，這個只需要創建一個FileSystemObject對象，然後循環調用對應的屬性值即可。
創作不易，轉載請註明來源！