vba如何在指定文件夾下創建文件-tft每日頭條

辦公工作當中，會制作很多表格，文本文件，時間長了，會越來越多，從而找不到想要的文件，這是一個很困擾的事情。

本文介紹一個文件管理器應用示例，總體功能可以實現收集文件、整理、修改、查看、删除等等操作。

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---