整理工作文件好帮手(整理工作文件好帮手评语)
办公工作当中，会制作很多表格，文本文件，时间长了，会越来越多，从而找不到想要的文件，这是一个很困扰的事情。
本文介绍一个文件管理器应用示例，总体功能可以实现收集文件、整理、修改、查看、删除等等操作。
通过不同类目，可以分类将自己的文件保存起来，使用的时候，一目了然地找到，也不用在电脑硬盘里查找。
操作界面如下图所示:
左侧为文件列表，右侧可以以不同方式显示文件，此处不足之处是，未实现文件图标显示。
实际上，本示例和操作系统中的文件管理器有相似之处，所以，使用起来也简单。
上述应用可以将自己的文件以不同目录进行保存，使用的时候在相应目录下进行查找即可。
由于，只有一个窗体设计，所以代码也集成到一个模块当中，另外，增加了一个类模块，里面编写了一些功能事件代码，是所有功能的代码总汇。
其中，应用最多的是创建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")
说明
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---
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
