Excel之VBA常用功能应用篇：文件管理器制作

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

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

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

操作界面如下图所示:

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

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

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

添加文件：

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

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

代码

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

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

具体使用方法，以后会有所介绍，先收藏备用。