首先我們需要認識幾個相關定義
filesystemobject
檔案系統定義
set fs = createobject("scripting.filesystemobject")
set a = fs.createtextfile("c:\testfile.txt", true)
a.writeline("this is a test.")
a.close
以上是offices2010裡頭的一段**。
定義檔案系統→建立檔案→寫內容→關閉檔案
folder
資料夾
dim fld
set fld = fs.getfolder(folderspec)
取得已有資料夾。
file
檔案
dim f
set f = fs.getfile(filespec)
顧名思義,取得已有檔案。
有了以上概念我們就很容易寫出乙個讀取資料夾寫檔案的程式了
dim fs as
new filesystemobject
dim fld as folder
dim f as file
dim filenameco as
new collection
set fld = fs.getfolder(path)
foreach f in fld.files
filenameco.add f.path
next
'釋放記憶體
set f = nothing
set fld = nothing
set fs = nothing
VBA 選擇檔案
option explicit sub 開啟檔案 dim filenameobj as variant dim afile as variant 陣列,提取檔名filename時使用 開啟檔案對話方塊返回的檔名,是乙個全路徑檔名,其值也可能是false,因此型別為variant dim filena...
VBA研究 VBA提供的檔案操作
最近乙個學習vba的同事問我如何用vba修改檔名,我給他說了一下方法,順便也整理一下常用的幾種操作方法。這兒說的檔案操作是指作業系統級別的,不是開啟檔案,對檔案內容操作。我們當然可以建立檔案系統物件操作檔案,但是,最簡單的還是使用vba提供的標準的檔案操作功能。最常見的就是檔案或資料夾的增 刪 改。...
VBA 讀寫ini檔案
在vba中必須通過呼叫win32 api來實現ini檔案讀寫。option explicit read private declare function getprivateprofilestring lib kernel32 alias getprivateprofilestringa byval...