办公工作当中，会制作很多表格，文本文件，时间长了，会越来越多，从而找不到想要的文件，这是一个很困扰的事情。
本文介绍一个文件管理器应用示例，总体功能可以实现收集文件、整理、修改、查看、删除等等操作。
通过不同类目，可以分类将自己的文件保存起来，使用的时候，一目了然地找到，也不用在电脑硬盘里查找。
操作界面如下图所示:
顶部是地址栏，文件分类按钮，分别代码不同类型文件夹。
左侧为文件列表，右侧可以以不同方式显示文件，此处不足之处是，未实现文件图标显示。
最右侧为功能按钮列表，可以实现对所选文件的一系列相关操作。
添加文件：
实际上，本示例和操作系统中的文件管理器有相似之处，所以，使用起来也简单。
上述应用可以将自己的文件以不同目录进行保存，使用的时候在相应目录下进行查找即可。
代码
由于，只有一个窗体设计，所以代码也集成到一个模块当中，另外，增加了一个类模块，里面编写了一些功能事件代码，是所有功能的代码总汇。
其中，应用最多的是创建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对象方法
|
方法 |
说明 |
|
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—