Excel-VBA操作文件四大方法
Excel-VBA操作文件四大方法之一
在我們?nèi)粘Ｊ褂肊xcel的時(shí)候，不僅會(huì)用到當(dāng)前Excel文件的數(shù)據(jù)，還經(jīng)常需要訪問其他的數(shù)據(jù)文件。這些數(shù)據(jù)文件可能是Excel文件、文本文 件或數(shù)據(jù)庫(kù)文件等。經(jīng)常有朋友會(huì)問如何在vba代碼里操作這些數(shù)據(jù)文件？本文就系統(tǒng)地介紹一下在Excel中應(yīng)用VBA操作數(shù)據(jù)文件的方法。
本文主要介紹四種常用的方法：
1、利用Excel對(duì)象來處理文件；
2、利用VBA文件處理語句來處理文件；
3、利用FileSystemObject對(duì)象來處理文件；
4、利用API函數(shù)來處理文件。
當(dāng)然對(duì)于數(shù)據(jù)庫(kù)文件，還可以利用ADO＋SQL的方法操作，不過論壇已經(jīng)有前輩詳細(xì)介紹過此類方法，本文就不再重復(fù)了。
一、利用Excel對(duì)象來處理文件
利用Excel對(duì)象自帶的方法來操作文件是最方便，也是最簡(jiǎn)單的。
我們主要利用Workbooks集合和Workbook對(duì)象的方法來操作文件。
1、打開Excel文件
我們可以用Workbooks.Open方法打開一個(gè)Excel工作簿。
Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
其中FileName是必選的參數(shù)，表示要打開的工作簿名，如果沒有指定路徑，則代表當(dāng)前路徑。另外14個(gè)是可選參數(shù)，除了密碼參數(shù)，其他的一般很少用。具體的含義可以參看VBA的幫助。
例：
Workbooks.Open "F:\test.xls"
可以打開F盤的test.xls文件。
2、打開文本文件
使用Open方法也可以打開文本文件，但建議使用OpenText方法。此方法是載入一個(gè)文本文件，并將其作為包含單個(gè)工作表的工作簿進(jìn)行分列處理，然后在此工作表中放入經(jīng)過分列處理的文本文件數(shù)據(jù)。完整語法如下：
Workbooks.OpenText(FileName, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local)
關(guān)于以上參數(shù)的具體含義可以參看VBA的幫助，這里就不重復(fù)了。在實(shí)際的編程中，一般無需對(duì)這些復(fù)雜的參數(shù)進(jìn)行處理。可以通過錄制宏來得到打開一個(gè) 文本文件的VBA代碼。具體方法就是選擇“文件——打開”，然后選擇打開文本文件，就會(huì)出現(xiàn)文本導(dǎo)入向?qū)?#xff0c;一步一步執(zhí)行完，直到文本打開后，停止錄制。
以下是錄制宏得到的代碼:
Sub Macro1()
'
' Macro1 Macro
' 宏由 MC SYSTEM 錄制，時(shí)間: 2007-3-29
'
'
Workbooks.OpenText Filename:="F:\CallWindowProc.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
TrailingMinusNumbers:=True
End Sub
在實(shí)際編程中只要做相應(yīng)的修改就可以使用了。
3、打開其他文件
利用Excel對(duì)象還可以打開XML文件和一些數(shù)據(jù)庫(kù)（如Access）文件，對(duì)應(yīng)XML文件，需要Excel2003以上的版本。
OpenXML方法的語法如下：
Workbooks.OpenXML(Filename, Stylesheets, LoadOption)
FileName String 類型，必需。要打開的文件名。
Stylesheets Variant 類型，可選。單個(gè)值或值的數(shù)組，用于指定要應(yīng)用哪些 XSL 轉(zhuǎn)換 (XSLT) 樣式表處理指令。
LoadOption Variant 類型，轉(zhuǎn)換。指定 Excel 打開 XML 數(shù)據(jù)文件的方式。可為 XlXmlLoadOption 常量之一。
XlXmlLoadOption 可為以下 XlXmlLoadOption 常量之一：
xlXmlLoadImportToList 將 XML 數(shù)據(jù)文件的內(nèi)容置于 XML 列表中。
xlXmlLoadMapXml 在“XML 結(jié)構(gòu)”任務(wù)窗格中顯示 XML 數(shù)據(jù)文件的架構(gòu)。
xlXmlLoadOpenXml 打開 XML 數(shù)據(jù)文件。文件的內(nèi)容將展開。
xlXmlLoadPromptUser 提示用戶選擇打開文件的方式。
示例
下面的代碼打開了 XML 數(shù)據(jù)文件“customers.xml”并在 XML 列表中顯示了此文件的內(nèi)容。
Sub UseOpenXML()
Application.Workbooks.OpenXML _
Filename:="customers.xml", _
LoadOption:=xlXmlLoadImportToList
End Sub
OpenDatabase 方法語法如下：
Workbooks.OpenDatabase(FileName, CommandText, CommandType, BackgroundQuery, ImportDataAs)
FileName String 類型，必需。連接字符串。
CommandText Variant 類型，可選。查詢的命令文本。
CommandType Variant 類型，可選。查詢的命令類型。以下是可用的命令類型：Default、SQL 和 Table。
BackgroundQuery Variant 類型，可選。查詢的背景。
ImportDataAs Variant 類型，可選。確定查詢的格式。
示例
本示例中，Excel 打開了“northwind.mdb”文件。
Sub OpenDatabase()
Workbooks.OpenDatabase FileName:="C:\northwind.mdb"
End Sub
4、保存文件
文件的保存使用Workbook對(duì)象的Save或SaveAs方法。
Save方法使用簡(jiǎn)單，語法為
expression.Save，expression是某個(gè)Workbook對(duì)象。
如：ActiveWorkbook.Save
即保存當(dāng)前活動(dòng)工作簿。
如果是第一次保存工作簿或要另存為，請(qǐng)使用 SaveAs 方法為該文件指定文件名。
其語法為：
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
具體參數(shù)含義可參看VBA幫助，使用都比較簡(jiǎn)單。
示例
本示例新建一個(gè)工作簿，提示用戶輸入文件名，然后保存該工作簿。
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName
Application.GetSaveAsFilename為調(diào)出標(biāo)準(zhǔn)的“另存為”對(duì)話框，獲取用戶文件名，但并不真正保存任何文件，然后使用代碼保存文件。還有Application.GetOpenFileName可以調(diào)出標(biāo)準(zhǔn)的“打開”對(duì)話框。
5、關(guān)閉文件
關(guān)閉文件可以使用Workbooks集合或Workbook對(duì)象的 Close 方法。前者是關(guān)閉所有打開的工作簿，后者關(guān)閉特定的工作簿。
Workbook對(duì)象的 Close 方法語法為：
expression.Close(SaveChanges, Filename, RouteWorkbook)
SaveChanges參數(shù)表示是否保存更改，對(duì)許多不需要更改的操作，可設(shè)置為False以免彈出保存更改提示的對(duì)話框。
FileName 可選。以此文件名保存所做的更改。
RouteWorkbook 可選。如果指定工作簿不需要傳送給下一個(gè)收件人（沒有傳送名單或已經(jīng)傳送），則忽略該參數(shù)。
示例
本示例關(guān)閉 Book1.xls，并放棄所有對(duì)此工作簿的更改。
Workbooks("BOOK1.XLS").Close SaveChanges:=False
本示例關(guān)閉所有打開的工作簿。如果某個(gè)打開的工作簿有改變，Microsoft Excel 將顯示詢問是否保存更改的對(duì)話框和相應(yīng)提示。
Workbooks.Close
6、綜合實(shí)例
假如F盤有一個(gè)Excel文件test.xls，現(xiàn)在有另一個(gè)Excel文件要訪問test.xls的數(shù)據(jù)，我們來看用VBA代碼如何操作。代碼如下：
Public Sub test()
Application.ScreenUpdating = False
Workbooks.Open "f:\test.xls"
ThisWorkbook.Sheets(1).Range("b1") = ActiveWorkbook.Sheets(1).Range("a2")
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
首先關(guān)閉屏幕刷新，是為了防止test.xls在打開時(shí)被看見(有時(shí)候還是看的見）。打開后，見test.xls的Sheet1的單元格A2中的值賦給當(dāng)前工作簿的Sheet1的單元格B2，然后關(guān)閉test.xls。
當(dāng)要打開的工作簿不確定的時(shí)候，可以通過調(diào)用打開對(duì)話框來讓用戶自己選擇。
可改為如下：
Public Sub test()
Application.ScreenUpdating = False
Dim Filename as String
Filename = Application.GetOpenFileName
Workbooks.Open Filename
ThisWorkbook.Sheets(1).Range("b1") = ActiveWorkbook.Sheets(1).Range("a2")
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub
7、總結(jié)
利用Excel對(duì)象的方法進(jìn)行文件操作是最簡(jiǎn)單，也是最方便的，適合初學(xué)者。對(duì)于Excel文件格式，如果我們僅僅是讀取其表格中的內(nèi)容，這種方法也是首選。對(duì)于文本文件的操作，使用第二種方法比較方便，若要將文本轉(zhuǎn)換成表格，那么使用此方法也是合適的。如何在d:\test.xls已打開的情況下不讓以下的語句再去創(chuàng)建一個(gè)test.xls的實(shí)例(雖然它標(biāo)識(shí)為只讀),
并給出文件已打開的提示.
先做一個(gè)判斷！判斷該工作簿是否打開了？例如：
Set xlexcel = CreateObject("excel.application")
dim wb as object
set wb = xlexcel.workbooks("test.xls")
if wb is nothing then
msgbox "工作簿未打開！"
xlexcel.Workbooks.Open "d:\test.xls"
xlexcel.Visible = True
end if
Excel-VBA操作文件四大方法之二
二、利用VBA文件處理語句來處理文件
VBA包含了許多用于文件操作的語句和函數(shù)，可以滿足絕大多數(shù)情況下的文件操作要求。下面我們按照操作目的進(jìn)行一一介紹。
（一）文件處理
1.Name 語句
語法：Name oldpathname As newpathname
功能：重命名一個(gè)文件、目錄、或文件夾，移動(dòng)一個(gè)文件。
說明：在一個(gè)已打開的文件上使用 Name，將會(huì)產(chǎn)生錯(cuò)誤。進(jìn)行文件操作時(shí)，一定要注意錯(cuò)誤處理。
示例：
On Error Resume Next '錯(cuò)誤處理
Name "f:\TEST.xls" As "f:\TEST123.xls" '重命名
Name "f:\TEST.xls" As "f:\dll\TEST.xls" '移動(dòng)文件
Name "f:\TEST.xls" As "d:\TEST123.xls" '跨驅(qū)動(dòng)器移動(dòng)并重命名文件
注意：Name不能移動(dòng)一個(gè)目錄或文件夾。
2、FileCopy 語句
語法：FileCopy source, destination
功能：復(fù)制一個(gè)文件。
說明：如果對(duì)一個(gè)已打開的文件使用 FileCopy 語句，則會(huì)產(chǎn)生錯(cuò)誤。
示例：
FileCopy "f:\TEST.xls", "e:\TEST.xls" '從F盤復(fù)制TEST.xls到E盤
3、Kill 語句
語法：Kill pathname
功能：從磁盤中刪除文件。
說明：Kill 支持多字符 (*) 和單字符 (?) 的統(tǒng)配符來指定多重文件。如果使用 Kill 來刪除一個(gè)已打開的文件，則會(huì)產(chǎn)生錯(cuò)誤。
示例：
Kill "f:\TEST.xls" ’刪除F盤的TEST.xls文件
Kill "f:\*.xls" ' 刪除F盤所有xls文件
4、GetAttr 函數(shù)
語法：GetAttr(pathname)
功能：獲取一個(gè)文件、目錄、或文件夾的屬性。返回一個(gè) Integer值。
返回值
由 GetAttr 返回的值，是下面這些屬性值的總和：
常數(shù) 值 描述
vbNormal 0 常規(guī)
vbReadOnly 1 只讀
vbHidden 2 隱藏
vbSystem 4 系統(tǒng)文件
vbDirectory 16 目錄或文件夾
vbArchive 32 存檔文件
vbalias 64 指定的文件名是別名。只在Macintosh中可用。
說明：若要判斷是否設(shè)置了某個(gè)屬性，在 GetAttr 函數(shù)與想要得知的屬性值之間使用 And 運(yùn)算符與逐位比較。如果所得的結(jié)果不為零，則表示設(shè)置了這個(gè)屬性值。
示例：
Debug.Print GetAttr("F:\test.txt") '若為存檔文件，在立即窗口可看到值為32
Debug.Print GetAttr("F:\test.txt") '將屬性—高級(jí)—可存檔文件的勾去掉后，值為0
為判斷一個(gè)文件是否只讀，可用下法:
Debug.Print GetAttr("F:\test.txt") And vbReadOnly
若值非零，說明時(shí)只讀的。
5、SetAttr 語句
語法：SetAttr pathname, attributes
功能：為一個(gè)文件設(shè)置屬性。
說明：如果想要給一個(gè)已打開的文件設(shè)置屬性，則會(huì)產(chǎn)生運(yùn)行時(shí)錯(cuò)誤。
示例：
SetAttr"F:\test.txt", vbHidden ' 設(shè)置隱藏屬性。
SetAttr"F:\test.txt", vbHidden + vbReadOnly ' 設(shè)置隱藏并只讀。
6、FileLen 函數(shù)
語法：FileLen(pathname)
功能：獲取一個(gè)文件的長(zhǎng)度，單位是字節(jié)。
說明：當(dāng)調(diào)用 FileLen 函數(shù)時(shí)，不需要打開文件，如果所指定的文件已經(jīng)打開，則返回的值是這個(gè)文件在打開前的大小。
7、FileDateTime 函數(shù)
語法：FileDateTime(pathname)
功能：獲取一個(gè)文件被創(chuàng)建或最后修改后的日期和時(shí)間。
示例：
Debug.Print FileDateTime("F:\TEST.xls") '在立即窗口可看到2007-3-29 19:28:27
（二）目錄處理
1、CurDir 函數(shù)
語法：CurDir[(drive)]
功能：返回當(dāng)前的路徑。
說明：drive 參數(shù)是可選的，它指定一個(gè)存在的驅(qū)動(dòng)器。如果沒有指定驅(qū)動(dòng)器，或 drive 是零長(zhǎng)度字符串 ("")，則 CurDir 會(huì)返回當(dāng)前驅(qū)動(dòng)器的路徑。
示例：
Debug.Print CurDir ' 返回“C:\Documents and Settings\yc\My Documents”。
Debug.Print CurDir("C") ' 返回“C:\Documents and Settings\yc\My Documents”。
Debug.Print CurDir("D") ' 返回“D:\”。
2、ChDir 語句
語法：ChDir path
功能：改變當(dāng)前的目錄或文件夾。
說明：ChDir 語句改變?nèi)笔∧夸浳恢?#xff0c;但不會(huì)改變?nèi)笔◎?qū)動(dòng)器位置。缺省驅(qū)動(dòng)器一般是C。
示例：
ChDir "D:\temp"
Debug.Print CurDir ' 返回“C:\Documents and Settings\yc\My Documents”。
Debug.Print CurDir("D") ' 返回“D:\temp”。
與上例比較，此時(shí)D盤的當(dāng)前目錄已經(jīng)變?yōu)椤癉:\temp”，但是缺省驅(qū)動(dòng)器還是C。
3、ChDrive 語句
語法：ChDrive drive
功能：改變當(dāng)前的驅(qū)動(dòng)器。
說明：如果使用零長(zhǎng)度的字符串 ("")，則當(dāng)前的驅(qū)動(dòng)器將不會(huì)改變。如果 drive 參數(shù)中有多個(gè)字符，則 ChDrive 只會(huì)使用首字母。
示例：
ChDrive "D"
ChDir "D:\temp"
Debug.Print CurDir ' 返回“D:\temp”。
Debug.Print CurDir("D") ' 返回“D:\temp”。
與上例比較，用CurDir返回的是“D:\temp”，當(dāng)前驅(qū)動(dòng)器已經(jīng)變?yōu)镈了。
4、Dir 函數(shù)
語法：Dir[(pathname[, attributes])]
兩個(gè)參數(shù)都是可選的，attributes表示文件屬性。
功能：返回一個(gè)文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標(biāo)相匹配。
說明：在第一次調(diào)用 Dir 函數(shù)時(shí)，必須指定 pathname，否則會(huì)產(chǎn)生錯(cuò)誤。如果也指定了文件屬性，那么就必須包括 pathname。
Dir 會(huì)返回匹配 pathname 的第一個(gè)文件名。若想得到其它匹配 pathname 的文件名，再一次調(diào)用 Dir，且不要使用參數(shù)。如果已沒有合乎條件的文件，則 Dir 會(huì)返回一個(gè)零長(zhǎng)度字符串 ("")。一旦返回值為零長(zhǎng)度字符串，并要再次調(diào)用 Dir 時(shí)，就必須指定 pathname，否則會(huì)產(chǎn)生錯(cuò)誤。不必訪問到所有匹配當(dāng)前 pathname 的文件名，就可以改變到一個(gè)新的 pathname 上。但是，不能以遞歸方式來調(diào)用 Dir 函數(shù)。以 vbDirectory 屬性來調(diào)用 Dir 不能連續(xù)地返回子目錄。
示例：
Debug.Print Dir("F:\TEST.xls") ’返回"TEST.xls"
Debug.Print Dir("F:\*.xls") ’返回按條件第一個(gè)找到的文件名。
Debug.Print Dir("F:\*.txt",vbReadOnly) ’返回第一個(gè)只讀的txt文件
以下過程可顯示C盤根目錄下的所有目錄.
Sub DirC()
MyPath = "c:\"
MyName = dir(MyPath, vbDirectory) ' 找尋第一項(xiàng)。
Do While MyName <> "" ' 開始循環(huán)。
' 跳過當(dāng)前的目錄及上層目錄。
If MyName <> "." And MyName <> ".." Then
' 使用位比較來確定 MyName 代表一目錄。
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' 如果它是一個(gè)目錄，將其名稱顯示出來。
End If
End If
MyName = dir ' 查找下一個(gè)目錄。
Loop
End Sub
以下過程利用遞歸可以查找目錄和子目錄下的所有文件。
Public Sub FindFile(mPath As String, Optional sFile As String = "")
On Error Resume Next
Dim s As String, sDir() As String
Dim i As Long, d As Long
If Right(mPath, 1) <> "\" Then
mPath = mPath & "\"
End If
'查找目錄下的文件
s = dir(mPath & sFile, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While s <> ""
Debug.Print mPath & s
s = dir
Loop
'查找目錄下的子目錄
s = dir(mPath, vbArchive + vbDirectory + vbHidden + vbNormal + vbReadOnly + vbSystem)
Do While s <> ""
If s <> "." And s <> ".." Then
If (GetAttr(mPath & s) And vbDirectory) = vbDirectory Then
d = d + 1
ReDim Preserve sDir(d)
sDir(d) = mPath & s
End If
End If
s = dir
Loop
'開始遞歸
For i = 1 To d
FindFile sDir(d) & "\"
Next
End Sub
5、MkDir 語句
語法：MkDir path
功能：創(chuàng)建一個(gè)新的目錄或文件夾。
說明：path 可以包含驅(qū)動(dòng)器。如果沒有指定驅(qū)動(dòng)器，則 MkDir 會(huì)在當(dāng)前驅(qū)動(dòng)器上創(chuàng)建新的目錄或文件夾。
示例：
MkDir "MYDIR" '在當(dāng)前目錄建立新的目錄或文件夾。
6、RmDir 語句
語法：RmDir path
功能：刪除一個(gè)存在的目錄或文件夾。
說明：如果想要使用 RmDir 來刪除一個(gè)含有文件的目錄或文件夾，則會(huì)發(fā)生錯(cuò)誤。在試圖刪除目錄或文件夾之前，先使用 Kill 語句來刪除所有文件。
示例：RmDir "MYDIR" ' 將 MYDIR 刪除。
（三）處理文本文件
1、Open 語句
語法：Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
其中access、lock、reclength為可選參數(shù)，一般不用。
mode 指定打開文件的方式。有5種：
Input：以輸入方式打開，即讀取方式。
Output：以輸出方式打開，即寫入方式。
Append：以追加方式打開，即添加內(nèi)容到文件末尾。
Binary：以二進(jìn)制方式打開。
Random：以隨機(jī)方式打開，如果未指定方式，則以 Random 方式打開文件。
filenumber 是一個(gè)有效的文件號(hào)，范圍在 1 到 511 之間。可以指定，也可使用 FreeFile 函數(shù)可得到下一個(gè)可用的文件號(hào)。
說明：如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打開文件時(shí)，可以建立這一文件。
示例：
Open "F:\TEST.txt" For Input As #1 '以輸入方式打開
Open "F:\TEST.xls" For Binary As #1 '以二進(jìn)制方式打開
2、Close 語句
語法：Close [filenumberlist]
filenumberlist 參數(shù)為一個(gè)或多個(gè)文件號(hào)，若省略 filenumberlist，則將關(guān)閉 Open 語句打開的所有活動(dòng)文件。
說明：打開文件后，必須在使用完后關(guān)閉文件。
示例：
Dim I, FileName
For I = 1 To 3
FileName = "TEST" & I ' 創(chuàng)建文件名。
Open FileName For Output As #I ' 打開文件。
Print #I, "This is a test." ' 將字符串寫入文件。
Next I
Close ' 將三個(gè)已打開的文件全部關(guān)閉。
3、Reset 語句
語法：Reset
功能：關(guān)閉所有用 Open 語句打開的磁盤文件。
說明：Reset 語句關(guān)閉 Open 語句打開的所有活動(dòng)文件，并將文件緩沖區(qū)的所有內(nèi)容寫入磁盤。
示例：
Dim FileNumber
For FileNumber = 1 To 5
Open "TEST" & FileNumber For Output As #FileNumber
Write #FileNumber, "Hello World" ' 將數(shù)據(jù)寫入文件。
Next FileNumber
Reset ' 關(guān)閉文件并將緩沖區(qū)內(nèi)的數(shù)據(jù)寫到磁盤中。
4、FreeFile 函數(shù)
語法：FreeFile[(rangenumber)]
參數(shù) rangenumber指定一個(gè)范圍，以便返回該范圍之內(nèi)的下一個(gè)可用文件號(hào)。指定 0（缺省值）則返回一個(gè)介于 1 – 255 之間的文件號(hào)。指定 1 則返回一個(gè)介于 256 – 511 之間的文件號(hào)。
功能：提供一個(gè)尚未使用的文件號(hào)。
示例：
Dim fnum As Integer
fnum = FreeFile
Open "F:\TEST.txt" For Input As #fnum
Close #fnum
5、EOF 函數(shù)
語法：EOF(filenumber)
功能：返回一個(gè) Integer，它包含 Boolean 值 True，表明已經(jīng)到達(dá)為 Random 或順序 Input 打開的文件的結(jié)尾。
6、LOF 函數(shù)
語法：LOF(filenumber)
功能：返回一個(gè) Long，表示用 Open 語句打開的文件的大小，該大小以字節(jié)為單位。
7、Loc 函數(shù)
語法：LOc(filenumber)
功能：返回一個(gè) Long，在已打開的文件中指定當(dāng)前讀/寫位置。
8、Input # 語句
語法：Input #filenumber, varlist
功能：從已打開的順序文件中讀出數(shù)據(jù)并將數(shù)據(jù)指定給變量。
說明：通常用 Write # 將 Input # 語句讀出的數(shù)據(jù)寫入文件。為了能夠用 Input # 語句將文件的數(shù)據(jù)正確讀入到變量中，在將數(shù)據(jù)寫入文件時(shí)，要使用 Write # 語句而不使用 Print # 語句。使用 Write # 語句可以確保將各個(gè)單獨(dú)的數(shù)據(jù)域正確分隔開。
示例：
本示例使用 Input # 語句將文件內(nèi)的數(shù)據(jù)讀入兩個(gè)變量中。本示例假設(shè) TESTFILE文件內(nèi)含數(shù)行以 Write # 語句寫入的數(shù)據(jù)；也就是說，每一行數(shù)據(jù)中的字符串部分都是用雙引號(hào)括起來，而與數(shù)字用逗號(hào)隔開，例如，（"Hello", 234）。
Dim MyString, MyNumber
Open "TESTFILE" For Input As #1 ' 打開輸入文件。
Do While Not EOF(1) ' 循環(huán)至文件尾。
Input #1, MyString, MyNumber ' 將數(shù)據(jù)讀入兩個(gè)變量。
Debug.Print MyString, MyNumber ' 在立即窗口中顯示數(shù)據(jù)。
Loop
Close #1 ' 關(guān)閉文件。
9、Write # 語句
語法：Write #filenumber, [outputlist]
功能：將數(shù)據(jù)寫入順序文件。
說明：通常用 Input # 從文件讀出 Write # 寫入的數(shù)據(jù)。
如果省略 outputlist，并在 filenumber 之后加上一個(gè)逗號(hào)，則會(huì)將一個(gè)空白行打印到文件中。多個(gè)表達(dá)式之間可用空白、分號(hào)或逗號(hào)隔開。空白和分號(hào)等效。
用 Write # 將數(shù)據(jù)寫入文件時(shí)將遵循幾個(gè)通用的約定，使得無論什么區(qū)域都可用 Input # 讀出并正確解釋數(shù)據(jù)：
·在寫入數(shù)值數(shù)據(jù)時(shí)總使用句號(hào)作為十進(jìn)制分隔符。
·對(duì)于 Boolean 類型的數(shù)據(jù)，或者打印 #TRUE# 或者打印 #FALSE#。無論在什么地區(qū)，都不將 True 和 False 這兩個(gè)關(guān)鍵字翻譯出來。
·使用通用的日期格式將 Date 類型的數(shù)據(jù)寫入文件中。當(dāng)日期或時(shí)間的部件丟失或?yàn)榱銜r(shí)，只將現(xiàn)有部分寫入文件中。
·如果 outputlist 的數(shù)據(jù)為 Empty，則不將任何數(shù)據(jù)寫入文件。但對(duì) Null 數(shù)據(jù)，則要寫入 #NULL#。
·如果 outputlist 數(shù)據(jù)為 Null 數(shù)據(jù)，則將 #NULL# 寫入文件中。
·對(duì)于 Error 類型的數(shù)據(jù)，輸出看起來與 #ERROR errorcode# 一樣。無論在什么地區(qū)，都不將關(guān)鍵字 Error 翻譯出來。
與 Print # 語句不同，當(dāng)要將數(shù)據(jù)寫入文件時(shí)，Write # 語句會(huì)在項(xiàng)目和用來標(biāo)記字符串的引號(hào)之間插入逗號(hào)。沒有必要在列表中鍵入明確的分界符。Write # 語句在將 outputlist 中的最后一個(gè)字符寫入文件后會(huì)插入一個(gè)新行字符，即回車換行符，(Chr(13) + Chr(10))。
示例：
Open "F:\test.txt" For Output As #1 ' 打開輸出文件。
Write #1, "Hello World", 1234 ' 寫入以逗號(hào)隔開的數(shù)據(jù)。
Write #1, ' 寫入空白行。
Dim MyBool, MyDate, MyNull, MyError
' 賦值 Boolean、Date、Null 及 Error 等。
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' Boolean 數(shù)據(jù)以 #TRUE# 或 #FALSE# 的格式寫入。
' 日期以通用日期格式寫入，例如：#1994-07-13# 代表
' 1994 年 1 月 13 日。Null 數(shù)據(jù)以 #NULL# 格式寫入。
' Error 數(shù)據(jù)以 #ERROR 錯(cuò)誤代號(hào)# 的格式寫入。
Write #1, MyBool; " is a Boolean value"
Write #1, MyDate; " is a date"
Write #1, MyNull; " is a null value"
Write #1, MyError; " is an error value"
Close #1 ' 關(guān)閉文件。
我們可以看到寫入的內(nèi)容為：
"Hello World",1234
#FALSE#," is a Boolean value"
#1969-02-12#," is a date"
#NULL#," is a null value"
#ERROR 32767#," is an error value"
10、Line Input # 語句
語法：Line Input #filenumber, varname
功能：從已打開的順序文件中讀出一行并將它分配給 String 變量。
說明：通常用 Print # 與 Line Input # 語句配合使用。
Line Input # 語句一次只從文件中讀出一個(gè)字符，直到遇到回車符 (Chr(13)) 或回車–換行符 (Chr(13) + Chr(10)) 為止。回車–換行符將被跳過，而不會(huì)被附加到字符串上。
示例：
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打開文件。
Do While Not EOF(1) ' 循環(huán)至文件尾。
Line Input #1, TextLine ' 讀入一行數(shù)據(jù)并將其賦予某變量。
Debug.Print TextLine ' 在立即窗口中顯示數(shù)據(jù)。
Loop
Close #1 ' 關(guān)閉文件。
11、Input 函數(shù)
語法：Input(number, [#]filenumber)
其中number 指定要返回的字符個(gè)數(shù)。
功能:返回 String，它包含以 Input 或 Binary 方式打開的文件中的字符。
說明：通常用 Print # 或 Put 將 Input 函數(shù)讀出的數(shù)據(jù)寫入文件。Input 函數(shù)只用于以 Input 或 Binary 方式打開的文件。
與 Input # 語句不同，Input 函數(shù)返回它所讀出的所有字符，包括逗號(hào)、回車符、空白列、換行符、引號(hào)和前導(dǎo)空格等。
示例：
Dim MyChar
Open "f:\test.txt" For Input As #1
Do While Not EOF(1) ' 循環(huán)至文件尾。
MyChar = Input(1, #1) ' 讀入一個(gè)字符。
Debug.Print MyChar ' 顯示到立即窗口。
Loop
Close #1
下面這個(gè)函數(shù)可以將文本文件的數(shù)據(jù)一次讀入到一個(gè)字符串（但是若包含中文時(shí)會(huì)出錯(cuò)，因?yàn)橐粋€(gè)中文字占2個(gè)字節(jié)）。
Public Function ReadText(FileName As String)
Dim fnum%, isopen As Boolean
On Error GoTo erro
fnum = FreeFile()
Open FileName For Input As #fnum
isopen = True
ReadText = Input(LOF(fnum), fnum)
erro:
If isopen Then Close #fnum
If err Then Debug.Print err.Number, err.Description
End Function
12、Print # 語句
語法：Print #filenumber, [outputlist]
outputlist 參數(shù)的設(shè)置如下：
[{Spc(n) | Tab[(n)]}] [expression] [charpos]
Spc(n) 用來在輸出數(shù)據(jù)中插入空白字符，而 n 指的是要插入的空白字符數(shù)。
Tab(n) 用來將插入點(diǎn)定位在某一絕對(duì)列號(hào)上，這里，n 是列號(hào)。使用無參數(shù)的 Tab 將插入點(diǎn)定位在下一個(gè)打印區(qū)的起始位置。
expression 要打印的數(shù)值表達(dá)式或字符串表達(dá)式。
charpos 指定下一個(gè)字符的插入點(diǎn)。使用分號(hào)將插入點(diǎn)定位在上一個(gè)顯示字符之后。用 Tab(n) 將插入點(diǎn)定位在某一絕對(duì)的列號(hào)上，用無參數(shù)的 Tab 將插入點(diǎn)定位在下一個(gè)打印區(qū)的起始處。如果省略 charpos，則在下一行打印下一個(gè)字符。
功能：將格式化顯示的數(shù)據(jù)寫入順序文件中。
說明:通常用 Line Input # 或 Input 讀出 Print # 在文件中寫入的數(shù)據(jù)。
示例：
Open "F:\test.txt" For Output As #1 ' 打開輸出文件。
Print #1, "This is a test" ' 將文本數(shù)據(jù)寫入文件。
Print #1, ' 將空白行寫入文件。
Print #1, "Zone 1"; Tab; "Zone 2" ' 數(shù)據(jù)寫入兩個(gè)區(qū)（print zones）。
Print #1, "Hello"; " "; "World" ' 以空格隔開兩個(gè)字符串。
Print #1, Spc(5); "5 leading spaces " ' 在字符串之前寫入五個(gè)空格。
Print #1, Tab(10); "Hello" ' 將數(shù)據(jù)寫在第十列。
' 賦值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False: MyDate = #2/12/1969#: MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 會(huì)根據(jù)系統(tǒng)的地區(qū)設(shè)置自動(dòng)轉(zhuǎn)換格式。
' 日期將以標(biāo)準(zhǔn)的短式日期的格式顯示。
Print #1, MyBool; " is a Boolean value"
Print #1, MyDate; " is a date"
Print #1, MyNull; " is a null value"
Print #1, MyError; " is an error value"
Close #1
以上代碼寫入的內(nèi)容如下：
This is a test
Zone 1 Zone 2
Hello World
5 leading spaces
Hello
False is a Boolean value
1969-2-12 is a date
Null is a null value
Error 32767 is an error value
13、Width # 語句
語法：Width #filenumber, width
width 必要。范圍在 0–255 之間的數(shù)值表達(dá)式，在新的一行開始之前，指出在該行上可出現(xiàn)多少字符。如果 width 等于 0，則行的長(zhǎng)度不受限制。width 的缺省值為 0。
功能：將一個(gè)輸出行的寬度指定給用 Open 語句打開的文件。
示例：
Dim I
Open "f:\TESTFILE.txt" For Output As #1
Width #1, 5 ' 設(shè)置輸出行寬為 5。
For I = 0 To 9 ' 循環(huán) 10 次。
Print #1, Chr(48 + I); ' 每行輸出五個(gè)字符。
Next I
Close #1
01234
56789
（四）處理二進(jìn)制文件
打開二進(jìn)制文件可以使用Open語句的Random和Binary方式打開。二進(jìn)制文件讀寫使用Get和Put語句。
1、Put 語句
語法：Put [#]filenumber, [recnumber], varname
recnumber 可選。Variant (Long)。記錄號(hào)（Random 方式的文件）或字節(jié)數(shù)（Binary 方式的文件），指明在此處開始寫入。
說明：通常用 Get 將 Put 寫入的文件數(shù)據(jù)讀出來。
示例：
Dim num As Long, text As String
num = 12345
text = "a string"
Open "f:\data.bin" For Binary As #1 '打開或創(chuàng)建一個(gè)二進(jìn)制文件
Put #1, , num '寫入4個(gè)字節(jié)
Put #1, , text '寫入8個(gè)字節(jié)（字符串長(zhǎng)為8）
Close #1
2、Get 語句
語法：Get [#]filenumber, [recnumber], varname
recnumber 可選。Variant (Long)。記錄號(hào)（Random 方式的文件）或字節(jié)數(shù)（Binary 方式的文件），以表示在此處開始讀出數(shù)據(jù)。
功能：將一個(gè)已打開的磁盤文件讀入一個(gè)變量之中。
說明：通常用 Put 將 Get 讀出的數(shù)據(jù)寫入一個(gè)文件。
示例：讀取以上代碼寫入的內(nèi)容
Dim num As Long, text As String
Open "f:\data.bin" For Binary As #1
Get #1, , num
text = Space$(8) '準(zhǔn)備8個(gè)字節(jié)的字符串
Get #1, , text '讀入
Debug.Print num, text
Close #1
在立即窗口可以看到如下內(nèi)容：
12345 a string
3、Seek 語句
語法：Seek [#]filenumber, position
其中position 為介于 1～ 2,147,483,647（相當(dāng)于 2^31 – 1）之間的數(shù)字，指出下一個(gè)讀寫操作將要發(fā)生的位置。
功能：在 Open 語句打開的文件中，設(shè)置下一個(gè)讀/寫操作的位置。
說明：可以用Seek語句指定Get語句的讀取位置，但在 Get 及 Put 語句中指定的記錄號(hào)將覆蓋由 Seek 語句指定的文件位置。
示例：
Dim MaxSize, NextChar, MyChar
Open "TESTFILE" For Input As #1
MaxSize = LOF(1) ' 取得文件的總字符數(shù)。
' 用循環(huán)讀入所有記錄，但是從最后的記錄開始往前讀。
For NextChar = MaxSize To 1 Step -1
Seek #1, NextChar ' 設(shè)置讀寫位置。
MyChar = Input(1, #1) ' 讀入一字符。
Next NextChar
Close #1
4、Seek 函數(shù)
語法：Seek(filenumber)
功能：返回一個(gè) Long，在 Open 語句打開的文件中指定當(dāng)前的讀/寫位置。
說明：在使用Get語句讀取文件時(shí)，必須用LOF函數(shù)來判斷是否到達(dá)文件末尾，而不是用EOF函數(shù)。可以使用Seek函數(shù)判斷當(dāng)前位置，然后與LOF的值比較。
示例：
Do While Seek(1) < LOF(1)
'繼續(xù)讀取
......
Loop
（五）總結(jié)
VBA語句的文件操作涵蓋了文件操作的絕大部分內(nèi)容，很多函數(shù)的使用也很簡(jiǎn)單，一般的文件讀寫也非常方便，特別是對(duì)文本文件。但對(duì)于復(fù)雜的文件讀寫，代碼 的結(jié)構(gòu)和維護(hù)性都不好。因此在VB6之后，微軟引入了FileSystemObject對(duì)象模型，提供了面向?qū)ο蟮念悗?kù)，來操作驅(qū)動(dòng)器、文件夾和文件。但 對(duì)于二進(jìn)制文件的操作，目前還只能用VBA語句。
Excel文件本身就是二進(jìn)制文件，它使用的文件格式叫做BIFF(Binary Interchange File Format)，即二進(jìn)制可交換文件格式（但2007開始使用OOXML格式）。關(guān)于其內(nèi)部的結(jié)構(gòu)，本人也在研究中。以二進(jìn)制結(jié)構(gòu)打開Excel文件，不 但可以讀取其表格中的數(shù)據(jù)，還可以讀取其所有的信息（包括密碼）。注意，以O(shè)pen語句打開文件，并不是我們通常的雙擊一個(gè)文件打開顯示到屏幕上，而是將 其存放在磁盤上的數(shù)據(jù)讀入到緩沖區(qū)，不是可視化的打開。這種打開是不需要密碼的，即使你的Excel文件設(shè)置了打開密碼，還是照打開不誤，這也正是 Excel文件不安全的根源所在。我以前發(fā)過一篇關(guān)于破解的文章，里面破解VBA工程密碼的方法就是用二進(jìn)制替換。由于論壇不讓討論破解的話題，這里就不 再詳細(xì)分析代碼了，感興趣的請(qǐng)自行研究。當(dāng)然，Excel的其他密碼也是可類似破解的，前提是你必須十分了解Excel的內(nèi)部結(jié)構(gòu)，知道密碼放在哪里，才 能替換。知道的解密的方法，自然可以針對(duì)性的改進(jìn)加密的方法。好了，這里就不再羅嗦了，如果對(duì)Excel的內(nèi)部結(jié)構(gòu)感興趣，可以先看這篇文章，看懂再說。
Excel-VBA操作文件四大方法之三
三、利用FileSystemObject對(duì)象來處理文件
FileSystemObject對(duì)象模型，是微軟提供的專門用來訪問計(jì)算機(jī)文件系統(tǒng)的，具有大量的屬性、方法和事件。其使 用面向?qū)ο蟮摹皁bject.method”語法來處理文件夾和文件，使用起來十分方便（需Office 2000以后版本）。FileSystemObject并不是VBA的一部分，它是以一個(gè)COM組件的形式提供的。因此，要使用先要?jiǎng)?chuàng)建 FileSystemObject對(duì)象。
FileSystemObject對(duì)象模型包含了下面的對(duì)象和集合：
·FileSystemObject 主對(duì)象，包含用來創(chuàng)建、刪除和獲得有關(guān)信息，以及用來操作驅(qū)動(dòng)器、文件夾和文件的方法和屬性。
·Drive 對(duì)象，包含用來獲得信息的方法和屬性，這些信息是關(guān)于連接在系統(tǒng)上的驅(qū)動(dòng)器的，如有多少可用空間等。驅(qū)動(dòng)器不一定是硬盤，也可以是CD－ROM、U盤甚至是通過網(wǎng)絡(luò)在邏輯上連接的硬盤（如公司里部門共享的服務(wù)器網(wǎng)絡(luò)硬盤）。
·Drives 集合，提供驅(qū)動(dòng)器的列表，這些驅(qū)動(dòng)器以實(shí)物或在邏輯上與系統(tǒng)相連接。Drives集合包括所有驅(qū)動(dòng)器，與類型無關(guān)。
·File 對(duì)象，包含用來創(chuàng)建、刪除或移動(dòng)文件的方法和屬性。
·Files 集合，提供包含在文件夾內(nèi)的所有文件的列表。
·Folder 對(duì)象，包含用來創(chuàng)建、刪除或移動(dòng)文件夾的方法和屬性。
·Folders 集合，提供包含在文件夾內(nèi)的所有文件夾的列表。
·TextStream 對(duì)象，用來讀寫文本文件。
（一）準(zhǔn)備工作
要使用FileSystemObject對(duì)象，先要?jiǎng)?chuàng)建它。創(chuàng)建FileSystemObject對(duì)象要使用CreatObject函數(shù)。CreateObject 函數(shù)用來創(chuàng)建并返回一個(gè)對(duì) ActiveX 對(duì)象的引用。
語法：CreateObject(class,[servername])
class 是要?jiǎng)?chuàng)建的應(yīng)用程序名稱和類。
servername 要在其上創(chuàng)建對(duì)象的網(wǎng)絡(luò)服務(wù)器名稱。（如果要在遠(yuǎn)程計(jì)算機(jī)上創(chuàng)建對(duì)象才用）
class 參數(shù)使用 appname.objecttype 這種語法，包括以下部分：
appname 必需的；提供該對(duì)象的應(yīng)用程序名。
objecttype 必需的；待創(chuàng)建對(duì)象的類型或類。
因此，我們用下面的代碼創(chuàng)建FileSystemObject對(duì)象:
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Scripting是類型庫(kù)的名稱，FileSystemObject就是要?jiǎng)?chuàng)建的對(duì)象的名字。
同樣我們可以創(chuàng)建Dictionary 對(duì)象如下：
Dim d
Set d = CreateObject("Scripting.Dictionary")
（二）FileSystemObject對(duì)象的方法
FileSystemObject對(duì)象模型中有些功能是重復(fù)的，如可用FileSystemObject對(duì)象的CpoyFile方法，也可用File對(duì)象的Copy方法來復(fù)制文件。下面先介紹FileSystemObject對(duì)象的方法。
1、GetDrive 方法
語法：object.GetDrive drivespec
drivespec參數(shù)可以是一個(gè)驅(qū)動(dòng)器字符（c）、一個(gè)驅(qū)動(dòng)器字符加一個(gè)冒號(hào)（c:）、一個(gè)驅(qū)動(dòng)器字符加冒號(hào)和路徑分隔符（c:\）或任何網(wǎng)絡(luò)共享的說明（\\computer2\share1）。
作用：返回一個(gè)與指定路徑中的驅(qū)動(dòng)器相對(duì)應(yīng)的 Drive 對(duì)象。
示例：
Dim d
Set d = fso.GetDrive("D:") '變量d就代表了驅(qū)動(dòng)器D對(duì)象
如果 drivespec 不符合任何一種可以接受的形式或者不存在，則發(fā)生一個(gè)錯(cuò)誤。
注意：為簡(jiǎn)潔，示例中都假定fso是已經(jīng)創(chuàng)建的FileSystemObject對(duì)象
2、GetDriveName 方法
語法：object.GetDriveName(path)
作用：返回一個(gè)包含指定路徑的驅(qū)動(dòng)器名字的字符串。
示例：
Debug.Print fso.GetDriveName("c:\test.txt") '立即窗口顯示"c:"
3、GetExtensionName 方法
語法：object.GetExtensionName(path)
作用：返回一個(gè)包含路徑中最后部件擴(kuò)展名的字符串。
示例：
Debug.Print fso.GetExtensionName("c:\test.txt") '立即窗口顯示"txt"
4、GetBaseName 方法
語法：object.GetBaseName(path)
作用：返回一個(gè)包含路徑中最后部件的基本名字（去掉任何文件擴(kuò)展名）的字符串。
示例：
Debug.Print fso.GetBaseName("c:\abc\test.txt") '立即窗口顯示"test"
5、GetAbsolutePathName 方法
語法：object.GetAbsolutePathName(pathspec)
作用：從提供的路徑說明中返回一個(gè)完整、明確的路徑。
示例：
如果pathspec為空字符串""，則返回當(dāng)前路徑。假設(shè)當(dāng)前路徑為C:\Documents and Settings\yc\My Documents
Debug.Print fs.GetAbsolutePathName("") '顯示C:\Documents and Settings\yc\My Documents
Debug.Print fs.GetAbsolutePathName("c:..") '顯示C:\Documents and Settings\yc，即上層目錄
Debug.Print fs.GetAbsolutePathName("abc") '顯示C:\Documents and Settings\yc\My Documents\abc
Debug.Print fs.GetAbsolutePathName("c:\test.txt") '顯示C:\test.txt
6、GetFile 方法
語法：object.GetFile(filespec)
作用：返回一個(gè)和指定路徑中文件相對(duì)應(yīng)的 File 對(duì)象。
示例：
Dim f
Set f = fso.GetFile("c:\test.txt") '變量f就代表了文件test.txt對(duì)象
注意：如果指定的文件不存在，則發(fā)生一個(gè)錯(cuò)誤。
7、GetFileName 方法
語法：object.GetFileName(pathspec)
作用：返回指定路徑中的最后部件，該路徑不是驅(qū)動(dòng)器說明的一部分。
示例：
Debug.Print fso.GetFileName("c:\abc\test.txt") '立即窗口顯示"test.txt"
8、GetFolder 方法
語法：object.GetFolder(folderspec)
作用：返回一個(gè)和指定路徑中文件夾相對(duì)應(yīng)的 Folder 對(duì)象。
示例：
Dim fd
Set fd = fso.GetFolder("c:\windows") '變量f就代表了文件夾windows對(duì)象
注意：如果指定的文件夾不存在，則發(fā)生一個(gè)錯(cuò)誤。
9、GetSpecialFolder 方法
語法：object.GetSpecialFolder(folderspec)
作用：返回指定的特殊文件夾。
說明：
folderspec 參數(shù)可為任何的下列值：
WindowsFolder 0 Windows 文件夾，包含由 Windows 操作系統(tǒng)安裝的文件。
SystemFolder 1 系統(tǒng)文件夾，包含庫(kù)、字體、設(shè)備驅(qū)動(dòng)程序。
TemporaryFolder 2 Temp 文件夾，用于存儲(chǔ)臨時(shí)文件。它的路徑在 TMP 環(huán)境變量中。
10、GetParentFolderName 方法
語法：object.GetParentFolderName(path)
作用：返回一個(gè)包含指定路徑最后部件父文件夾名字的字符串。
示例：
Debug.Print fso.GetParentFolderName("c:\tmp\test.txt") '顯示"c:\tmp"
11、GetTempName 方法
語法：object.GetTempName
作用：返回一個(gè)隨機(jī)產(chǎn)生的臨時(shí)文件或文件夾的名字，該名字在執(zhí)行需要臨時(shí)文件或文件夾的操作時(shí)有用。
說明：GetTempName 方法不產(chǎn)生一個(gè)文件，它僅提供一個(gè)臨時(shí)文件名字，該名字可被 CreateTextFile 用于創(chuàng)建一個(gè)文件。
示例：
Debug.Print fso.GetTempName '顯示"radB0208.tmp",每次都會(huì)變。
12、BuildPath 方法
語法：object.BuildPath(path, name)
作用：追加一個(gè)名字到一個(gè)已經(jīng)存在的路徑。
示例：
Debug.Print fso.BuildPath("c:\tmp", "abc") '顯示"c:\tmp\abc"
13、CreateFolder 方法
語法：object.CreateFolder(foldername)
作用：創(chuàng)建一個(gè)文件夾。
注意：如果指定的文件夾已經(jīng)存在，則發(fā)生一個(gè)錯(cuò)誤。
示例：
fso.CreateFolder("c:\myfolder") '在C盤創(chuàng)建一個(gè)myfolder文件夾
14、CopyFolder 方法
語法：object.CopyFolder source, destination[, overwrite]
source 必需的。指明一個(gè)或多個(gè)被復(fù)制文件夾的字符串文件夾說明，可以包括通配符。
destination 必需的。指明 source 中被復(fù)制文件夾和子文件夾的接受端的字符串，不允許有通配符。
overwrite 可選的。Boolean 值，它表示已存在的文件夾是否被覆蓋。如果為 True，文件被覆蓋。如果為 False，文件不被覆蓋。缺省值為 True。
作用：復(fù)制一個(gè)文件夾到另一個(gè)地方。
說明：
① 通配符僅可用于 source 參數(shù)的最后一個(gè)路徑部件。
例如：fso.CopyFolder "c:\mydocuments\letters\*", "c:\tempfolder\" 這是可以的。
但不能這樣：fso.CopyFolder "c:\mydocuments\*\*", "c:\tempfolder\"
② 如果 source 包含通配符或 destination 以路徑分隔符（\）為結(jié)尾，則認(rèn)為 destination 是一個(gè)已存在的文件夾，在其中復(fù)制相匹配的文件夾和子文件夾。否則認(rèn)為 destination 是一個(gè)要?jiǎng)?chuàng)建的文件夾的名字。
例如：fso.copyfolder "c:\tmp", "f:\abc\"
如果F盤沒有abc文件夾，將發(fā)生錯(cuò)誤。如果存在，可看到abc文件夾里有tmp文件夾。
假如寫成這樣：fso.copyfolder "c:\tmp", "f:\abc"
此時(shí)若abc不存在，將創(chuàng)建abc文件夾，且將tmp文件夾里的內(nèi)容復(fù)制到abc文件夾里，而不是tmp文件夾，只有abc是一個(gè)已經(jīng)存在的文件夾時(shí)，才復(fù)制整個(gè)tmp文件夾到abc文件夾里。
③如果 destination 是一個(gè)已存在的文件，則發(fā)生一個(gè)錯(cuò)誤。
④如果 destination 是一個(gè)目錄，它將嘗試復(fù)制文件夾和它所有的內(nèi)容。如果一個(gè)包含在 source 的文件已在 destination 中存在，當(dāng) overwrite 為 False 時(shí)發(fā)生一個(gè)錯(cuò)誤，否則它將嘗試覆蓋這個(gè)文件。
⑤如果 destination 是一個(gè)只讀目錄，當(dāng)嘗試去復(fù)制一個(gè)已存在的只讀文件到此目錄并且 overwrite為 False 時(shí)，則發(fā)生一個(gè)錯(cuò)誤。
⑥如果 source 不存在或使用的通配符不能和任何文件夾匹配，也發(fā)生一個(gè)錯(cuò)誤。
⑦CopyFolder 方法停止在它遇到的第一個(gè)錯(cuò)誤上，之前所做的操作是不會(huì)消失的，所以要注意。
15、MoveFolder 方法
語法：object.MoveFolder source, destination
參數(shù)與CopyFolder的前兩個(gè)一樣。
作用：將一個(gè)或多個(gè)文件夾從一個(gè)地方移動(dòng)到另一個(gè)地方。
說明：
①只有在操作系統(tǒng)支持的情況下，這個(gè)方法才允許文件夾在卷之間移動(dòng)。Windows是不允許的，將C盤的文件夾移到D盤是不行的。
②如果 source 包含通配符或 destination 以路徑分隔符 （\） 為結(jié)尾，則認(rèn)為 destination 指定了一個(gè)已存在的文件夾，在此文件夾中移動(dòng)相匹配的文件。否則，認(rèn)為 destination 是一個(gè)要?jiǎng)?chuàng)建的目標(biāo)文件夾名字。這點(diǎn)與CopyFolder是一樣的。
③如果 destination 是一個(gè)已存在的文件，則發(fā)生一個(gè)錯(cuò)誤。
④如果 destination 是一個(gè)目錄，則發(fā)生一個(gè)錯(cuò)誤。
例如：
fso.movefolder "c:\tmp", "c:" '發(fā)生錯(cuò)誤。
⑤如果 source 不存在或使用的通配符不能和任何文件夾匹配，也發(fā)生一個(gè)錯(cuò)誤。
⑥MoveFolder 方法停止在它遇到的第一個(gè)錯(cuò)誤上。不要嘗試回卷在錯(cuò)誤發(fā)生前所做的任何改變。
16、DeleteFolder 方法
語法：object.DeleteFolder folderspec[, force]
folderspec 必需的。要?jiǎng)h除的文件夾的名字。 Folderspec 可以在最后的路徑部件中包含通配符。
force 可選的。Boolean 值，如果要?jiǎng)h除具有只讀屬性設(shè)置的文件夾，其值為 True，如果值為 False （缺省），則不能刪除具有只讀屬性設(shè)置的文件夾。
作用：刪除一個(gè)指定的文件夾和它的內(nèi)容。
說明：如果沒有發(fā)現(xiàn)相匹配的文件夾，則發(fā)生一個(gè)錯(cuò)誤。DeleteFolder 方法停止在它遇到的第一個(gè)錯(cuò)誤上，不要嘗試回卷或撤消錯(cuò)誤發(fā)生前所做的任何改變。
示例：
fso.DeleteFolder("c:\tmp")
17、FolderExists 方法
語法：object.FolderExists(folderspec)
作用：如果指定的文件夾存在返回 True，不存在返回 False。
18、DriveExists 方法
語法：object.DriveExists(drivespec)
作用：如果指定的驅(qū)動(dòng)器存在，返回 True，如果不存在返回 False。
19、FileExists 方法
語法：object.FileExists(filespec)
作用：如果指定的文件存在，返回 True，若不存在，則返回 False。
20、CreateTextFile 方法
語法：object.CreateTextFile(filename[, overwrite[, unicode]])
overwrite 可選的。Boolean 值，表示一個(gè)已存在文件是否可被覆蓋。如果可被覆蓋其值為 True，其值為 False 時(shí)不能覆蓋。如果它被省略，則已存在文件不能覆蓋。
unicode 可選的。Boolean 值，表示文件是作為一個(gè) Unicode 文件創(chuàng)建的還是作為一個(gè)ASCII 文件創(chuàng)建的。如果作為一個(gè) Unicode 文件創(chuàng)建，其值為 True，作為一個(gè) ASCII 文件創(chuàng)建，其值為 False。如果省略的話，則認(rèn)為是一個(gè) ASCII 文件。
作用：創(chuàng)建一個(gè)指定的文件名并且返回一個(gè)用于該文件讀寫的 TextStream 對(duì)象。
示例：
Dim f
Set f = fso.CreateTextFile("c:\testfile.txt", True)
21、OpenTextFile 方法
語法：object.OpenTextFile(filename[, iomode[, create[, format]]])
作用：打開一個(gè)指定的文件并返回一個(gè) TextStream 對(duì)象，該對(duì)象可用于對(duì)文件進(jìn)行讀、寫、追加操作。
說明：
·iomode 參數(shù)可為下面設(shè)置值中的任何值：
ForReading 1 打開一個(gè)只讀文件，不能對(duì)此文件進(jìn)行寫操作。
ForWriting 2 打開一個(gè)用于寫操作的文件。如果和此文件同名的文件已存在，則覆蓋以前內(nèi)容。
ForAppending 8 打開一個(gè)文件并寫到文件的尾部。
注意：在VBA幫助里是沒有ForWriting的，其實(shí)是有的，VBA幫助也是有錯(cuò)誤的。另外，這些常數(shù)在使用前要先聲明，或者直接用數(shù)值。
·create 可選的，它表示如果指定的 filename 不存在是否可以創(chuàng)建一個(gè)新文件。如果創(chuàng)建新文件，其值為 True。若不創(chuàng)建文件其值為 False。缺省值為 False。
·Format 參數(shù)可為下面設(shè)置值中的任何值：
TristateUseDefault –2 使用系統(tǒng)缺省打開文件。
TristateTrue –1 以 Unicode 格式打開文件。
TristateFalse 0 以 ASCII 格式打開文件。
示例：
Dim f
Set f = fso.OpenTextFile("c:\testfile.txt", 2, True)
或者：
Const ForWriting = 2
Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
這兩者功能是一樣的，一個(gè)聲明了常量，一個(gè)直接用數(shù)值。都是在C盤創(chuàng)建文件testfile.txt（如不存在），或以寫的方式打開（如存在）。
22、CopyFile 方法
語法：object.CopyFile source, destination[, overwrite]
作用：把一個(gè)或多個(gè)文件從一個(gè)地方復(fù)制到另一個(gè)地方。
說明：需要注意的地方與CopyFolder是完全類似的。
示例：
fso.copyfile "c:\testfile.txt", "f:\abc\" '若abc不存在則出錯(cuò)。
fso.copyfile "c:\testfile.txt", "f:\abc" '若abc不存在則復(fù)制testfile.txt到F盤文件名變?yōu)閍bc，若abc存在，出錯(cuò)，因?yàn)槭且粋€(gè)目錄。
23、MoveFile 方法
語法：object.MoveFile source, destination
作用：將一個(gè)或多個(gè)文件從一個(gè)地方移動(dòng)到另一個(gè)地方。
說明：需要注意的地方與MoveFolder是完全類似的。
24、DeleteFile 方法
語法：object.DeleteFile filespec[, force]
作用：刪除一個(gè)指定的文件。
說明：force 可選的。如果要?jiǎng)h除具有只讀屬性設(shè)置的文件，其值為 True。如果其值為 False （缺省），則不能刪除具有只讀屬性設(shè)置的文件。（三）處理驅(qū)動(dòng)器
可以利用Drive對(duì)象來獲取有關(guān)各種驅(qū)動(dòng)器的信息，Drive對(duì)象的屬性有：
TotalSize 屬性 驅(qū)動(dòng)器的總?cè)萘?#xff0c;以字節(jié)為單位。
AvailableSpace 屬性 驅(qū)動(dòng)器的可用空間容量，以字節(jié)為單位。
FreeSpace 屬性 驅(qū)動(dòng)器的剩余空間容量，和 AvailableSpace 屬性是相同的。
對(duì)于支持限額的計(jì)算機(jī)系統(tǒng)來說，二者之間可能有所不同。
DriveLetter 屬性 驅(qū)動(dòng)器字母，即盤符。
DriveType 屬性 驅(qū)動(dòng)器的類型。如"Removable"、"Fixed"、"Network"、"CD-ROM"、"RAM Disk"
SerialNumber 屬性 驅(qū)動(dòng)器的序列號(hào)。
FileSystem 屬性 驅(qū)動(dòng)器所使用的文件系統(tǒng)類型。如FAT、FAT32、NTFS、以及 CDFS。
IsReady 屬性 驅(qū)動(dòng)器是否可用。
ShareName 屬性 驅(qū)動(dòng)器的網(wǎng)絡(luò)共享名。
VolumeName 屬性 驅(qū)動(dòng)器的卷標(biāo)名。
Path 屬性 驅(qū)動(dòng)器的路徑。C 驅(qū)動(dòng)器的路徑是 C:，而不是 C:\。
RootFolder 屬性 定驅(qū)動(dòng)器的根文件夾。C 驅(qū)動(dòng)器的根文件夾是 C:\。
這些屬性的使用都十分簡(jiǎn)單，直接用“對(duì)象.屬性”就可以了。在使用前要先用GetDrive獲得一個(gè)Drive對(duì)象，注意不能創(chuàng)建一個(gè)驅(qū)動(dòng)器對(duì)象。下面舉個(gè)例子：
Sub ShowFreeSpace(drvPath)
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.Getdrive(fs.GetDriveName(drvPath))
s = "Drive " & UCase(drvPath) & "-"
s = s & d.VolumeName & vbCrLf
s = s & "Free Space: " & FormatNumber(d.FreeSpace / 1024, 0)
s = s & " Kbytes"
MsgBox s
End Sub
利用Call ShowFreeSpace("c:")，即可獲得C盤的卷標(biāo)名和可用空間。
（四）處理文件夾
1、獲取文件夾的信息
可以利用Folder對(duì)象來獲取有關(guān)文件夾的信息，Folder對(duì)象的屬性有：
Attributes 屬性 文件夾的屬性。可為下列值中的任意一個(gè)或任意的邏輯組合：
Normal 0 一般文件。未設(shè)置屬性。
ReadOnly 1 只讀文件。屬性為讀/寫。
Hidden 2 隱藏文件。屬性為讀/寫。
System 4 系統(tǒng)文件。屬性為讀/寫。
Volume 8 磁盤驅(qū)動(dòng)器卷標(biāo)。屬性為只讀。
Directory 16 文件夾或目錄。屬性為只讀。
Archive 32 自上次備份后已經(jīng)改變的文件。屬性為讀/寫。
Alias 64 鏈接或快捷方式。屬性為只讀。
Compressed 128 壓縮文件。屬性為只讀。
Name 屬性 文件夾名字。
ShortName 屬性 較早的 8.3 命名約定的程序所使用的短名字。
Type 屬性 文件夾類型。
Files 屬性 所有 File 對(duì)象組成的 Files 集合，這些 File 對(duì)象包含在指定的文件夾中
──包括設(shè)置了隱藏和系統(tǒng)文件屬性的那些文件。
Drive 屬性 文件夾所在的驅(qū)動(dòng)器符號(hào)。
IsRootFolder 屬性 文件夾是否是根文件夾。
ParentFolder 屬性 文件夾的父文件夾對(duì)象。
SubFolders 屬性 文件夾的子文件夾集合。
Path 屬性 文件夾的路徑。
ShortPath 屬性 較早的 8.3 文件命名約定的程序所使用的短路徑。
Size 屬性 文件夾的大小，以字節(jié)為單位。
DateCreated 屬性 文件夾的創(chuàng)建日期和時(shí)間。
DateLastModified 屬性 最后一次修改文件夾的日期和時(shí)間。
DateLastAccessed 屬性 最后一次訪問文件夾的日期和時(shí)間。
屬性的使用和Drive對(duì)象是一樣的，可以用GetFolder獲取一個(gè)Folder對(duì)象，也可以用FileSystemObject對(duì)象的CreateFolder 方法創(chuàng)建一個(gè)Folder對(duì)象。
2、Folder對(duì)象的方法
⑴Copy 方法
語法：object.Copy destination[, overwrite]
作用：把一個(gè)指定的文件夾從一個(gè)地方復(fù)制到另一個(gè)地方。
說明：Copy 方法的作用與FileSystemObject對(duì)象的CopyFolder 方法是一樣的，不同在于后者可一次復(fù)制多個(gè)文件夾。
⑵Move 方法
語法：object.Move destination
作用：將一個(gè)指定的文件夾從一個(gè)地方移動(dòng)到另一個(gè)地方。
說明：Move 方法的作用與FileSystemObject.MoveFolder 是一樣的。不同在于后者可一次移動(dòng)多個(gè)文件夾。
⑶Delete 方法
語法：object.Delete force
作用：刪除一個(gè)指定的文件夾。
說明：Delete 方法的作用與FileSystemObject.DeleteFolder 是一樣的。
⑷CreateTextFile 方法
語法：object.CreateTextFile(filename[, overwrite[, unicode]])
作用：與FileSystemObject對(duì)象的CreateTextFile 方法是一樣的。
示例：
Set fd = fs.getfolder("c:\tmp")
Set f = fd.CreateTextFile("testfile.txt", True)
可在C盤tmp文件夾下創(chuàng)建testfile.txt文件。
（五）處理文件
1、獲取文件的信息
可以利用File對(duì)象來獲取有關(guān)文件的信息，File對(duì)象的屬性和Folder的屬性是完全一樣的，只是少了Files 屬性、IsRootFolder 屬性、SubFolders 屬性這3個(gè)屬性。這里就不列了。
2、File對(duì)象的方法
⑴Copy 方法
⑵Move 方法
⑶Delete 方法
以上三種方法與Folder的是完全類似的，語法也一樣，同樣也可用FileSystemObject對(duì)象相應(yīng)的方法代替。
⑷OpenAsTextStream 方法
語法：object.OpenAsTextStream([iomode, [format]])
作用：打開一個(gè)指定的文件并返回一個(gè) TextStream 對(duì)象，該對(duì)象可用來對(duì)文件進(jìn)行讀、寫、追加操作。
說明：此方法與FileSystemObject對(duì)象的 OpenTextFile 方法相同的功能。參數(shù)也是一致的。
（六）處理文本文件
1、打開或創(chuàng)建文本文件
打開現(xiàn)有的文本文件，可以使用FileSystemObject對(duì)象的 OpenTextFile 方法或File對(duì)象的OpenAsTextStream 方法。
創(chuàng)建文件可以使用FileSystemObject對(duì)象的 CreatTextFile 方法或在OpenTextFile 方法中將iomode參數(shù)設(shè)為ForWriting＝2，create參數(shù)設(shè)為True。
例如：
Set f = fso.OpenTextFile("c:\test1.xls", 2, True) '如果不存在test1.xls將自動(dòng)創(chuàng)建。
2、讀取文件
打開文件后，將返回一個(gè)TextStream 對(duì)象，我們可以利用TextStream 對(duì)象的屬性及方法來對(duì)文件進(jìn)行讀寫操作。
先看TextStream 對(duì)象的幾個(gè)屬性。
·AtEndOfLine 屬性 文件指針是否正好在行尾標(biāo)記的前面
·AtEndOfStream 屬性 文件指針是否在 TextStream 文件末尾
·Column 屬性 TextStream 文件中當(dāng)前字符位置的列號(hào)
·Line 屬性 TextStream 文件中的當(dāng)前行號(hào)
利用TextStream 對(duì)象讀取文件有三種方法。
·Read 方法
語法：object.Read(characters)
功能：從一個(gè) TextStream 文件中讀取指定數(shù)量的字符并返回得到的字符串。
示例：
Sub du()
Dim fso, a, retstring
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfLine <> True '是否到行末
retstring = retstring & a.Read(1) '讀取一個(gè)字符
Loop
a.Close
Debug.Print retstring '可看到讀取了第一行的字符
End Sub
·ReadLine 方法
語法：object.ReadLine
功能：從一個(gè) TextStream 文件讀取一整行（到換行符但不包括換行符）并返回得到的字符串。
示例：
Sub du_line()
Dim fso, a, retstring
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfStream <> True '是否在 TextStream 文件末尾
retstring = a.ReadLine '讀取一行
Debug.Print retstring '顯示在立即窗口
Loop
a.Close
End Sub
·ReadAll 方法
語法：object.ReadAll
功能：讀取整個(gè)的 TextStream 文件并返回得到的字符串。
說明：對(duì)于大的文件，使用ReadAll方法浪費(fèi)內(nèi)存資源。應(yīng)使用其它的技術(shù)去輸入一個(gè)文件，比如按行讀取文件。
示例：
Sub du_all()
Dim fso, a, retstring
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile("c:\testfile.txt", ForReading, False)
retstring = a.Readall '全部讀取
Debug.Print retstring
a.Close
End Sub
還有兩個(gè)輔助讀取的方法：
·Skip 方法
語法：object.Skip(characters)
功能：當(dāng)讀一個(gè) TextStream 文件時(shí)跳過指定數(shù)量的字符。
示例：
Sub duskip()
Dim fso, a, retstring
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfLine <> True '是否到行末
retstring = retstring & a.Read(1) '讀取一個(gè)字符
a.Skip (1) '跳過一個(gè)字符
Loop
a.Close
Debug.Print retstring '可看到讀取了第一行的奇數(shù)位的字符
End Sub
·SkipLine 方法
語法：object.SkipLine
功能：當(dāng)讀一個(gè) TextStream 文件時(shí)跳過下一行。
3、寫入數(shù)據(jù)到文件
寫入數(shù)據(jù)到文件也有三種方法。
·Write 方法
語法：object.Write(string)
功能：寫一個(gè)指定的字符串到一個(gè) TextStream 文件。
示例：
Sub xie()
Const ForWriting = 2, ForAppending = 8
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
f.Write "Hello world!" '寫入字符串
f.Close
End Sub
·WriteLine 方法
語法：object.WriteLine([string])
功能：寫入一個(gè)指定的字符串和換行符到一個(gè) TextStream 文件中。
示例：
f.WriteLine("Hello world!") '寫入字符串，加一個(gè)換行符。
·WriteBlankLines 方法
語法：object.WriteBlankLines(lines)
功能：寫入指定數(shù)量的換行符到一個(gè) TextStream 文件中。
示例：
f.WriteBlankLines(3) '相當(dāng)于按3次回車。
4、關(guān)閉文件
利用TextStream 對(duì)象的Close方法，上面的示例中已經(jīng)有了，很簡(jiǎn)單。
（七）總結(jié)
之四
四、利用API函數(shù)來處理文件
通過前面三種方法的介紹，你是否已經(jīng)覺得足夠了？是的，前面的方法完全可以應(yīng)付幾乎所有的文件操作。但是為了普及一下API，展示一下API的魅力，最后向大家介紹一下如何利用API函數(shù)來處理文件。另一方面也是本人對(duì)API情有獨(dú)鐘，為她做一下廣告，呵呵。
大家對(duì)API的強(qiáng)大也是有所耳聞了，在文件操作方面，API自然毫不遜色。
說明：為了文章簡(jiǎn)潔，我們先給出API函數(shù)的名稱及功能，其完整的聲明及常數(shù)就不再一一細(xì)訴，只在示例中給出其完整用法。
（一）處理驅(qū)動(dòng)器及目錄
下面是windows中提供的對(duì)于目錄進(jìn)行操作的API函數(shù)及其功能:
CreateDirectory,CreateDirectoryEx 創(chuàng)建一個(gè)新目錄
GetCurrentDirectory 在一個(gè)緩沖區(qū)中裝載當(dāng)前目錄
GetDiskFreeSpace,GetDiskFreeSpaceEx 獲取與一個(gè)磁盤的組織有關(guān)的信息，以及了解剩余空間的容量
GetDriveType 判斷一個(gè)磁盤驅(qū)動(dòng)器的類型
GetFullPathName 獲取指定文件的完整路徑名
GetLogicalDrives 判斷系統(tǒng)中存在哪些邏輯驅(qū)動(dòng)器字母
GetLogicalDriveStrings 獲取一個(gè)字串，其中包含了當(dāng)前所有邏輯驅(qū)動(dòng)器的根驅(qū)動(dòng)器路徑
GetSystemDirectory 這個(gè)函數(shù)能取得Windows系統(tǒng)目錄（System目錄）的完整路徑名。在這個(gè)目錄中，包含了所有必要的系統(tǒng)文件。根據(jù)微軟的標(biāo)準(zhǔn)，其他定制控件和一 些共享組件也可放到這個(gè)目錄。通常應(yīng)避免在這個(gè)目錄里創(chuàng)建文件。在網(wǎng)絡(luò)環(huán)境中，往往需要管理員權(quán)限才可對(duì)這個(gè)目錄進(jìn)行寫操作
GetTempPath 獲取為臨時(shí)文件指定的路徑
GetVolumeInformation 獲取與一個(gè)磁盤卷有關(guān)的信息
GetWindowsDirectory 這個(gè)函數(shù)能獲取Windows目錄的完整路徑名。在這個(gè)目錄里，保存了大多數(shù)windows應(yīng)用程序文件及初始化文件
RemoveDirectory 刪除指定目錄
SetCurrentDirectory 設(shè)置當(dāng)前目錄
SetVolumeLabel 設(shè)置一個(gè)磁盤的卷標(biāo)（Label）
下面通過幾個(gè)例子來詳細(xì)的了解一下其中主要的幾個(gè)函數(shù)及其用法：
1、GetLogicalDrives
作用：判斷系統(tǒng)中存在哪些邏輯驅(qū)動(dòng)器字母
聲明：Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" () As Long
說明：此函數(shù)的返回值類型為L(zhǎng)ong，這個(gè)結(jié)構(gòu)中的二進(jìn)制位標(biāo)志著存在哪些驅(qū)動(dòng)器。其中，位0設(shè)為1表示驅(qū)動(dòng)器A:存在于系統(tǒng)中；位1設(shè)為1表示存在B:驅(qū)動(dòng)器；以次類推
示例：
Public Sub Get_LogicalDrives()
Dim LDs As Long, Cnt As Long, sDrives As String
LDs = GetLogicalDrives
sDrives = "Available drives:"
For Cnt = 0 To 25
If (LDs And 2 ^ Cnt) <> 0 Then
sDrives = sDrives + " " + Chr$(65 + Cnt)
End If
Next Cnt
MsgBox sDrives
End Sub
上面的示例中，我們通過二進(jìn)制運(yùn)算，將返回值轉(zhuǎn)換成字符。如果你的機(jī)上有C,D,E,F,G,H這幾個(gè)驅(qū)動(dòng)器，那么LDs的值就是252，轉(zhuǎn)成二進(jìn)制為11111100，從右往左，依次代表A,B,C,D,...，為0的說明沒有此驅(qū)動(dòng)器字母。大家可以自己試一試。
2、GetDriveType
作用：判斷一個(gè)磁盤驅(qū)動(dòng)器的類型
聲明：Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
說明：此函數(shù)的返回值類型為L(zhǎng)ong，如驅(qū)動(dòng)器不能識(shí)別，則返回零。如指定的目錄不存在，則返回1。如執(zhí)行成功，則用下述任何一個(gè)常數(shù)指 定驅(qū)動(dòng)器類型：DRIVE_REMOVABLE（表示磁盤可以從驅(qū)動(dòng)器上移走，通常是軟驅(qū)）， DRIVE_FIXED（磁盤不能從驅(qū)動(dòng)器上移走，通常為本地硬盤）， DRIVE_REMOTE（驅(qū)動(dòng)器是遠(yuǎn)程網(wǎng)絡(luò)驅(qū)動(dòng)器）， DRIVE_CDROM（驅(qū)動(dòng)器是CD-ROM驅(qū)動(dòng)器） 或 DRIVE_RAMDISK（驅(qū)動(dòng)器是RAM驅(qū)動(dòng)器）
參數(shù)為String類型，包含了驅(qū)動(dòng)器根目錄路徑的一個(gè)字串
此函數(shù)的功能與FSO的Drive對(duì)象的DriveType屬性是一樣的。
示例：
'定義常數(shù)變量
Private Const DRIVE_CDROM = 5 '表示光盤驅(qū)動(dòng)器
Private Const DRIVE_FIXED = 3 '表示硬盤驅(qū)動(dòng)器
Private Const DRIVE_RAMDISK = 6 '表示RAM驅(qū)動(dòng)器
Private Const DRIVE_REMOTE = 4 '表示網(wǎng)絡(luò)驅(qū)動(dòng)器
Private Const DRIVE_REMOVABLE = 2 '表示軟盤驅(qū)動(dòng)器
Private Sub Get_DriveType()
Dim temp As Long
temp = GetDriveType("d:\") '取的d:盤驅(qū)動(dòng)器類型
Select Case temp
Case DRIVE_CDROM
MsgBox "DRIVE_CDROM: 光盤驅(qū)動(dòng)器"
Case DRIVE_FIXED
MsgBox "DRIVE_FIXED: 硬盤驅(qū)動(dòng)器"
Case DRIVE_RAMDISK
MsgBox "DRIVE_RAMDISK: RAM驅(qū)動(dòng)器"
Case DRIVE_REMOTE
MsgBox "DRIVE_REMOTE: 網(wǎng)絡(luò)驅(qū)動(dòng)器"
Case DRIVE_REMOVABLE
MsgBox "DRIVE_REMOVABLE: 軟盤驅(qū)動(dòng)器"
End Select
End Sub
3、GetDiskFreeSpaceEx
作用：獲取與一個(gè)磁盤的組織以及剩余空間容量有關(guān)的信息
聲明：Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" (ByVal lpRootPathName As String, lpFreeBytesAvailableToCaller As LARGE_INTEGER, lpTotalNumberOfBytes As LARGE_INTEGER, lpTotalNumberOfFreeBytes As LARGE_INTEGER) As Long
說明：此函數(shù)的返回值類型為L(zhǎng)ong，非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError.
在采用FAT16格式的windows95系統(tǒng)中，如一個(gè)驅(qū)動(dòng)器（分區(qū)）的容量超過了2GB，則不應(yīng)使用這個(gè)函數(shù)。此時(shí)，這個(gè)函數(shù)能識(shí)別的最大分區(qū)容量只有2GB
參數(shù)說明：
lpRootPathName String，不包括卷名的磁盤根路徑名
lpFreeBytesAvailableToCaller LARGE_INTEGER，指定一個(gè)變量，用于容納調(diào)用者可用的字節(jié)數(shù)量
lpTotalNumberOfBytes LARGE_INTEGER，指定一個(gè)變量，用于容納磁盤上的總字節(jié)數(shù)
lpTotalNumberOfFreeBytes LARGE_INTEGER，指定一個(gè)變量，用于容納磁盤上可用的字節(jié)數(shù)
LARGE_INTEGER結(jié)構(gòu)用來代表一個(gè)64位帶符號(hào)的整數(shù)值，它的定義如下：
Type LARGE_INTEGER ' 8 Bytes
lowpart As Long
highpart As Long
End Type
其中l(wèi)owpart為 Long，指定低32位,highpart 為 Long，指定高32位。
示例：雖然此函數(shù)能識(shí)別的最大分區(qū)容量只有2GB，但通過調(diào)整，對(duì)大于2G的仍然能得出正確容量。以下的調(diào)整公式是本人通過逆向推算出來的，至于其中的原理也不是很清楚，大家可一測(cè)試一下。
Private Sub Get_DiskFreeSpaceEx()
Dim temp As Long, Dms$
Dim tempa, tempb, tempc
Dim RootPathName As String
Dim FreeBytesAvailabletoCaller As LARGE_INTEGER
Dim TotalNumberOfBytes As LARGE_INTEGER
Dim TotalNumberOfFreeBytes As LARGE_INTEGER
RootPathName = "d:"
'取得磁盤空間
temp = GetDiskFreeSpaceEx(RootPathName, FreeBytesAvailabletoCaller, TotalNumberOfBytes, TotalNumberOfFreeBytes)
Dms = Dms + "磁盤容量:" + vbCrLf
tempa = TotalNumberOfBytes.highpart * 2 ^ 32 + IIf(TotalNumberOfBytes.lowpart > 0, TotalNumberOfBytes.lowpart, TotalNumberOfBytes.lowpart + 2 ^ 32) '計(jì)算容量
Dms = Dms + CStr(tempa) + "字節(jié)" + vbCrLf
tempa = Format(tempa / 1024 / 1024 / 1024, "0.00")
Dms = Dms + tempa + "G" + vbCrLf
'取得磁盤可用空間
Dms = Dms + "磁盤可用空間:" + vbCrLf
tempb = TotalNumberOfFreeBytes.highpart * 2 ^ 32 + IIf(TotalNumberOfFreeBytes.lowpart > 0, TotalNumberOfFreeBytes.lowpart, TotalNumberOfFreeBytes.lowpart + 2 ^ 32) '計(jì)算
Dms = Dms + CStr(tempb) + "字節(jié)" + vbCrLf
tempb = Format(tempb / 1024 / 1024 / 1024, "0.00")
Dms = Dms + tempb + "G" + vbCrLf
'取得磁盤已用空間
Dms = Dms + "磁盤已用空間:" + vbCrLf
tempc = tempa - tempb
Dms = Dms + CStr(tempc) + "G" + vbCrLf
MsgBox Dms
End Sub
4、CreateDirectory, CreateDirectoryEx
作用：創(chuàng)建一個(gè)新目錄
聲明：
Declare Function CreateDirectory& Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
Declare Function CreateDirectoryEx& Lib "kernel32" Alias "CreateDirectoryExA" (ByVal lpTemplateDirectory As String, ByVal lpNewDirectory As String, lpSecurityAttributes As SECURITY_ATTRIBUTES)
說明：此函數(shù)的返回值類型為L(zhǎng)ong，非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError
參數(shù)說明：
lpTemplateDirectory String，指定一個(gè)模板目錄的名字，從中復(fù)制默認(rèn)屬性（比如目錄中文件的默認(rèn)壓縮方式）。如設(shè)為vbNullString，則表示不使用模板
lpNewDirectory String，新目錄的名字
lpSecurityAttributes SECURITY_ATTRIBUTES，這個(gè)結(jié)構(gòu)定義了目錄的安全特性——如果操作系統(tǒng)支持的話
示例：
Private Sub Create_Directory()
Dim Security As SECURITY_ATTRIBUTES
'創(chuàng)建目錄
Ret& = CreateDirectory("C:\Directory", Security)
'若返回0，則失敗。
If Ret& = 0 Then MsgBox "Error : 創(chuàng)建失敗!", vbCritical + vbOKOnly
End Sub
5、RemoveDirectory
作用：移除一個(gè)目錄
聲明：Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
說明：此函數(shù)的返回值類型為L(zhǎng)ong，非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError.
在調(diào)用這個(gè)函數(shù)前，目錄必須為空
參數(shù)說明：
lpPathName 為String類型，要?jiǎng)h除的那個(gè)目錄的名字
示例：
Private Sub Remove_Directory()
Dim Security As SECURITY_ATTRIBUTES
CreateDirectoryEx "C:\Windows", "C:\Temp", Security
'移除目錄
RemoveDirectory "C:\Temp"
End Sub
6、SetCurrentDirectory
作用：設(shè)置當(dāng)前目錄，與VBA語句ChDir類似。
聲明：Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
說明：此函數(shù)的返回值類型為L(zhǎng)ong，非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError
參數(shù)說明：
LpPathName String，新當(dāng)前目錄的路徑
示例：
SetCurrentDirectory "d:\" '設(shè)置D:為當(dāng)前目錄
7、GetSystemDirectory
作用：這個(gè)函數(shù)能取得Windows系統(tǒng)目錄（System目錄）的完整路徑名。在這個(gè)目錄中，包含了所有必要的系統(tǒng)文件。根據(jù)微軟的標(biāo) 準(zhǔn)，其他定制控件和一些共享組件也可放到這個(gè)目錄。通常應(yīng)避免在這個(gè)目錄里創(chuàng)建文件。在網(wǎng)絡(luò)環(huán)境中，往往需要管理員權(quán)限才可對(duì)這個(gè)目錄進(jìn)行寫操作
聲明：Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
說明：此函數(shù)的返回值類型為L(zhǎng)ong，裝載到lpBuffer緩沖區(qū)的字符數(shù)量。如lpBuffer不夠大，不能容下文件名，則返回要求的緩沖區(qū)長(zhǎng)度
參數(shù)說明：
lpBuffer String，用于裝載系統(tǒng)目錄路徑名的一個(gè)字串緩沖區(qū)。它應(yīng)事先初始化成nSize+1個(gè)字符的長(zhǎng)度。通常至少要為這個(gè)緩沖區(qū)分配MAX_PATH個(gè)字符的長(zhǎng)度
nSize Long，lpBuffer字串的最大長(zhǎng)度
示例：
Private Sub Get_SystemDirectory()
Dim sSave As String, Ret As Long
'創(chuàng)建緩沖區(qū)
sSave = Space(255)
'獲取系統(tǒng)目錄
Ret = GetSystemDirectory(sSave, 255)
'移除多余的0
sSave = Left$(sSave, Ret)
'顯示路徑
MsgBox "系統(tǒng)目錄: " + sSave
End Sub
下面是windows中提供的對(duì)于文件進(jìn)行操作的API函數(shù)及其功能:
CloseHandle 關(guān)閉一個(gè)內(nèi)核對(duì)象。其中包括文件、文件映射、進(jìn)程、線程、安全和同步對(duì)象等。
CompareFileTime 根據(jù)FILETIME結(jié)構(gòu)的信息，對(duì)比兩個(gè)文件的時(shí)間
CopyFile 復(fù)制文件。注意：只能復(fù)制文件，而不能復(fù)制目錄
CreateFile 這是一個(gè)全功能的函數(shù)，可打開和創(chuàng)建文件、管道、郵槽、通信服務(wù)、設(shè)備以及控制臺(tái)
DeleteFile 刪除指定文件
FindClose 關(guān)閉由FindFirstFile函數(shù)創(chuàng)建的一個(gè)搜索句柄
FindFirstFile 根據(jù)文件名查找文件
FindNextFile 根據(jù)調(diào)用FindFirstFile函數(shù)時(shí)指定的一個(gè)文件名查找下一個(gè)文件
FlushFileBuffers 針對(duì)指定的文件句柄，刷新內(nèi)部文件緩沖區(qū)
GetBinaryType 判斷文件是否可以執(zhí)行
GetFileAttributes 判斷指定文件的屬性
GetFileInformationByHandle 該函數(shù)能夠獲取上面所有函數(shù)所能夠獲取的信息，如大小、屬性等，同時(shí)還包括一些其他地方無法獲取的信息，比如：文件卷標(biāo)、索引和鏈接信息。
GetFileSize 判斷文件長(zhǎng)度
GetFileTime 取得指定文件的時(shí)間信息，有三個(gè)文件時(shí)間：創(chuàng)建時(shí)間、最后訪問時(shí)間、最后寫時(shí)間。
GetFileType 在給出文件句柄的前提下，判斷文件類型
GetFileVersionInfo 從支持版本標(biāo)記的一個(gè)模塊里獲取文件版本信息
GetFileVersionInfoSize 針對(duì)包含了版本資源的一個(gè)文件，判斷容納文件版本信息需要一個(gè)多大的緩沖區(qū)
GetFullPathName 獲取文件路徑，該函數(shù)獲取文件的完整路徑名。注意：只有當(dāng)該文件在當(dāng)前目錄下，
結(jié)果才正確。如果要得到真正的路徑。應(yīng)該用GetModuleFileName函數(shù)。
GetShortPathName 獲取指定文件的短路徑名
GetTempFileName 這個(gè)函數(shù)包含了一個(gè)臨時(shí)文件的名字，它可由應(yīng)用程序使用
GetTempPath 獲取Windows臨時(shí)目錄路徑
lclose 關(guān)閉指定的文件，請(qǐng)參考CloseHandle函數(shù)，了解進(jìn)一步的情況
lcreat 創(chuàng)建一個(gè)文件。如文件已經(jīng)存在，就會(huì)將其縮短成零長(zhǎng)度，并將其打開，以便讀寫
llseek 設(shè)置文件中進(jìn)行讀寫的當(dāng)前位置。該函數(shù)與vba的seek語句類似。
LockFile 在windows中，文件可用共享模式打開——在這種情況下，多個(gè)進(jìn)程可同時(shí)訪問該文件。
利用這個(gè)函數(shù)，要對(duì)文件進(jìn)行讀寫的一個(gè)應(yīng)用程序可將文件的某一部分鎖定起來，使其
不能由其他應(yīng)用程序訪問。這樣便避免了同時(shí)讀寫時(shí)發(fā)生的沖突
LockFileEx 與LockFile相似，只是它提供了更多的功能
lopen 以二進(jìn)制模式打開指定的文件
lread 將文件中的數(shù)據(jù)讀入內(nèi)存緩沖區(qū)
lwrite 將數(shù)據(jù)從內(nèi)存緩沖區(qū)寫入一個(gè)文件
MoveFile, MoveFileEx 移動(dòng)文件。如dwFlags設(shè)為零，則MoveFile完全等價(jià)于MoveFileEx
OpenFile 這個(gè)函數(shù)能執(zhí)行大量不同的文件操作。和這個(gè)函數(shù)相比，請(qǐng)優(yōu)先考慮CreateFile函數(shù)
（它能打開命名管道和控制Unicode文件名，同時(shí)不受128個(gè)字符的路徑名稱的限制）
ReadFile 從文件中讀出數(shù)據(jù)。與lread函數(shù)相比，這個(gè)函數(shù)要明顯靈活的多。該函數(shù)能夠操作
通信設(shè)備、管道、套接字以及郵槽
ReadFileEx 與ReadFile相似，只是它只能用于異步讀操作，并包含了一個(gè)完整的回調(diào)
SearchPath 查找指定文件
SetEndOfFile 針對(duì)一個(gè)打開的文件，將當(dāng)前文件位置設(shè)為文件末尾
SetFileAttributes 設(shè)置文件屬性
SetFilePointer 在一個(gè)文件中設(shè)置當(dāng)前的讀寫位置
SetFileTime 設(shè)置文件的創(chuàng)建、訪問及上次修改時(shí)間
UnlockFile 解除對(duì)一個(gè)文件的鎖定
UnlockFileEx 解除對(duì)一個(gè)文件的鎖定
WriteFile 將數(shù)據(jù)寫入一個(gè)文件。該函數(shù)比lwrite函數(shù)要靈活的多。也可將這個(gè)函數(shù)應(yīng)用于對(duì)
通信設(shè)備、管道、套接字以及郵槽的處理
WriteFileEx 與WriteFile類似，只是它只能用于異步寫操作，并包括了一個(gè)完整的回調(diào)
文件的壓縮和解壓縮
LZOpenFile 打開壓縮文件以讀取
LZSeek 查找壓縮文件中的一個(gè)位置
LZRead 讀一個(gè)壓縮文件
LZClose 關(guān)閉一個(gè)壓縮文件
LZCopy 復(fù)制壓縮文件并在處理過程中展開
GetExpandedName 從壓縮文件中返回文件名稱。
下面通過幾個(gè)例子來詳細(xì)的了解一下其中主要的幾個(gè)函數(shù)及其用法：
1、CreateFile
作用：這是一個(gè)全功能的例程，可打開和創(chuàng)建文件、管道、郵槽、通信服務(wù)、設(shè)備以及控制臺(tái)
聲明：
Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
說明：
此函數(shù)的返回值類型為L(zhǎng)ong，如執(zhí)行成功，則返回文件句柄。INVALID_HANDLE_VALUE表示出錯(cuò)，會(huì)設(shè)置 GetLastError。即使函數(shù)成功，但若文件存在，且指定了CREATE_ALWAYS 或 OPEN_ALWAYS，GetLastError也會(huì)設(shè)為ERROR_ALREADY_EXISTS
打開一個(gè)通信端口時(shí)（如COM1），無論如何都要設(shè)置成 OPEN_EXISTING。
這個(gè)函數(shù)代替了lOpen 和 lCreate函數(shù)，應(yīng)該是我們的首選
參數(shù)說明：
·lpFileName String，要打開的文件的名字
·dwDesiredAccess Long，如果為 GENERIC_READ 表示允許對(duì)設(shè)備進(jìn)行讀訪問；如果為 GENERIC_WRITE 表示允許對(duì)設(shè)備進(jìn)行寫訪問（可組合使用）；如果為零，表示只允許獲取與一個(gè)設(shè)備有關(guān)的信息
·dwShareMode Long，零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允許對(duì)文件進(jìn)行共享訪問
·lpSecurityAttributes SECURITY_ATTRIBUTES，指向一個(gè)SECURITY_ATTRIBUTES結(jié)構(gòu)的指針，定義了文件的安全特性（如果操作系統(tǒng)支持的話）
·dwCreationDisposition
Long，下述常數(shù)之一：
CREATE_NEW 創(chuàng)建文件；如文件存在則會(huì)出錯(cuò)
CREATE_ALWAYS 創(chuàng)建文件，會(huì)改寫前一個(gè)文件
OPEN_EXISTING 文件必須已經(jīng)存在。由設(shè)備提出要求
OPEN_ALWAYS 如文件不存在則創(chuàng)建它
TRUNCATE_EXISTING 講現(xiàn)有文件縮短為零長(zhǎng)度
·dwFlagsAndAttributes
Long，一個(gè)或多個(gè)下述常數(shù)
FILE_ATTRIBUTE_ARCHIVE 標(biāo)記歸檔屬性
FILE_ATTRIBUTE_COMPRESSED 將文件標(biāo)記為已壓縮，或者標(biāo)記為文件在目錄中的默認(rèn)壓縮方式
FILE_ATTRIBUTE_NORMAL 默認(rèn)屬性
FILE_ATTRIBUTE_HIDDEN 隱藏文件或目錄
FILE_ATTRIBUTE_READONLY 文件為只讀
FILE_ATTRIBUTE_SYSTEM 文件為系統(tǒng)文件
FILE_FLAG_WRITE_THROUGH 操作系統(tǒng)不得推遲對(duì)文件的寫操作
FILE_FLAG_OVERLAPPED 允許對(duì)文件進(jìn)行重疊操作
FILE_FLAG_NO_BUFFERING 禁止對(duì)文件進(jìn)行緩沖處理。文件只能寫入磁盤卷的扇區(qū)塊
FILE_FLAG_RANDOM_ACCESS 針對(duì)隨機(jī)訪問對(duì)文件緩沖進(jìn)行優(yōu)化
FILE_FLAG_SEQUENTIAL_SCAN 針對(duì)連續(xù)訪問對(duì)文件緩沖進(jìn)行優(yōu)化
FILE_FLAG_DELETE_ON_CLOSE 關(guān)閉了上一次打開的句柄后，將文件刪除。特別適合臨時(shí)文件
也可在Windows NT下組合使用下述常數(shù)標(biāo)記：
SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION， SECURITY_IMPERSONATION， SECURITY_DELEGATION， SECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY
·hTemplateFile Long，如果不為零，則指定一個(gè)文件句柄。新文件將從這個(gè)文件中復(fù)制擴(kuò)展屬性
示例如下:
lngHandle = CreateFile("c:\text.txt", GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_ALWAYS, 0, 0)
'上面代碼以寫方法打開文件，如文件不存在則創(chuàng)建它。
2、lcreat
作用：創(chuàng)建一個(gè)文件。如文件已經(jīng)存在，就會(huì)將其縮短成零長(zhǎng)度，并將其打開，以便讀寫
聲明：Declare Function lcreat Lib "kernel32" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Long) As Long
說明：此函數(shù)的返回值類型為L(zhǎng)ong，如執(zhí)行成功，返回打開文件的句柄。如果出錯(cuò)，則返回HFILE_ERROR
該函數(shù)會(huì)打開已由其他應(yīng)用程序打開的文件，所以使用它時(shí)要小心。win32的CreateFile函數(shù)已取代了這個(gè)函數(shù)。這個(gè)函數(shù)與vb的open語句作用相同
參數(shù)說明：
lpPathName String，欲創(chuàng)建的文件的名字
iAttribute Long，下述值之一：
0——文件能夠讀寫
1——?jiǎng)?chuàng)建只讀文件
2——?jiǎng)?chuàng)建隱藏文件
3——?jiǎng)?chuàng)建系統(tǒng)文件
示例：
下面的語句打開c：\test.txt文件
lcreat “c:\test.txt”,0
3、lopen
作用：以二進(jìn)制模式打開指定的文件
聲明：Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
說明：此函數(shù)的返回值類型為L(zhǎng)ong，如執(zhí)行成功，返回打開文件的句柄。HFILE_ERROR表示出錯(cuò)。會(huì)設(shè)置GetLastError
參數(shù)說明：
lpPathName String，欲打開文件的名字
iReadWrite Long，訪問模式和共享模式常數(shù)的一個(gè)組合，如下所示：
1、訪問模式
READ 打開文件，讀取其中的內(nèi)容
READ_WRITE 打開文件，對(duì)其進(jìn)行讀寫
WRITE 打開文件，在其中寫入內(nèi)容
2、共享模式（參考OpenFile函數(shù)的標(biāo)志常數(shù)表）
OF_SHARE_COMPAT， OF_SHARE_DENY_NONE， OF_SHARE_DENY_READ， OF_SHARE_DENY_WRITE， OF_SHARE_EXCLUSIVE
示例：
lopen “c:\test.txt”,READ
4、GetFileTime
作用：取得指定文件的時(shí)間信息
聲明：Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long
說明：Long，非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError
如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以設(shè)置為零（用ByVal As Long）。這個(gè)函數(shù)返回的文件時(shí)間采用UTC格式
參數(shù)說明：
hFile Long，文件的句柄
lpCreationTime FILETIME，用于裝載文件的創(chuàng)建時(shí)間
lpLastAccessTime FILETIME，用于裝載文件上一次訪問的時(shí)間（FAT文件系統(tǒng)不支持這一特性）
lpLastWriteTime FILETIME，用于裝載文件上一次修改的時(shí)間
示例：
Dim file As Long
Dim CreationTime As FileTime
Dim lastaccesstime As FileTime
Dim lastaccesstime As FileTime
'定義結(jié)構(gòu)
Private Type FileTime
dwLowDateTime As Long
dwHighDateTime As Long
End Type
str1 = "c:\text.txt"
file = lopen(str1, READ_WRITE) '打開文件
temp = GetFileTime(file, CreationTime, lastaccesstime, lastwritetime)’得到文件相關(guān)信息
以上代碼獲取的時(shí)間信息是Long型的，還需要時(shí)間轉(zhuǎn)換函數(shù)進(jìn)行轉(zhuǎn)換，完整的示例見附件。
5、CopyFile
作用：復(fù)制文件。與vb的filecopy命令相似
聲明：Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
說明：Long，非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError
參數(shù)說明：
lpExistingFileName String，源文件名
lpNewFileName String，目標(biāo)文件名
bFailIfExists Long，如果設(shè)為TRUE（非零），那么一旦目標(biāo)文件已經(jīng)存在，則函數(shù)調(diào)用會(huì)失敗。否則目標(biāo)文件被改寫
示例：
CopyFile "c:\test1.txt", "c:\test2.txt", 1
以上代碼將c:\test1.txt 拷貝到c:\test2.txt，完整的示例見附件。
6、MoveFile, MoveFileEx
作用：移動(dòng)文件。如dwFlags設(shè)為零，則MoveFile完全等價(jià)于MoveFileEx
聲明：
Declare Function MoveFile Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String)
Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long)
說明：Long，非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError
這兩個(gè)函數(shù)通常不能將文件從一個(gè)卷移動(dòng)到另一個(gè)卷。但如設(shè)置了MOVEFILE_COPY_ALLOWED標(biāo)記，MoveFileEx可以做到這一點(diǎn).
參數(shù)說明：
lpExistingFileName String，欲移動(dòng)的文件名
lpNewFileName String，新文件名
dwFlags Long，一個(gè)或多個(gè)下述常數(shù)
MOVEFILE_REPLACE_EXISTING 如目標(biāo)文件存在，則將其替換
MOVEFILE_COPY_ALLOWED 如移動(dòng)到一個(gè)不同的卷，則復(fù)制文件并刪除原來的文件
MOVEFILE_DELAY_UNTIL_REBOOT 移動(dòng)操作在系統(tǒng)下次重新啟動(dòng)時(shí)正式進(jìn)行。這樣便可在Windows NT中改換系統(tǒng)文件
示例：
Private Const MOVEFILE_COPY_ALLOWED = &H2
Private Const MOVEFILE_DELAY_UNTIL_REBOOT = &H4
Private Const MOVEFILE_REPLACE_EXISTING = &H1
MoveFile "c:\test.txt", "d:\test1.txt" '移動(dòng)文件
MoveFileEx "d:\test1.txt", "c:\test.txt", MOVEFILE_COPY_ALLOWED '再一次移動(dòng)
以上代碼實(shí)現(xiàn)了文件的移動(dòng)，兩次移動(dòng)後，文件不變
7、DeleteFile
作用：刪除指定文件
聲明：Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
說明：Long，非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError
與vba的kill語句相似，在windows 95下使用這個(gè)函數(shù)要小心——即使文件當(dāng)前正由一個(gè)應(yīng)用程序打開，該函數(shù)也會(huì)將其刪除.
參數(shù)說明：
lpFileName String，欲刪除文件的名字
示例：
DeleteFile "c:\test.txt" '刪除c:\test.txt文件
完整的示例見附件。
8、ReadFile
作用：從文件中讀出數(shù)據(jù)。與lread函數(shù)相比，這個(gè)函數(shù)要明顯靈活的多。該函數(shù)能夠操作通信設(shè)備、管道、套接字以及郵槽
聲明：Private Declare Function ReadFile Lib "kernel32" Alias "ReadFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long
說明：Long，非零表示成功，零表示失敗。會(huì)設(shè)置GetLastError。如啟動(dòng)的是一次異步讀操作，則函數(shù)會(huì)返回零值，并將 ERROR_IO_PENDING設(shè)置成GetLastError的結(jié)果。如結(jié)果不是零值，但讀入的字節(jié)數(shù)小于nNumberOfBytesToRead 參數(shù)指定的值，表明早已抵達(dá)了文件的結(jié)尾
參數(shù)：
hFile ---- Long，文件的句柄
lpBuffer --- Any，用于保存讀入數(shù)據(jù)的一個(gè)緩沖區(qū)
nNumberOfBytesToRead - Long，要讀入的字符數(shù)
lpNumberOfBytesRead - Long，從文件中實(shí)際讀入的字符數(shù)
lpOverlapped --- OVERLAPPED，如文件打開時(shí)指定了FILE_FLAG_OVERLAPPED，那么必須用這個(gè)參數(shù)引用一個(gè)特殊的結(jié)構(gòu)。那個(gè)結(jié)構(gòu)定義了一次異步讀 取操作。否則，應(yīng)將這個(gè)參數(shù)設(shè)為NULL（將函數(shù)聲明成ByVal As Long，并傳遞零值）
示例：完整的示例見附件。
9、WriteFile
作用：將數(shù)據(jù)寫入一個(gè)文件。該函數(shù)比lwrite函數(shù)要靈活的多。也可將這個(gè)函數(shù)應(yīng)用于對(duì)通信設(shè)備、管道、套接字以及郵槽的處理
聲明：Declare Function WriteFile Lib "kernel32" Alias "WriteFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As OVERLAPPED) As Long
說明：Long，TRUE（非零）表示成功，否則返回零。會(huì)設(shè)置GetLastError
參數(shù)：
hFile --- Long，一個(gè)文件的句柄
lpBuffer --- Any，要寫入的一個(gè)數(shù)據(jù)緩沖區(qū)
nNumberOfBytesToWrite - Long，要寫入數(shù)據(jù)的字節(jié)數(shù)量。如寫入零字節(jié)，表示什么都不寫入，但會(huì)更新文件的“上一次修改時(shí)間”。針對(duì)位于遠(yuǎn)程系統(tǒng)的命名管道，限制在65535個(gè)字節(jié)以內(nèi)
lpNumberOfBytesWritten - Long，實(shí)際寫入文件的字節(jié)數(shù)量
lpOverlapped --- OVERLAPPED，倘若在指定FILE_FLAG_OVERLAPPED的前提下打開文件，這個(gè)參數(shù)就必須引用一個(gè)特殊的結(jié)構(gòu)。那個(gè)結(jié)構(gòu)定義了一次異 步寫操作。否則，該參數(shù)應(yīng)置為空（將聲明變?yōu)锽yVal As Long，并傳遞零值）
示例：完整的示例見附件。
10、SHFileOperation
作用：此函數(shù)的功能很強(qiáng)大，能對(duì)文件或文件夾進(jìn)行復(fù)制、移動(dòng)、重命名、刪除的全部操作。
聲明：Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
說明：Long，TRUE（非零）表示成功，否則返回零。
參數(shù)：
lpFileOp －－SHFILEOPSTRUCT類型，指定文件的操作。
Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long '對(duì)文件的操作指令
pFrom As String '源文件或路徑
pTo As String '目的文件或路徑
fFlags As Integer '操作標(biāo)志
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type
示例：見附件。
（三）總結(jié)
通過以上的介紹，我們可以看到API在文件操作方面功能十分強(qiáng)大，能夠完成一些前面方法所不能完成的任務(wù)。FileSystemObject對(duì)象模 型的內(nèi)部可能就是用API寫的，即便不是我們也可以用API寫出一個(gè)FSO類來。API是一個(gè)巨大的寶庫(kù)，當(dāng)你為實(shí)現(xiàn)某個(gè)功能而愁眉不展的時(shí)候，查查 API可能就能找到滿意的答案。
寫的這么多，希望對(duì)大家有所幫助，至少操作文件是沒有什么問題了。
附件：API函數(shù)示例，代碼有注釋，應(yīng)該都看的懂，可以按F8逐行運(yùn)行，查看結(jié)果。
點(diǎn)擊瀏覽該文件
轉(zhuǎn)載請(qǐng)注明本文地址： Excel-VBA操作文件四大方法
總結(jié)
以上是生活随笔為你收集整理的Excel-VBA操作文件四大方法的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： WinRunner在项目中的作用
- 下一篇： 仿链家地图找房_iOS地图找房(类似链家