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

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

vba如何在指定文件夹下创建文件(3天制作出一个文件管理器)(1)

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

操作界面如下图所示:

vba如何在指定文件夹下创建文件(3天制作出一个文件管理器)(2)

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

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

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

添加文件:

vba如何在指定文件夹下创建文件(3天制作出一个文件管理器)(3)

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

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

vba如何在指定文件夹下创建文件(3天制作出一个文件管理器)(4)

代码

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

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

,