大家好，我們今日講解“VBA信息獲取與處理”教程中第十七個專題“文件及文件夾信息的獲取及操作”的第三節“利用VBA獲取文件的信息和屬性”，這個專題是非常實用的知識點，希望大家能掌握利用。教程會提供配套的程序文件。第三節 利用VBA獲取文件的信息和屬性我們在識別某個文件的時候，基本的操作首先是看資源管理器中的信息，其次是右鍵，點擊屬性，查看相關的介紹：
我們在寫代碼的時候遇到需要利用這些信息的情況，該如何去處理呢？今日這講的內容就來是如何獲得文件的信息及屬性。1 利用內置函數的方法獲取信息 1）文件的大小：為了得到文件的大小，我們可以利用函數
函數：返回以字節表示的指定文件長度的 Long 值。語法：() 參數：必選。指定文件的 表達式。可以包含目錄（或文件夾）和驅動器。備注：如果當調用函數時指定的文件是打開的，則返回的值表示文件打開時該文件的大小。若要獲取打開文件的當前長度修改文件屬性詳細信息，請使用 LOF 函數。
2）文件的最后修改時間：為了獲得文件的最后修改時間我們可以使用函數
函數：返回指示創建或最后修改文件的日期和時間的 Date 值。語法：()參數：必選。指定文件的 表達式。可以包含目錄（或文件夾）和驅動器。備注：使用函數顯示的日期和時間的格式基于系統的區域設置。
3）文件的屬性：為了獲得文件的屬性可以利用函數
函數：返回表示文件、目錄或文件夾的屬性的值。參數：必選。指定文件、目錄或文件夾名的 表達式。可以包括目錄（或文件夾）和驅動器
由返回的值是下列枚舉值的和：
值 常數 說明 正常。 只讀。 隱藏。 系統文件。 目錄或文件夾。 自從上次備份后文件已更改。Alias 文件具有不同的名稱。
備注：若要確定設置了哪幾個屬性，請使用 And 運算符對函數返回的值以及您想要的個別文件屬性值執行按位比較。如果結果不是零，則為命名的文件設置該屬性。例如，如果沒有設置 屬性，則下列 And 表達式的返回值為零： = (FName) And
4）設置文件屬性，為了設置文件的屬性可以利用函數語法： , As 參數：必需。指定文件名的 表達式。可以包含目錄（或文件夾）和驅動器。 必需。常數或數值表達式，其和指定文件屬性。 參數枚舉值同上返回的枚舉值。2 利用FSO的方法獲取信息為了獲取文件的必要信息，我們還可以利用FSO方案，首先利用下面的語句：Set =.() 參數：()返回與指定路徑中的文件相對應的File對象。（方法不支持使用通配符）必需。始終是的名稱。必需。文件規范是路徑（絕對或相對）到一個特定的文件。然后利用的一些屬性就可以完成獲取信息的操作：
1）文件的大小：可以利用Size 屬性，對于文件，返回指定文件的大小（以字節為單位）。對于文件夾，返回文件夾中包含的所有文件和子文件的大小（以字節為單位）。語法：.Size參數：始終為文件或文件夾對象
2）文件的最后修改時間：可以利用屬性，返回創建指定文件或文件夾的日期和時間。此為只讀屬性。語法：.參數：始終為文件或文件夾對象
3）文件的屬性的獲得和設置：可以利用屬性設置或返回文件或文件夾的屬性。可讀/寫或只讀，具體取決于屬性。語法：. [= ]參數： 必需。始終是文件或文件夾對象的名稱。可選。如果提供，則為指定 的屬性的新值。
參數可以具有以下任意值或以下值的任意邏輯組合。
Value 0 file. No are set.（普通文件,未設置屬性） 1 Read-only file. is read/write.（只讀文件,屬性是可讀/寫的） 2 file. is read/write.（隱藏文件,屬性是可讀/寫的） 4 file. is read/write.（系統文件,屬性是可讀/寫的） 8 Disk drive label. is read-only（磁盤驅動器卷標,屬性是只讀的） 16 or . is read-only.（文件夾或目錄,屬性是只讀的） 32 File has since last . is read/write.（文件自上次備份以來已發生更改,屬性是可讀/寫的。
）Alias 1024 Link or . is read-only.（鏈接或快捷方式,屬性是只讀的） 2048 file. is read-only.（壓縮文件,屬性是只讀的）3 獲取文件信息的實際代碼下面我將分別就上述兩種方案給出代碼如下：Sub mynzB() As As ("").. = .Path&. = & "\.txt" '引用FSO = (".") .() Then Range("a1")= "獲取文件信息和屬性" Range("a3")= "使用內置函數和語句" '文件大小：() Range("a4")= "文件大小：" Range("B4")= () & " 字節" '文件的最后修改時間：() Range("a5")= "文件最后修改的時間：" Range("B5")= () '文件的屬性() Range("a6")= "文件屬性：" Range("B6")= () '設置文件的屬性, + Range("A8")= "文件“" && "”已設置了只讀和隱藏屬性" Range("A10")= "使用FSO對象" = .()uu = . Range("A11")= "文件屬性:": Range("B11") = . Range("A12")= "文件大小(Bytes):": Range("B12") = .Size Range("A13")= "創建時間:": Range("B13") = . Range("A14")= "最后修改時間:": Range("B14") = . '屬性更改. = . + 4 Range("A16")= "文件“" && "”已設置了系統屬性". = . - 3 Range("A18")= "文件“" && "”已去除了只讀和隱藏屬性". = . - 4 EndIf = = Sub
代碼部分截圖：
代碼講解：1）. = . + 4以上代碼是增加了如下的屬性： 4 file. is read/write.（系統文件,屬性是可讀/寫的）這一點要特別注意，當減去某屬性的時候同樣利用的減號。4 獲取文件信息的代碼實現效果當我們點擊運行按鈕，就會在工作表中得到下面的運行結果;
這樣就得到了文件的屬性及其他的一些信息。
本節知識點回向：① 本例中分別利用了哪兩種方法得到文件的屬性及信息？② 給出的運行結果中屬性的值是累加的，是否理解？
本講代碼參考文件：017工作表.xlsm
積木編程的思路內涵：在我的系列書籍中一直在強調“搭積木”的編程思路，這也是學習利用VBA的主要方法，特別是職場人員，更是要采用這種方案。其主要的內涵：1 代碼不要自己全部的錄入。你要做的是把積木放在合適的位置然后去修正代碼，一定要拷貝，從你的積木庫中去拷貝，然后修正代碼，把時間利用到高效的思考上。2 建立自己的“積木庫”。平時在學習過程中，把自己認為有用的代碼放在一起，多積累，在用到的時候，可以隨時拿來。你的積木庫資料越多，你做程序的思路就會越廣。
VBA的應用界定及學習教程：VBA是利用實現個人小型辦公自動化的有效手段（工具）。這是我對VBA的應用界定。在取代新的辦公軟件沒有到來之前，誰能在數據處理方面做到極致，誰就是王者。其中登峰至極的技能非VBA莫屬！我記得20年前自己初學VBA時，那時的資料甚少，只能看源碼自己琢磨,真的很難。20年過去了，為了不讓學習VBA的朋友重復我之前的經歷，我根據自己多年VBA實際利用經驗，推出了六部VBA專門教程，目前教程均通過32位和64位兩種系統測試。第一套：VBA代碼解決方案是VBA中各個知識點的講解，教程共147講，覆蓋絕大多數的VBA知識點，提供的程序文件更是一座不可多得的代碼寶庫，是初學及中級人員必備教程；目前這套教程提供的版本是修訂第二版，程序文件通過32位和64位兩種系統測試。第二套：VBA數據庫解決方案數據庫是數據處理的專業利器，教程中詳細介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作，適合中級人員的學習。目前這套教程提供的是修訂第一版教程，程序文件通過32位和64位兩種系統測試。第三套：VBA數組與字典解決方案 數組和字典是VBA的精華，字典是VBA代碼水平提高的有效手段，值得深入的學習，是初級及中級人員代碼精進的手段。
目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種系統測試。第四套：VBA代碼解決方案之視頻是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。這套教程是第一套教程（修訂一版）的視頻講解，聽元音更易接受。這套教程還會額外提供通過32位和64位兩種系統測試的程序文件。第五套：VBA中類的解讀和利用 這是一部高級教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細的學習可以促進自己VBA理論的提高。這套教程的領會主要是讀者的領悟了，領悟一種佛學的哲理。目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種系統測試。第六套教程：《VBA信息獲取與處理》，這是一部高級教程修改文件屬性詳細信息，涉及范圍更廣，實用性更強，面向中高級人員。教程共二十個專題，包括：跨應用程序信息獲得、隨機信息的利用、電子郵件的發送、VBA互聯網數據抓取、VBA延時操作，剪切板應用、Split函數擴展、工作表信息與其他應用交互，FSO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數等等內容。程序文件通過32位和64位兩種系統測試。上述教程的學習順序：1→3→2→6→5或者4→3→2→6→5。提供的程序文件更是一座巨大的代碼庫，供讀者使用，如需要可以:
學習VBA是個過程，也需要經歷一種枯燥的感覺“眾鳥高飛盡，孤云獨去閑。相看兩不厭，只有敬亭山”。學習的過程也是修心的過程，修一個平靜的心。在代碼的世界中，心平靜了，心情好了，身體自然而然就好。心靜則正，內心里沒有那么多邪知邪見，也就沒有那么多妄想。利人就是利己。我的教程助力給正在努力的朋友。“水善利萬物而不爭”，綿綿密密，微則無聲，巨則洶涌。學習亦如此，知道什么是自己所需要的，不要蜷縮在一小塊自認為天堂的世界里，待到暮年時再去做自欺欺人的言論。要努力提高自己，用一顆充滿生機的心靈，把握現在，這才是進取。越是有意義的事情，困難會越多。愿力決定始終，智慧決定成敗。不管遇到什么，都是風景。看淡紛爭，看輕得失。學習時微而無聲，利用時則巨則洶涌。“路漫漫其修遠兮，吾將上下而求索”每一分收獲都是成長的記錄，怎無憑，正是這種執著，成就了朝霞的燦爛。最后將一闕詞送給致力于VBA學習的朋友,讓大家感受一下學習過程的枯燥與執著：
浮云掠過，暗語無聲，唯有清風，驚了夢中啼鶯。望星，疏移北斗，奈將往事雁同行。阡陌人，昏燈明暗，忍顧長亭。 多少VBA人，暗夜中，悄聲尋夢，盼卻天明。怎無憑！
分享我多年工作實際經驗的成果，隨喜這些有用的東西，給確實需要利用VBA的同路人。回向學習利用VBA的歷歷往事，不勝感慨，謹以這些文字以紀念，