本文介绍一个文件管理器应用示例，总体功能可以实现收集文件、整理、修改、查看、删除等等操作。
通过不同类目，可以分类将自己的文件保存起来，使用的时候，一目了然地找到，也不用在电脑硬盘里查找。
操作界面如下图所示:
顶部是地址栏，文件分类按钮，分别代码不同类型文件夹。
左侧为文件列表，右侧可以以不同方式显示文件，此处不足之处是，未实现文件图标显示。
最右侧为功能按钮列表，可以实现对所选文件的一系列相关操作。
添加文件：
实际上，本示例和操作系统中的文件管理器有相似之处，所以，使用起来也简单。
上述应用可以将自己的文件以不同目录进行保存，使用的时候在相应目录下进行查找即可。
代码
由于，只有一个窗体设计，所以代码也集成到一个模块当中，另外，增加了一个类模块，里面编写了一些功能事件代码，是所有功能的代码总汇。
其中，应用最多的是创建FileSystemObject 对象。
这个对象可以对电脑中的文件进行操作。
复制文件：
Public Sub CopyFiles()'复制文件On Error Resume NextDim fArr, fi As IntegerfArr = GetHotFilesIf fArr(0) = "" Then Exit SubDim fobj As ObjectSet 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复制到文件夹.ShowIf Dir(Destination, vbDirectory) = "" Then Exit SubFor fi = LBound(fArr) To UBound(fArr) If Dir(SourUrl & "\" & fArr(fi), vbNormal) <> "" Then fobj.copyfile SourUrl & "\" & fArr(fi), Destination End IfNext fiSet fobj = NothingMsgBox "文件复制成功！
", vbInformation, "提示"End Sub
创建文件对象代码：
Set fobj = CreateObject("Scripting.FileSystemObject")
FileSystemObject对象方法
方法
说明
BuildPath
将名称附加到现有路径。
CopyFile
将一个或多个文件从一个位置复制到另一个位置。
CopyFolder
将一个或多个文件夹从一个位置复制到另一个位置。
CreateFolder
创建新文件夹。
CreateTextFile
创建文本文件并返回可用于从文件读取或写入文件的 TextStream 对象。
DeleteFile
删除一个或多个指定的文件。
DeleteFolder
删除一个或多个指定的文件夹。
DriveExists
检查指定的驱动器是否存在。
FileExists
检查指定的文件是否存在。
FolderExists
检查指定的文件夹是否存在。
GetAbsolutePathName
返回指定路径的驱动器根目录的完整路径。
GetBaseName
返回指定文件或文件夹的基名称。
GetDrive
返回对应于指定路径中的驱动器的 Drive 对象。
GetDriveName
返回指定路径的驱动器名称。
GetExtensionName
返回指定路径中最后一个组件的文件扩展名。
GetFile
返回指定路径的 File 对象。
GetFileName
返回指定路径中最后一个组件的文件名或文件夹名。
GetFolder
返回指定路径的 Folder 对象。
GetParentFolderName
返回指定路径中最后一个组件的父文件夹的名称。
GetSpecialFolder
返回某些 Windows 特殊文件夹的路径。
GetTempName
返回随机生成的临时文件或文件夹。
Move
将指定文件或文件夹从一个位置移动到另一个位置。
MoveFile
将一个或多个文件从一个位置移动到另一个位置。
MoveFolder
将一个或多个文件夹从一个位置移动到另一个位置。
OpenAsTextStream
打开指定文件并返回可用于从该文件读取、写入该文件或追加到该文件的 TextStream 对象。
OpenTextFile
打开文件并返回可用于访问该文件的 TextStream 对象。
WriteLine
将指定字符串和换行符写入 TextStream 文件。
具体使用方法，以后会有所介绍，先收藏备用。
欢迎关注、收藏
---END---
