文件管理在電腦操作中是一個最基本的應用，如何利用vba制作一個文件管理器，對電腦中的文件進行管理呢?

本節将為你介紹一下，文件管理器制作的方法。

文件管理，顯而易見就是對文件進行一些增删改操作。

首先，要找到電腦中的文件，會用到一個對象，FileSystemObject，此對象可以實現對文件系統，包括目錄的一些相關操作。

上圖為可視化編碼界面，通過一些代碼，就得到了下圖的一個效果，可以根據選擇驅動盤符自動顯示出文件和文件夾。

添加了一個返回按鈕實現目錄間的跳轉。

涉及到了一些目錄選擇，驅動器選擇等等内容。

代碼

下面過程可以返回電腦中的驅動盤符，包括光驅、軟驅、U盤等等外部存儲設備。

Public Function GetDir() '返回驅動盤符 Dim xDArr Dim fs As Object, dx As Object, dd As Object Dim Dcaption As String Set fs = CreateObject("Scripting.filesystemobject") Set dx = fs.drives For Each dd In dx Dcaption = Dcaption & dd Next dd xDArr = VBA.Split(Dcaption, ":") GetDir = xDArr Erase xDArr Set dx = Nothing Set fs = Nothing End Function

顯示目錄以及文件過程

Public Sub ShowDir(xPath As String, xListViewObj As Object) Dim xFiles As String With xListViewObj .ListItems.Clear xFiles = VBA.Dir(xPath, vbDirectory) If xFiles <> "" Then Do If xFiles <> "." And xFiles <> ".." Then Me.ListView1.ListItems.Add , , xFiles End If xFiles = Dir Loop Until xFiles = "" Else End If End With End Sub

此代碼可以顯示出xPath目錄下的所有文件夾和文件，顯示到xListViewObject對象中，這是一個ListView對象。

關鍵代碼找到，我們就好辦了，思路就是很簡單的顯示出來，至于要對文件的操作，可以進一步進行思考。

歡迎關注、收藏

----END---

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