1. 首頁 > 生活 > >

電腦文件管理軟件哪個好用 電腦最好的文件管理軟件

小知識



文章插圖
電腦文件管理軟件哪個好用 電腦最好的文件管理軟件

文章插圖
No.1
VBA用于文件管理，并不是被大多數人熟知，通過Excel進行文件操作也是一件說難不難，說容易并不容易的事兒 。
本節介紹一下如何對電腦文件進行復制、移動、刪除、等操作 。
首先認識一個對象 。
File對象，翻譯過來就是文件對象 。
可以對文件進行復制、刪除、移動、修改等等各種操作，并且可對提取文件的屬性 。
下圖為對象的方法以及屬性，要重點記住，對文件進行操作十分重要 。
No.2
示例
對于文件操作，首先要對文件系統有一個初步了解，如果不清楚文件系統包含哪些內容，那么建議別學File對象，真的很難 。
如果對Dos系統或Linux系統，熟練應用文件操作，那么學習File對象就十分簡單了 。
下圖是圍繞File對象做出了一個示例，包含了大多數方法應用和屬性提取，如果完全掌握，那么就對文件對象操作有了一個很全面的認識 。
左側按鈕分別執行不同的功能 。
右側表格是提取某個文件之后列出其文件信息，如創建日期目錄地址等等屬性 。
下圖為執行過程中選擇文件對話框 。
No.3
代碼
如何創建File對象
Dim fs, fSet fs = CreateObject("scripting.FileSystemObject")Set f = fs.GetFile(FileName)定義兩個變量，分別給變量賦值 。
變量fs為定義的FileSystemObject對象提供對計算機文件系統的訪問權限，變量f返回一個Files對象 。
其中FileSystemObject是一個重要的文件系統管理對象，也可以實現對文件的操作，但是其方法實在太多，本節不做介紹 。
重點看一下其下的GetFile方法，此方法將返回一個File對象，也就是本節的主要內容 。
變量f就是要進行各類文件操作的File對象 。
函數：返回一個File對象
Public Function GetFileObject() As Object '取文件返回File對象Dim FileName As StringWith Application.FileDialog(msoFileDialogFilePicker)If .Show = -1 Then.Filters.Clear.Filters.Add "文本文件", "*.txt".Title = "選擇文件"FileName = .SelectedItems(1)ElseSet GetFileObject = NothingExit FunctionEnd IfEnd WithDim fsSet fs = CreateObject("scripting.FileSystemObject")Set GetFileObject = fs.GetFile(FileName)Set fs = NothingEnd Function上述函數將返回一個File對象，代碼執行后將打開一個文件選擇器，選擇一個文本文件后返回被選文件對象，如果不選擇文件就返回一個空對象 。
提取文件信息
Private Sub GetFileinfo() '提取文件信息Set f = GetFileObject'調用提取File對象函數If f Is Nothing Then GoTo Ex100'如果對象是Nothing退出Dim sh As Worksheet, cell As Range, xcell As RangeSet sh = ActiveSheetSet cell = sh.Range("C4:C15")Dim infoArr(0 To 11), i As IntegerFor i = 0 To cell.Rows.CountSelect Case iCase 0infoArr(0) = f.Attributes'文件屬性Case 1infoArr(1) = f.datecreated'創建日期Case 2infoArr(2) = f.datelastaccessedCase 3infoArr(3) = f.datelastmodifiedCase 4infoArr(4) = f.drive'驅動器Case 5infoArr(5) = f.Name'文件名Case 6infoArr(6) = f.parentFolderCase 7infoArr(7) = f.Path'文件路徑Case 8infoArr(8) = f.shortnameCase 9infoArr(9) = f.shortpathCase 10infoArr(10) = f.Size'文件大小Case 11infoArr(11) = f.Type'文件類型End SelectNext iSet cell = cell.Item(1).Offset(0, 2).Resize(cell.Rows.Count, 1)cell = Application.WorksheetFunction.Transpose(infoArr)Ex100:Set f = NothingEnd Sub完全理解并學會上面的代碼，就對文件操作有一個基本認識了，在實踐過程中繼續學習，很快就會熟悉操作計算機內的文件信息 。
【電腦文件管理軟件哪個好用 電腦最好的文件管理軟件】制作一個文件管理系統就可以大顯身手了 。