辦公工作當中，會制作很多表格，文本文件，時間長了，會越來越多，從而找不到想要的文件，這是一個很困擾的事情。

本文介紹一個文件管理器應用示例，總體功能可以實現收集文件、整理、修改、查看、删除等等操作。

通過不同類目，可以分類将自己的文件保存起來，使用的時候，一目了然地找到，也不用在電腦硬盤裡查找。

操作界面如下圖所示:

頂部是地址欄，文件分類按鈕，分别代碼不同類型文件夾。

左側為文件列表，右側可以以不同方式顯示文件，此處不足之處是，未實現文件圖标顯示。

最右側為功能按鈕列表，可以實現對所選文件的一系列相關操作。

添加文件：

實際上，本示例和操作系統中的文件管理器有相似之處，所以，使用起來也簡單。

上述應用可以将自己的文件以不同目錄進行保存，使用的時候在相應目錄下進行查找即可。

代碼

由于，隻有一個窗體設計，所以代碼也集成到一個模塊當中，另外，增加了一個類模塊，裡面編寫了一些功能事件代碼，是所有功能的代碼總彙。

其中，應用最多的是創建FileSystemObject 對象。

這個對象可以對電腦中的文件進行操作。

複制文件：

Public Sub copyfiles() '複制文件 On Error Resume Next Dim fArr, fi As Integer fArr = GetHotFiles If fArr(0) = "" Then Exit Sub Dim fobj As Object Set fobj = CreateObject("Scripting.FileSystemObject") Dim SourUrl As String 'dim Destination As String '複制到文件夾 SourUrl = VBA.Trim(xUrlObj.Value) If VBA.Len(SourUrl) = 0 Then Exit Sub 複制到文件夾.Show If Dir(Destination, vbDirectory) = "" Then Exit Sub For fi = LBound(fArr) To UBound(fArr) If Dir(SourUrl & "\" & fArr(fi), vbNormal) <> "" Then fobj.Copyfile SourUrl & "\" & fArr(fi), Destination End If Next fi Set fobj = Nothing MsgBox "文件複制成功！", vbInformation, "提示" End Sub

創建文件對象代碼：

Set fobj = CreateObject("Scripting.FileSystemObject")

FileSystemObject對象方法

具體使用方法，以後會有所介紹，先收藏備用。

歡迎關注、收藏

---END---

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!