?對于文件的管理泻红，目前市面上也有很多成熟的商業(yè)方案可以使用谓着。在此渡讼，僅提供一種輕量級的使用EXCEL管理文件的思路绪商。畢竟EXCEL使用起來要更為簡單一些苛谷。
?以下是詳細步驟：
一、建立界面表格
?1格郁、創(chuàng)建工作表腹殿，將自己所需的項目添加進去，如下圖例书。
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 = "" '在工作表循環(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, ".") '把文件名和擴展名分割開來存入一維數組
Cells(i, 4) = ext(1) '從數組中取出文件的擴展名
i = i + 1
file = Dir() ' 查找下一個文件
Loop
End Sub
二悟耘、運行
?1、單擊按鈕织狐，開始運行程序暂幼。選擇需要導入文件目錄的文件夾路徑：
?2、導入目錄后的結果移迫。
?這個列表包含了該文件夾下的文件名稱旺嬉、文件類型、同時生成了文件的連接厨埋、文件的連接邪媳。單擊鏈接后即可直達文件或者文件夾。
?以下就是單擊文件鏈接，打開B2020001.jpg文件的效果：
?3雨效、添加其它文件夾目錄迅涮。
?如果還需把其它文件目錄也添加進來，那么可以重復添加即可徽龟，添加的目錄內容會自動增加到列表的底叮姑。
三、總結
?完成以上操作据悔，一個小型的文件管理系統(tǒng)就已經完成了传透。所有過程中，最關鍵的部分在于VBA代碼极颓，這部分代碼基本能普遍適用朱盐。至于其它細節(jié)上的問題，比如加載內容前清空工作表菠隆、指定更新固定目錄兵琳、批量處理目錄等問題，可以自行修改浸赫，這個非常簡單闰围，在此不做過多說明
?另外，如果有必要既峡，還可以加入文件屬性羡榴、文件大小、創(chuàng)建日期运敢、最后修改日期等內容校仑，這個只需要創(chuàng)建一個FileSystemObject對象，然后循環(huán)調用對應的屬性值即可传惠。
?創(chuàng)作不易迄沫，轉載請注明來源！
