VBA编程，3天制作出一个文件管理器，整理工作文件好帮手

办公工作当中，会制作很多表格，文本文件，时间长了，会越来越多，从而找不到想要的文件，这是一个很困扰的事情。

本文介绍一个文件管理器应用示例，总体功能可以实现收集文件、整理、修改、查看、删除等等操作。

通过不同类目，可以分类将自己的文件保存起来，使用的时候，一目了然地找到，也不用在电脑硬盘里查找。

操作界面如下图所示:

顶部是地址栏，文件分类按钮，分别代码不同类型文件夹。

左侧为文件列表，右侧可以以不同方式显示文件，此处不足之处是，未实现文件图标显示。

最右侧为功能按钮列表，可以实现对所选文件的一系列相关操作。

添加文件：

实际上，本示例和操作系统中的文件管理器有相似之处，所以，使用起来也简单。

上述应用可以将自己的文件以不同目录进行保存，使用的时候在相应目录下进行查找即可。

代码

由于，只有一个窗体设计，所以代码也集成到一个模块当中，另外，增加了一个类模块，里面编写了一些功能事件代码，是所有功能的代码总汇。

其中，应用最多的是创建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---