★Excel-VBA操作文件四大方法[ExcelHome技術(shù)論壇]

狂人不狂 2007-04-13

展開全文

Excel-VBA操作文件四大方法之一

在我們?nèi)粘Ｊ褂肊xcel的時候，不僅會用到當(dāng)前Excel文件的數(shù)據(jù)，還經(jīng)常需要訪問其他的數(shù)據(jù)文件。這些數(shù)據(jù)文件可能是Excel文件、文本文件或數(shù)據(jù)庫文件等。經(jīng)常有朋友會問如何在vba代碼里操作這些數(shù)據(jù)文件？本文就系統(tǒng)地介紹一下在Excel中應(yīng)用VBA操作數(shù)據(jù)文件的方法。

本文主要介紹四種常用的方法：
1、利用Excel對象來處理文件；
2、利用VBA文件處理語句來處理文件；
3、利用FileSystemObject對象來處理文件；
4、利用API函數(shù)來處理文件。

當(dāng)然對于數(shù)據(jù)庫文件，還可以利用ADO＋SQL的方法操作，不過論壇已經(jīng)有前輩詳細(xì)介紹過此類方法，本文就不再重復(fù)了。

一、利用Excel對象來處理文件

利用Excel對象自帶的方法來操作文件是最方便，也是最簡單的。
我們主要利用Workbooks集合和Workbook對象的方法來操作文件。

1、打開Excel文件

我們可以用Workbooks.Open方法打開一個Excel工作簿。
Workbooks.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
其中FileName是必選的參數(shù)，表示要打開的工作簿名，如果沒有指定路徑，則代表當(dāng)前路徑。另外14個是可選參數(shù)，除了密碼參數(shù)，其他的一般很少用。具體的含義可以參看VBA的幫助。
例：
Workbooks.Open "F:\test.xls"
可以打開F盤的test.xls文件。

2、打開文本文件

使用Open方法也可以打開文本文件，但建議使用OpenText方法。此方法是載入一個文本文件，并將其作為包含單個工作表的工作簿進(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ù)了。在實際的編程中，一般無需對這些復(fù)雜的參數(shù)進(jìn)行處理。可以通過錄制宏來得到打開一個文本文件的VBA代碼。具體方法就是選擇“文件——打開”，然后選擇打開文本文件，就會出現(xiàn)文本導(dǎo)入向?qū)?，一步一步?zhí)行完，直到文本打開后，停止錄制。
以下是錄制宏得到的代碼:
Sub Macro1()
‘
‘ Macro1 Macro
‘ 宏由 MC SYSTEM 錄制，時間: 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

在實際編程中只要做相應(yīng)的修改就可以使用了。

3、打開其他文件

利用Excel對象還可以打開XML文件和一些數(shù)據(jù)庫（如Access）文件，對應(yīng)XML文件，需要Excel2003以上的版本。

OpenXML方法的語法如下：
Workbooks.OpenXML(Filename, Stylesheets, LoadOption)
FileName String 類型，必需。要打開的文件名。

Stylesheets Variant 類型，可選。單個值或值的數(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對象的Save或SaveAs方法。
Save方法使用簡單，語法為
expression.Save，expression是某個Workbook對象。
如：ActiveWorkbook.Save
即保存當(dāng)前活動工作簿。

如果是第一次保存工作簿或要另存為，請使用 SaveAs 方法為該文件指定文件名。
其語法為：
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

具體參數(shù)含義可參看VBA幫助，使用都比較簡單。
示例
本示例新建一個工作簿，提示用戶輸入文件名，然后保存該工作簿。

Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName

Application.GetSaveAsFilename為調(diào)出標(biāo)準(zhǔn)的“另存為”對話框，獲取用戶文件名，但并不真正保存任何文件，然后使用代碼保存文件。還有Application.GetOpenFileName可以調(diào)出標(biāo)準(zhǔn)的“打開”對話框。

5、關(guān)閉文件

關(guān)閉文件可以使用Workbooks集合或Workbook對象的 Close 方法。前者是關(guān)閉所有打開的工作簿，后者關(guān)閉特定的工作簿。
Workbook對象的 Close 方法語法為：
expression.Close(SaveChanges, Filename, RouteWorkbook)

SaveChanges參數(shù)表示是否保存更改，對許多不需要更改的操作，可設(shè)置為False以免彈出保存更改提示的對話框。
FileName 可選。以此文件名保存所做的更改。
RouteWorkbook 可選。如果指定工作簿不需要傳送給下一個收件人（沒有傳送名單或已經(jīng)傳送），則忽略該參數(shù)。

示例
本示例關(guān)閉 Book1.xls，并放棄所有對此工作簿的更改。

Workbooks("BOOK1.XLS").Close SaveChanges:=False

本示例關(guān)閉所有打開的工作簿。如果某個打開的工作簿有改變，Microsoft Excel 將顯示詢問是否保存更改的對話框和相應(yīng)提示。

Workbooks.Close

6、綜合實例

假如F盤有一個Excel文件test.xls，現(xiàn)在有另一個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在打開時被看見(有時候還是看的見）。打開后，見test.xls的Sheet1的單元格A2中的值賦給當(dāng)前工作簿的Sheet1的單元格B2，然后關(guān)閉test.xls。
當(dāng)要打開的工作簿不確定的時候，可以通過調(diào)用打開對話框來讓用戶自己選擇。
可改為如下：
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對象的方法進(jìn)行文件操作是最簡單，也是最方便的，適合初學(xué)者。對于Excel文件格式，如果我們僅僅是讀取其表格中的內(nèi)容，這種方法也是首選。對于文本文件的操作，使用第二種方法比較方便，若要將文本轉(zhuǎn)換成表格，那么使用此方法也是合適的。

如何在d:\test.xls已打開的情況下不讓以下的語句再去創(chuàng)建一個test.xls的實例(雖然它標(biāo)識為只讀),

并給出文件已打開的提示.

先做一個判斷！判斷該工作簿是否打開了？

例如：

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}

^{功能：重命名一個文件、目錄、或文件夾，移動一個文件。}

^{說明：在一個已打開的文件上使用 Name，將會產(chǎn)生錯誤。進(jìn)行文件操作時，一定要注意錯誤處理。}

^{示例：
On Error Resume Next    ‘錯誤處理
Name "f:\TEST.xls" As "f:\TEST123.xls"  ‘重命名
Name "f:\TEST.xls" As "f:\dll\TEST.xls"  ‘移動文件
Name "f:\TEST.xls" As "d:\TEST123.xls"  ‘跨驅(qū)動器移動并重命名文件}

^{注意：Name不能移動一個目錄或文件夾。}

^{2、FileCopy 語句}

^{語法：FileCopy source, destination}

^{功能：復(fù)制一個文件。}

^{說明：如果對一個已打開的文件使用 FileCopy 語句，則會產(chǎn)生錯誤。}

^{示例：
FileCopy "f:\TEST.xls", "e:\TEST.xls" ‘從F盤復(fù)制TEST.xls到E盤}

^{3、Kill 語句}

^{語法：Kill pathname}

^{功能：從磁盤中刪除文件。}

^{說明：Kill 支持多字符 (*) 和單字符 (?) 的統(tǒng)配符來指定多重文件。如果使用 Kill 來刪除一個已打開的文件，則會產(chǎn)生錯誤。}

^{示例：
Kill "f:\TEST.xls" ’刪除F盤的TEST.xls文件
Kill "f:\*.xls" ‘ 刪除F盤所有xls文件}

^{4、GetAttr 函數(shù)}

^{語法：GetAttr(pathname)}

^{功能：獲取一個文件、目錄、或文件夾的屬性。返回一個 Integer值。}

^返回值

^{由 GetAttr 返回的值，是下面這些屬性值的總和：}

^{常數(shù)    值   描述
vbNormal   0   常規(guī)
vbReadOnly   1   只讀
vbHidden   2   隱藏
vbSystem   4  系統(tǒng)文件
vbDirectory   16   目錄或文件夾
vbArchive   32   存檔文件
vbalias   64   指定的文件名是別名。只在Macintosh中可用。}

^{說明：若要判斷是否設(shè)置了某個屬性，在 GetAttr 函數(shù)與想要得知的屬性值之間使用 And 運算符與逐位比較。如果所得的結(jié)果不為零，則表示設(shè)置了這個屬性值。}

^{示例：
Debug.Print GetAttr("F:\test.txt") ‘若為存檔文件，在立即窗口可看到值為32
Debug.Print GetAttr("F:\test.txt") ‘將屬性—高級—可存檔文件的勾去掉后，值為0}

^{為判斷一個文件是否只讀，可用下法:
Debug.Print GetAttr("F:\test.txt") And vbReadOnly
若值非零，說明時只讀的。}

^{5、SetAttr 語句}

^{語法：SetAttr pathname, attributes}

^{功能：為一個文件設(shè)置屬性。}

^{說明：如果想要給一個已打開的文件設(shè)置屬性，則會產(chǎn)生運行時錯誤。}

^{示例：
SetAttr"F:\test.txt", vbHidden ‘ 設(shè)置隱藏屬性。
SetAttr"F:\test.txt", vbHidden + vbReadOnly ‘ 設(shè)置隱藏并只讀。}

^{6、FileLen 函數(shù)}

^{語法：FileLen(pathname)}

^{功能：獲取一個文件的長度，單位是字節(jié)。}

^{說明：當(dāng)調(diào)用 FileLen 函數(shù)時，不需要打開文件，如果所指定的文件已經(jīng)打開，則返回的值是這個文件在打開前的大小。}

^{7、FileDateTime 函數(shù)}

^{語法：FileDateTime(pathname)}

^{功能：獲取一個文件被創(chuàng)建或最后修改后的日期和時間。}

^{示例：
Debug.Print FileDateTime("F:\TEST.xls") ‘在立即窗口可看到2007-3-29 19:28:27}

^{（二）目錄處理
1、CurDir 函數(shù)
語法：CurDir[(drive)]
功能：返回當(dāng)前的路徑。
說明：drive 參數(shù)是可選的，它指定一個存在的驅(qū)動器。如果沒有指定驅(qū)動器，或 drive 是零長度字符串 ("")，則 CurDir 會返回當(dāng)前驅(qū)動器的路徑。
示例：
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)笔∧夸浳恢?，但不會改變?nèi)笔◎?qū)動器位置。缺省驅(qū)動器一般是C。
示例：
ChDir "D:\temp"
Debug.Print CurDir      ‘ 返回“C:\Documents and Settings\yc\My Documents”。
Debug.Print CurDir("D")    ‘ 返回“D:\temp”。
與上例比較，此時D盤的當(dāng)前目錄已經(jīng)變?yōu)?#8220;D:\temp”，但是缺省驅(qū)動器還是C。
3、ChDrive 語句
語法：ChDrive drive
功能：改變當(dāng)前的驅(qū)動器。
說明：如果使用零長度的字符串 ("")，則當(dāng)前的驅(qū)動器將不會改變。如果 drive 參數(shù)中有多個字符，則 ChDrive 只會使用首字母。
示例：
ChDrive "D"
ChDir "D:\temp"
Debug.Print CurDir      ‘ 返回“D:\temp”。
Debug.Print CurDir("D")    ‘ 返回“D:\temp”。
與上例比較，用CurDir返回的是“D:\temp”，當(dāng)前驅(qū)動器已經(jīng)變?yōu)镈了。
4、Dir 函數(shù)
語法：Dir[(pathname[, attributes])]
      兩個參數(shù)都是可選的，attributes表示文件屬性。
功能：返回一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標(biāo)相匹配。
說明：在第一次調(diào)用 Dir 函數(shù)時，必須指定 pathname，否則會產(chǎn)生錯誤。如果也指定了文件屬性，那么就必須包括 pathname。
Dir 會返回匹配 pathname 的第一個文件名。若想得到其它匹配 pathname 的文件名，再一次調(diào)用 Dir，且不要使用參數(shù)。如果已沒有合乎條件的文件，則 Dir 會返回一個零長度字符串 ("")。一旦返回值為零長度字符串，并要再次調(diào)用 Dir 時，就必須指定 pathname，否則會產(chǎn)生錯誤。不必訪問到所有匹配當(dāng)前 pathname 的文件名，就可以改變到一個新的 pathname 上。但是，不能以遞歸方式來調(diào)用 Dir 函數(shù)。以 vbDirectory 屬性來調(diào)用 Dir 不能連續(xù)地返回子目錄。
示例：
Debug.Print Dir("F:\TEST.xls")  ’返回"TEST.xls"
Debug.Print Dir("F:\*.xls")  ’返回按條件第一個找到的文件名。
Debug.Print Dir("F:\*.txt",vbReadOnly) ’返回第一個只讀的txt文件
以下過程可顯示C盤根目錄下的所有目錄.
Sub DirC()
MyPath = "c:\"
MyName = dir(MyPath, vbDirectory)    ‘ 找尋第一項。
Do While MyName <> ""      ‘ 開始循環(huán)。
    ‘ 跳過當(dāng)前的目錄及上層目錄。
    If MyName <> "." And MyName <> ".." Then
        ‘ 使用位比較來確定 MyName 代表一目錄。
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ‘ 如果它是一個目錄，將其名稱顯示出來。
        End If
    End If
    MyName = dir    ‘ 查找下一個目錄。
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)建一個新的目錄或文件夾。
說明：path 可以包含驅(qū)動器。如果沒有指定驅(qū)動器，則 MkDir 會在當(dāng)前驅(qū)動器上創(chuàng)建新的目錄或文件夾。
示例：
MkDir "MYDIR"    ‘在當(dāng)前目錄建立新的目錄或文件夾。
6、RmDir 語句
語法：RmDir path
功能：刪除一個存在的目錄或文件夾。
說明：如果想要使用 RmDir 來刪除一個含有文件的目錄或文件夾，則會發(fā)生錯誤。在試圖刪除目錄或文件夾之前，先使用 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：以隨機方式打開，如果未指定方式，則以 Random 方式打開文件。
filenumber 是一個有效的文件號，范圍在 1 到 511 之間。可以指定，也可使用 FreeFile 函數(shù)可得到下一個可用的文件號。
說明：如果 pathname 指定的文件不存在，那么，在用 Append、Binary、Output、或 Random 方式打開文件時，可以建立這一文件。
示例：
Open "F:\TEST.txt" For Input As #1  ‘以輸入方式打開
Open "F:\TEST.xls" For Binary As #1  ‘以二進(jìn)制方式打開
2、Close 語句
語法：Close [filenumberlist]
     filenumberlist 參數(shù)為一個或多個文件號，若省略 filenumberlist，則將關(guān)閉 Open 語句打開的所有活動文件。
說明：打開文件后，必須在使用完后關(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    ‘ 將三個已打開的文件全部關(guān)閉。
3、Reset 語句
語法：Reset
功能：關(guān)閉所有用 Open 語句打開的磁盤文件。
說明：Reset 語句關(guān)閉 Open 語句打開的所有活動文件，并將文件緩沖區(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指定一個范圍，以便返回該范圍之內(nèi)的下一個可用文件號。指定 0（缺省值）則返回一個介于 1 – 255 之間的文件號。指定 1 則返回一個介于 256 – 511 之間的文件號。
功能：提供一個尚未使用的文件號。
示例：
Dim fnum As Integer
fnum = FreeFile
Open "F:\TEST.txt" For Input As #fnum
Close #fnum

5、EOF 函數(shù)
語法：EOF(filenumber)
功能：返回一個 Integer，它包含 Boolean 值 True，表明已經(jīng)到達(dá)為 Random 或順序 Input 打開的文件的結(jié)尾。
6、LOF 函數(shù)
語法：LOF(filenumber)
功能：返回一個 Long，表示用 Open 語句打開的文件的大小，該大小以字節(jié)為單位。
7、Loc 函數(shù)
語法：LOc(filenumber)
功能：返回一個 Long，在已打開的文件中指定當(dāng)前讀/寫位置。

8、Input # 語句
語法：Input #filenumber, varlist
功能：從已打開的順序文件中讀出數(shù)據(jù)并將數(shù)據(jù)指定給變量。
說明：通常用 Write # 將 Input # 語句讀出的數(shù)據(jù)寫入文件。為了能夠用 Input # 語句將文件的數(shù)據(jù)正確讀入到變量中，在將數(shù)據(jù)寫入文件時，要使用 Write # 語句而不使用 Print # 語句。使用 Write # 語句可以確保將各個單獨的數(shù)據(jù)域正確分隔開。
示例：
本示例使用 Input # 語句將文件內(nèi)的數(shù)據(jù)讀入兩個變量中。本示例假設(shè) TESTFILE文件內(nèi)含數(shù)行以 Write # 語句寫入的數(shù)據(jù)；也就是說，每一行數(shù)據(jù)中的字符串部分都是用雙引號括起來，而與數(shù)字用逗號隔開，例如，（"Hello", 234）。
Dim MyString, MyNumber
Open "TESTFILE" For Input As #1      ‘ 打開輸入文件。
Do While Not EOF(1)       ‘ 循環(huán)至文件尾。
    Input #1, MyString, MyNumber      ‘ 將數(shù)據(jù)讀入兩個變量。
    Debug.Print MyString, MyNumber      ‘ 在立即窗口中顯示數(shù)據(jù)。
Loop
Close #1         ‘ 關(guān)閉文件。
9、Write # 語句
語法：Write #filenumber, [outputlist]
功能：將數(shù)據(jù)寫入順序文件。
說明：通常用 Input # 從文件讀出 Write # 寫入的數(shù)據(jù)。
如果省略 outputlist，并在 filenumber 之后加上一個逗號，則會將一個空白行打印到文件中。多個表達(dá)式之間可用空白、分號或逗號隔開?？瞻缀头痔柕刃?。
用 Write # 將數(shù)據(jù)寫入文件時將遵循幾個通用的約定，使得無論什么區(qū)域都可用 Input # 讀出并正確解釋數(shù)據(jù)：
·在寫入數(shù)值數(shù)據(jù)時總使用句號作為十進(jìn)制分隔符。
·對于 Boolean 類型的數(shù)據(jù)，或者打印 #TRUE# 或者打印 #FALSE#。無論在什么地區(qū)，都不將 True 和 False 這兩個關(guān)鍵字翻譯出來。
·使用通用的日期格式將 Date 類型的數(shù)據(jù)寫入文件中。當(dāng)日期或時間的部件丟失或為零時，只將現(xiàn)有部分寫入文件中。
·如果 outputlist 的數(shù)據(jù)為 Empty，則不將任何數(shù)據(jù)寫入文件。但對 Null 數(shù)據(jù)，則要寫入 #NULL#。
·如果 outputlist 數(shù)據(jù)為 Null 數(shù)據(jù)，則將 #NULL# 寫入文件中。
·對于 Error 類型的數(shù)據(jù)，輸出看起來與 #ERROR errorcode# 一樣。無論在什么地區(qū)，都不將關(guān)鍵字 Error 翻譯出來。
與 Print # 語句不同，當(dāng)要將數(shù)據(jù)寫入文件時，Write # 語句會在項目和用來標(biāo)記字符串的引號之間插入逗號。沒有必要在列表中鍵入明確的分界符。Write # 語句在將 outputlist 中的最后一個字符寫入文件后會插入一個新行字符，即回車換行符，(Chr(13) + Chr(10))。
示例：
Open "F:\test.txt" For Output As #1      ‘ 打開輸出文件。
Write #1, "Hello World", 1234      ‘ 寫入以逗號隔開的數(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 錯誤代號# 的格式寫入。
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 # 語句一次只從文件中讀出一個字符，直到遇到回車符 (Chr(13)) 或回車–換行符 (Chr(13) + Chr(10)) 為止?；剀?#8211;換行符將被跳過，而不會被附加到字符串上。
示例：
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 指定要返回的字符個數(shù)。
功能:返回 String，它包含以 Input 或 Binary 方式打開的文件中的字符。
說明：通常用 Print # 或 Put 將 Input 函數(shù)讀出的數(shù)據(jù)寫入文件。Input 函數(shù)只用于以 Input 或 Binary 方式打開的文件。
與 Input # 語句不同，Input 函數(shù)返回它所讀出的所有字符，包括逗號、回車符、空白列、換行符、引號和前導(dǎo)空格等。
示例：
Dim MyChar
Open "f:\test.txt" For Input As #1
Do While Not EOF(1)       ‘ 循環(huán)至文件尾。
    MyChar = Input(1, #1)      ‘ 讀入一個字符。
    Debug.Print MyChar      ‘ 顯示到立即窗口。
Loop
Close #1
下面這個函數(shù)可以將文本文件的數(shù)據(jù)一次讀入到一個字符串（但是若包含中文時會出錯，因為一個中文字占2個字節(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) 用來將插入點定位在某一絕對列號上，這里，n 是列號。使用無參數(shù)的 Tab 將插入點定位在下一個打印區(qū)的起始位置。
expression 要打印的數(shù)值表達(dá)式或字符串表達(dá)式。
charpos 指定下一個字符的插入點。使用分號將插入點定位在上一個顯示字符之后。用 Tab(n) 將插入點定位在某一絕對的列號上，用無參數(shù)的 Tab 將插入點定位在下一個打印區(qū)的起始處。如果省略 charpos，則在下一行打印下一個字符。

功能：將格式化顯示的數(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ù)寫入兩個區(qū)（print zones）。
Print #1, "Hello"; " "; "World"             ‘ 以空格隔開兩個字符串。
Print #1, Spc(5); "5 leading spaces "       ‘ 在字符串之前寫入五個空格。
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 會根據(jù)系統(tǒng)的地區(qū)設(shè)置自動轉(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，則行的長度不受限制。width 的缺省值為 0。
功能：將一個輸出行的寬度指定給用 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);                  ‘ 每行輸出五個字符。
Next I
Close #1
以上代碼寫入的內(nèi)容如下：
01234
56789

（四）處理二進(jìn)制文件
打開二進(jìn)制文件可以使用Open語句的Random和Binary方式打開。二進(jìn)制文件讀寫使用Get和Put語句。
1、Put 語句
語法：Put [#]filenumber, [recnumber], varname
recnumber 可選。Variant (Long)。記錄號（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)建一個二進(jìn)制文件
Put #1, , num                           ‘寫入4個字節(jié)
Put #1, , text                          ‘寫入8個字節(jié)（字符串長為8）
Close #1

2、Get 語句
語法：Get [#]filenumber, [recnumber], varname
recnumber 可選。Variant (Long)。記錄號（Random 方式的文件）或字節(jié)數(shù)（Binary 方式的文件），以表示在此處開始讀出數(shù)據(jù)。
功能：將一個已打開的磁盤文件讀入一個變量之中。
說明：通常用 Put 將 Get 讀出的數(shù)據(jù)寫入一個文件。
示例：讀取以上代碼寫入的內(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個字節(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ù)字，指出下一個讀寫操作將要發(fā)生的位置。
功能：在 Open 語句打開的文件中，設(shè)置下一個讀/寫操作的位置。
說明：可以用Seek語句指定Get語句的讀取位置，但在 Get 及 Put 語句中指定的記錄號將覆蓋由 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)
功能：返回一個 Long，在 Open 語句打開的文件中指定當(dāng)前的讀/寫位置。
說明：在使用Get語句讀取文件時，必須用LOF函數(shù)來判斷是否到達(dá)文件末尾，而不是用EOF函數(shù)。可以使用Seek函數(shù)判斷當(dāng)前位置，然后與LOF的值比較。
示例：
Do While Seek(1) < LOF(1)
   ‘繼續(xù)讀取
   ......
Loop

（五）總結(jié)
      VBA語句的文件操作涵蓋了文件操作的絕大部分內(nèi)容，很多函數(shù)的使用也很簡單，一般的文件讀寫也非常方便，特別是對文本文件。但對于復(fù)雜的文件讀寫，代碼的結(jié)構(gòu)和維護(hù)性都不好。因此在VB6之后，微軟引入了FileSystemObject對象模型，提供了面向?qū)ο蟮念悗欤瑏聿僮黩?qū)動器、文件夾和文件。但對于二進(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語句打開文件，并不是我們通常的雙擊一個文件打開顯示到屏幕上，而是將其存放在磁盤上的數(shù)據(jù)讀入到緩沖區(qū)，不是可視化的打開。這種打開是不需要密碼的，即使你的Excel文件設(shè)置了打開密碼，還是照打開不誤，這也正是Excel文件不安全的根源所在。我以前發(fā)過一篇關(guān)于破解的文章，里面破解VBA工程密碼的方法就是用二進(jìn)制替換。由于論壇不讓討論破解的話題，這里就不再詳細(xì)分析代碼了，感興趣的請自行研究。當(dāng)然，Excel的其他密碼也是可類似破解的，前提是你必須十分了解Excel的內(nèi)部結(jié)構(gòu)，知道密碼放在哪里，才能替換。知道的解密的方法，自然可以針對性的改進(jìn)加密的方法。好了，這里就不再羅嗦了，如果對Excel的內(nèi)部結(jié)構(gòu)感興趣，可以先看這篇文章，看懂再說。
http://club./dispbbs.asp?BoardID=2&ID=227502&replyID=&skin=0

Excel-VBA操作文件四大方法之三

三、利用FileSystemObject對象來處理文件
FileSystemObject對象模型，是微軟提供的專門用來訪問計算機文件系統(tǒng)的，具有大量的屬性、方法和事件。其使用面向?qū)ο蟮?#8220;object.method”語法來處理文件夾和文件，使用起來十分方便（需Office 2000以后版本）。FileSystemObject并不是VBA的一部分，它是以一個COM組件的形式提供的。因此，要使用先要創(chuàng)建FileSystemObject對象。
FileSystemObject對象模型包含了下面的對象和集合：
·FileSystemObject 主對象，包含用來創(chuàng)建、刪除和獲得有關(guān)信息，以及用來操作驅(qū)動器、文件夾和文件的方法和屬性。
·Drive   對象，包含用來獲得信息的方法和屬性，這些信息是關(guān)于連接在系統(tǒng)上的驅(qū)動器的，如有多少可用空間等。驅(qū)動器不一定是硬盤，也可以是CD－ROM、U盤甚至是通過網(wǎng)絡(luò)在邏輯上連接的硬盤（如公司里部門共享的服務(wù)器網(wǎng)絡(luò)硬盤）。
·Drives  集合，提供驅(qū)動器的列表，這些驅(qū)動器以實物或在邏輯上與系統(tǒng)相連接。Drives集合包括所有驅(qū)動器，與類型無關(guān)。
·File   對象，包含用來創(chuàng)建、刪除或移動文件的方法和屬性。
·Files   集合，提供包含在文件夾內(nèi)的所有文件的列表。
·Folder  對象，包含用來創(chuàng)建、刪除或移動文件夾的方法和屬性。
·Folders  集合，提供包含在文件夾內(nèi)的所有文件夾的列表。
·TextStream  對象，用來讀寫文本文件。

（一）準(zhǔn)備工作
要使用FileSystemObject對象，先要創(chuàng)建它。創(chuàng)建FileSystemObject對象要使用CreatObject函數(shù)。CreateObject 函數(shù)用來創(chuàng)建并返回一個對 ActiveX 對象的引用。
語法：CreateObject(class,[servername])
class 是要創(chuàng)建的應(yīng)用程序名稱和類。
servername 要在其上創(chuàng)建對象的網(wǎng)絡(luò)服務(wù)器名稱。（如果要在遠(yuǎn)程計算機上創(chuàng)建對象才用）
class 參數(shù)使用 appname.objecttype 這種語法，包括以下部分：
appname 必需的；提供該對象的應(yīng)用程序名。
objecttype 必需的；待創(chuàng)建對象的類型或類。
因此，我們用下面的代碼創(chuàng)建FileSystemObject對象:
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Scripting是類型庫的名稱，F(xiàn)ileSystemObject就是要創(chuàng)建的對象的名字。
同樣我們可以創(chuàng)建Dictionary 對象如下：
Dim d
Set d = CreateObject("Scripting.Dictionary")

（二）FileSystemObject對象的方法
FileSystemObject對象模型中有些功能是重復(fù)的，如可用FileSystemObject對象的CpoyFile方法，也可用File對象的Copy方法來復(fù)制文件。下面先介紹FileSystemObject對象的方法。
1、GetDrive 方法
語法：object.GetDrive drivespec
drivespec參數(shù)可以是一個驅(qū)動器字符（c）、一個驅(qū)動器字符加一個冒號（c:）、一個驅(qū)動器字符加冒號和路徑分隔符（c:\）或任何網(wǎng)絡(luò)共享的說明（\\computer2\share1）。
作用：返回一個與指定路徑中的驅(qū)動器相對應(yīng)的 Drive 對象。
示例：
Dim d
Set d = fso.GetDrive("D:")  ‘變量d就代表了驅(qū)動器D對象
如果 drivespec 不符合任何一種可以接受的形式或者不存在，則發(fā)生一個錯誤。
注意：為簡潔，示例中都假定fso是已經(jīng)創(chuàng)建的FileSystemObject對象
2、GetDriveName 方法
語法：object.GetDriveName(path)
作用：返回一個包含指定路徑的驅(qū)動器名字的字符串。
示例：
Debug.Print fso.GetDriveName("c:\test.txt")  ‘立即窗口顯示"c:"
3、GetExtensionName 方法
語法：object.GetExtensionName(path)
作用：返回一個包含路徑中最后部件擴(kuò)展名的字符串。
示例：
Debug.Print fso.GetExtensionName("c:\test.txt")  ‘立即窗口顯示"txt"
4、GetBaseName 方法
語法：object.GetBaseName(path)
作用：返回一個包含路徑中最后部件的基本名字（去掉任何文件擴(kuò)展名）的字符串。
示例：
Debug.Print fso.GetBaseName("c:\abc\test.txt")  ‘立即窗口顯示"test"
5、GetAbsolutePathName 方法
語法：object.GetAbsolutePathName(pathspec)
作用：從提供的路徑說明中返回一個完整、明確的路徑。
示例：
如果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)
作用：返回一個和指定路徑中文件相對應(yīng)的 File 對象。
示例：
Dim f
Set f = fso.GetFile("c:\test.txt")  ‘變量f就代表了文件test.txt對象
注意：如果指定的文件不存在，則發(fā)生一個錯誤。
7、GetFileName 方法
語法：object.GetFileName(pathspec)
作用：返回指定路徑中的最后部件，該路徑不是驅(qū)動器說明的一部分。
示例：
Debug.Print fso.GetFileName("c:\abc\test.txt")  ‘立即窗口顯示"test.txt"
8、GetFolder 方法
語法：object.GetFolder(folderspec)
作用：返回一個和指定路徑中文件夾相對應(yīng)的 Folder 對象。
示例：
Dim fd
Set fd = fso.GetFolder("c:\windows")  ‘變量f就代表了文件夾windows對象
注意：如果指定的文件夾不存在，則發(fā)生一個錯誤。
9、GetSpecialFolder 方法
語法：object.GetSpecialFolder(folderspec)
作用：返回指定的特殊文件夾。
說明：
folderspec 參數(shù)可為任何的下列值：
WindowsFolder   0   Windows 文件夾，包含由 Windows 操作系統(tǒng)安裝的文件。
SystemFolder   1   系統(tǒng)文件夾，包含庫、字體、設(shè)備驅(qū)動程序。
TemporaryFolder 2   Temp 文件夾，用于存儲臨時文件。它的路徑在 TMP 環(huán)境變量中。
10、GetParentFolderName 方法
語法：object.GetParentFolderName(path)
作用：返回一個包含指定路徑最后部件父文件夾名字的字符串。
示例：
Debug.Print fso.GetParentFolderName("c:\tmp\test.txt")  ‘顯示"c:\tmp"
11、GetTempName 方法
語法：object.GetTempName
作用：返回一個隨機產(chǎn)生的臨時文件或文件夾的名字，該名字在執(zhí)行需要臨時文件或文件夾的操作時有用。
說明：GetTempName 方法不產(chǎn)生一個文件，它僅提供一個臨時文件名字，該名字可被 CreateTextFile 用于創(chuàng)建一個文件。
示例：
Debug.Print fso.GetTempName   ‘顯示"radB0208.tmp",每次都會變。
12、BuildPath 方法
語法：object.BuildPath(path, name)
作用：追加一個名字到一個已經(jīng)存在的路徑。
示例：
Debug.Print fso.BuildPath("c:\tmp", "abc") ‘顯示"c:\tmp\abc"
13、CreateFolder 方法
語法：object.CreateFolder(foldername)
作用：創(chuàng)建一個文件夾。
注意：如果指定的文件夾已經(jīng)存在，則發(fā)生一個錯誤。
示例：
fso.CreateFolder("c:\myfolder")   ‘在C盤創(chuàng)建一個myfolder文件夾
14、CopyFolder 方法
語法：object.CopyFolder source, destination[, overwrite]
source 必需的。指明一個或多個被復(fù)制文件夾的字符串文件夾說明，可以包括通配符。
destination 必需的。指明 source 中被復(fù)制文件夾和子文件夾的接受端的字符串，不允許有通配符。
overwrite 可選的。Boolean 值，它表示已存在的文件夾是否被覆蓋。如果為 True，文件被覆蓋。如果為 False，文件不被覆蓋。缺省值為 True。
作用：復(fù)制一個文件夾到另一個地方。
說明：
① 通配符僅可用于 source 參數(shù)的最后一個路徑部件。
例如：fso.CopyFolder "c:\mydocuments\letters\*", "c:\tempfolder\" 這是可以的。
但不能這樣：fso.CopyFolder "c:\mydocuments\*\*", "c:\tempfolder\"
② 如果 source 包含通配符或 destination 以路徑分隔符（\）為結(jié)尾，則認(rèn)為 destination 是一個已存在的文件夾，在其中復(fù)制相匹配的文件夾和子文件夾。否則認(rèn)為 destination 是一個要創(chuàng)建的文件夾的名字。
例如：fso.copyfolder "c:\tmp", "f:\abc\"
如果F盤沒有abc文件夾，將發(fā)生錯誤。如果存在，可看到abc文件夾里有tmp文件夾。
假如寫成這樣：fso.copyfolder "c:\tmp", "f:\abc"
此時若abc不存在，將創(chuàng)建abc文件夾，且將tmp文件夾里的內(nèi)容復(fù)制到abc文件夾里，而不是tmp文件夾，只有abc是一個已經(jīng)存在的文件夾時，才復(fù)制整個tmp文件夾到abc文件夾里。
③如果 destination 是一個已存在的文件，則發(fā)生一個錯誤。
④如果 destination 是一個目錄，它將嘗試復(fù)制文件夾和它所有的內(nèi)容。如果一個包含在 source 的文件已在 destination 中存在，當(dāng) overwrite 為 False 時發(fā)生一個錯誤，否則它將嘗試覆蓋這個文件。
⑤如果 destination 是一個只讀目錄，當(dāng)嘗試去復(fù)制一個已存在的只讀文件到此目錄并且 overwrite為 False 時，則發(fā)生一個錯誤。
⑥如果 source 不存在或使用的通配符不能和任何文件夾匹配，也發(fā)生一個錯誤。
⑦CopyFolder 方法停止在它遇到的第一個錯誤上，之前所做的操作是不會消失的，所以要注意。
15、MoveFolder 方法
語法：object.MoveFolder source, destination
參數(shù)與CopyFolder的前兩個一樣。
作用：將一個或多個文件夾從一個地方移動到另一個地方。
說明：
①只有在操作系統(tǒng)支持的情況下，這個方法才允許文件夾在卷之間移動。Windows是不允許的，將C盤的文件夾移到D盤是不行的。
②如果 source 包含通配符或 destination 以路徑分隔符（\）為結(jié)尾，則認(rèn)為 destination 指定了一個已存在的文件夾，在此文件夾中移動相匹配的文件。否則，認(rèn)為 destination 是一個要創(chuàng)建的目標(biāo)文件夾名字。這點與CopyFolder是一樣的。
③如果 destination 是一個已存在的文件，則發(fā)生一個錯誤。
④如果 destination 是一個目錄，則發(fā)生一個錯誤。
例如：
fso.movefolder "c:\tmp", "c:"  ‘發(fā)生錯誤。
⑤如果 source 不存在或使用的通配符不能和任何文件夾匹配，也發(fā)生一個錯誤。
⑥MoveFolder 方法停止在它遇到的第一個錯誤上。不要嘗試回卷在錯誤發(fā)生前所做的任何改變。
16、DeleteFolder 方法
語法：object.DeleteFolder folderspec[, force]
folderspec 必需的。要刪除的文件夾的名字。 Folderspec 可以在最后的路徑部件中包含通配符。
force 可選的。Boolean 值，如果要刪除具有只讀屬性設(shè)置的文件夾，其值為 True，如果值為 False （缺?。?，則不能刪除具有只讀屬性設(shè)置的文件夾。
作用：刪除一個指定的文件夾和它的內(nèi)容。
說明：如果沒有發(fā)現(xiàn)相匹配的文件夾，則發(fā)生一個錯誤。DeleteFolder 方法停止在它遇到的第一個錯誤上，不要嘗試回卷或撤消錯誤發(fā)生前所做的任何改變。
示例：
fso.DeleteFolder("c:\tmp")
17、FolderExists 方法
語法：object.FolderExists(folderspec)
作用：如果指定的文件夾存在返回 True，不存在返回 False。
18、DriveExists 方法
語法：object.DriveExists(drivespec)
作用：如果指定的驅(qū)動器存在，返回 True，如果不存在返回 False。
19、FileExists 方法
語法：object.FileExists(filespec)
作用：如果指定的文件存在，返回 True，若不存在，則返回 False。
20、CreateTextFile 方法
語法：object.CreateTextFile(filename[, overwrite[, unicode]])
overwrite 可選的。Boolean 值，表示一個已存在文件是否可被覆蓋。如果可被覆蓋其值為 True，其值為 False 時不能覆蓋。如果它被省略，則已存在文件不能覆蓋。
unicode 可選的。Boolean 值，表示文件是作為一個 Unicode 文件創(chuàng)建的還是作為一個ASCII 文件創(chuàng)建的。如果作為一個 Unicode 文件創(chuàng)建，其值為 True，作為一個 ASCII 文件創(chuàng)建，其值為 False。如果省略的話，則認(rèn)為是一個 ASCII 文件。
作用：創(chuàng)建一個指定的文件名并且返回一個用于該文件讀寫的 TextStream 對象。
示例：
Dim f
Set f = fso.CreateTextFile("c:\testfile.txt", True)
21、OpenTextFile 方法
語法：object.OpenTextFile(filename[, iomode[, create[, format]]])
作用：打開一個指定的文件并返回一個 TextStream 對象，該對象可用于對文件進(jìn)行讀、寫、追加操作。
說明：
·iomode 參數(shù)可為下面設(shè)置值中的任何值：
ForReading    1 打開一個只讀文件，不能對此文件進(jìn)行寫操作。
ForWriting    2 打開一個用于寫操作的文件。如果和此文件同名的文件已存在，則覆蓋以前內(nèi)容。
ForAppending    8 打開一個文件并寫到文件的尾部。
注意：在VBA幫助里是沒有ForWriting的，其實是有的，VBA幫助也是有錯誤的。另外，這些常數(shù)在使用前要先聲明，或者直接用數(shù)值。
·create 可選的，它表示如果指定的 filename 不存在是否可以創(chuàng)建一個新文件。如果創(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)
這兩者功能是一樣的，一個聲明了常量，一個直接用數(shù)值。都是在C盤創(chuàng)建文件testfile.txt（如不存在），或以寫的方式打開（如存在）。
22、CopyFile 方法
語法：object.CopyFile source, destination[, overwrite]
作用：把一個或多個文件從一個地方復(fù)制到另一個地方。
說明：需要注意的地方與CopyFolder是完全類似的。
示例：
fso.copyfile "c:\testfile.txt", "f:\abc\"  ‘若abc不存在則出錯。
fso.copyfile "c:\testfile.txt", "f:\abc"  ‘若abc不存在則復(fù)制testfile.txt到F盤文件名變?yōu)閍bc，若abc存在，出錯，因為是一個目錄。
23、MoveFile 方法
語法：object.MoveFile source, destination
作用：將一個或多個文件從一個地方移動到另一個地方。
說明：需要注意的地方與MoveFolder是完全類似的。
24、DeleteFile 方法
語法：object.DeleteFile filespec[, force]
作用：刪除一個指定的文件。
說明：force 可選的。如果要刪除具有只讀屬性設(shè)置的文件，其值為 True。如果其值為 False （缺?。瑒t不能刪除具有只讀屬性設(shè)置的文件。

（三）處理驅(qū)動器
可以利用Drive對象來獲取有關(guān)各種驅(qū)動器的信息，Drive對象的屬性有：
TotalSize 屬性   驅(qū)動器的總?cè)萘浚宰止?jié)為單位。
AvailableSpace 屬性  驅(qū)動器的可用空間容量，以字節(jié)為單位。
FreeSpace 屬性   驅(qū)動器的剩余空間容量，和 AvailableSpace 屬性是相同的。
    對于支持限額的計算機系統(tǒng)來說，二者之間可能有所不同。
DriveLetter 屬性  驅(qū)動器字母，即盤符。
DriveType 屬性   驅(qū)動器的類型。如"Removable"、"Fixed"、"Network"、"CD-ROM"、"RAM Disk"
SerialNumber 屬性  驅(qū)動器的序列號。
FileSystem 屬性   驅(qū)動器所使用的文件系統(tǒng)類型。如FAT、FAT32、NTFS、以及 CDFS。
IsReady 屬性   驅(qū)動器是否可用。
ShareName 屬性   驅(qū)動器的網(wǎng)絡(luò)共享名。
VolumeName 屬性   驅(qū)動器的卷標(biāo)名。
Path 屬性   驅(qū)動器的路徑。C 驅(qū)動器的路徑是 C:，而不是 C:\。
RootFolder 屬性   定驅(qū)動器的根文件夾。C 驅(qū)動器的根文件夾是 C:\。
這些屬性的使用都十分簡單，直接用“對象.屬性”就可以了。在使用前要先用GetDrive獲得一個Drive對象，注意不能創(chuàng)建一個驅(qū)動器對象。下面舉個例子：
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對象來獲取有關(guān)文件夾的信息，F(xiàn)older對象的屬性有：
Attributes 屬性   文件夾的屬性?？蔀橄铝兄抵械娜我庖粋€或任意的邏輯組合：
    Normal   0 一般文件。未設(shè)置屬性。
    ReadOnly 1 只讀文件。屬性為讀/寫。
    Hidden   2 隱藏文件。屬性為讀/寫。
    System   4 系統(tǒng)文件。屬性為讀/寫。
    Volume   8 磁盤驅(qū)動器卷標(biāo)。屬性為只讀。
    Directory 16 文件夾或目錄。屬性為只讀。
    Archive 32 自上次備份后已經(jīng)改變的文件。屬性為讀/寫。
    Alias   64 鏈接或快捷方式。屬性為只讀。
    Compressed 128 壓縮文件。屬性為只讀。
Name 屬性   文件夾名字。
ShortName 屬性   較早的 8.3 命名約定的程序所使用的短名字。
Type 屬性   文件夾類型。
Files 屬性   所有 File 對象組成的 Files 集合，這些 File 對象包含在指定的文件夾中
    ──包括設(shè)置了隱藏和系統(tǒng)文件屬性的那些文件。
Drive 屬性   文件夾所在的驅(qū)動器符號。
IsRootFolder 屬性  文件夾是否是根文件夾。
ParentFolder 屬性  文件夾的父文件夾對象。
SubFolders 屬性   文件夾的子文件夾集合。
Path 屬性   文件夾的路徑。
ShortPath 屬性   較早的 8.3 文件命名約定的程序所使用的短路徑。
Size 屬性   文件夾的大小，以字節(jié)為單位。
DateCreated 屬性  文件夾的創(chuàng)建日期和時間。
DateLastModified 屬性  最后一次修改文件夾的日期和時間。
DateLastAccessed 屬性  最后一次訪問文件夾的日期和時間。
屬性的使用和Drive對象是一樣的，可以用GetFolder獲取一個Folder對象，也可以用FileSystemObject對象的CreateFolder 方法創(chuàng)建一個Folder對象。
2、Folder對象的方法
⑴Copy 方法
語法：object.Copy destination[, overwrite]
作用：把一個指定的文件夾從一個地方復(fù)制到另一個地方。
說明：Copy 方法的作用與FileSystemObject對象的CopyFolder 方法是一樣的，不同在于后者可一次復(fù)制多個文件夾。
⑵Move 方法
語法：object.Move destination
作用：將一個指定的文件夾從一個地方移動到另一個地方。
說明：Move 方法的作用與FileSystemObject.MoveFolder 是一樣的。不同在于后者可一次移動多個文件夾。
⑶Delete 方法
語法：object.Delete force
作用：刪除一個指定的文件夾。
說明：Delete 方法的作用與FileSystemObject.DeleteFolder 是一樣的。
⑷CreateTextFile 方法
語法：object.CreateTextFile(filename[, overwrite[, unicode]])
作用：與FileSystemObject對象的CreateTextFile 方法是一樣的。
示例：
    Set fd = fs.getfolder("c:\tmp")
    Set f = fd.CreateTextFile("testfile.txt", True)
可在C盤tmp文件夾下創(chuàng)建testfile.txt文件。

（五）處理文件
1、獲取文件的信息
可以利用File對象來獲取有關(guān)文件的信息，F(xiàn)ile對象的屬性和Folder的屬性是完全一樣的，只是少了Files 屬性、IsRootFolder 屬性、SubFolders 屬性這3個屬性。這里就不列了。
2、File對象的方法
⑴Copy 方法
⑵Move 方法
⑶Delete 方法
以上三種方法與Folder的是完全類似的，語法也一樣，同樣也可用FileSystemObject對象相應(yīng)的方法代替。
⑷OpenAsTextStream 方法
語法：object.OpenAsTextStream([iomode, [format]])
作用：打開一個指定的文件并返回一個 TextStream 對象，該對象可用來對文件進(jìn)行讀、寫、追加操作。
說明：此方法與FileSystemObject對象的 OpenTextFile 方法相同的功能。參數(shù)也是一致的。

（六）處理文本文件
1、打開或創(chuàng)建文本文件
打開現(xiàn)有的文本文件，可以使用FileSystemObject對象的 OpenTextFile 方法或File對象的OpenAsTextStream 方法。
創(chuàng)建文件可以使用FileSystemObject對象的 CreatTextFile 方法或在OpenTextFile 方法中將iomode參數(shù)設(shè)為ForWriting＝2，create參數(shù)設(shè)為True。
例如：
Set f = fso.OpenTextFile("c:\test1.xls", 2, True)  ‘如果不存在test1.xls將自動創(chuàng)建。
2、讀取文件
打開文件后，將返回一個TextStream 對象，我們可以利用TextStream 對象的屬性及方法來對文件進(jìn)行讀寫操作。
先看TextStream 對象的幾個屬性。
·AtEndOfLine 屬性  文件指針是否正好在行尾標(biāo)記的前面
·AtEndOfStream 屬性  文件指針是否在 TextStream 文件末尾
·Column 屬性   TextStream 文件中當(dāng)前字符位置的列號
·Line 屬性   TextStream 文件中的當(dāng)前行號
利用TextStream 對象讀取文件有三種方法。
·Read 方法
語法：object.Read(characters)
功能：從一個 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)  ‘讀取一個字符
Loop
a.Close
Debug.Print retstring    ‘可看到讀取了第一行的字符
End Sub
·ReadLine 方法
語法：object.ReadLine
功能：從一個 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
功能：讀取整個的 TextStream 文件并返回得到的字符串。
說明：對于大的文件，使用ReadAll方法浪費內(nèi)存資源。應(yīng)使用其它的技術(shù)去輸入一個文件，比如按行讀取文件。
示例：
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
還有兩個輔助讀取的方法：
·Skip 方法
語法：object.Skip(characters)
功能：當(dāng)讀一個 TextStream 文件時跳過指定數(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)      ‘讀取一個字符
    a.Skip (1)     ‘跳過一個字符
Loop
a.Close
Debug.Print retstring                 ‘可看到讀取了第一行的奇數(shù)位的字符
End Sub
·SkipLine 方法
語法：object.SkipLine
功能：當(dāng)讀一個 TextStream 文件時跳過下一行。

3、寫入數(shù)據(jù)到文件
寫入數(shù)據(jù)到文件也有三種方法。
·Write 方法
語法：object.Write(string)
功能：寫一個指定的字符串到一個 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])
功能：寫入一個指定的字符串和換行符到一個 TextStream 文件中。
示例：
f.WriteLine("Hello world!")  ‘寫入字符串，加一個換行符。
·WriteBlankLines 方法
語法：object.WriteBlankLines(lines)
功能：寫入指定數(shù)量的換行符到一個 TextStream 文件中。
示例：
f.WriteBlankLines(3)   ‘相當(dāng)于按3次回車。
4、關(guān)閉文件
利用TextStream 對象的Close方法，上面的示例中已經(jīng)有了，很簡單。

（七）總結(jié)
    從上面的介紹，我們看到使用FileSystemObject對象處理文件、文件夾比使用VBA語句的方法具有更容易存在的特點。這是因為FileSystemObject對象使用了面向?qū)ο蟮恼Z法。另外FileSystemObject對象處理文本文件毫不遜色于VBA語句，非常值得推薦。唯一的問題是不能處理二進(jìn)制文件，微軟在有關(guān)文檔中稱計劃將來支持二進(jìn)制文件，不過應(yīng)該只是計劃而已，呵呵。

之四

四、利用API函數(shù)來處理文件
通過前面三種方法的介紹，你是否已經(jīng)覺得足夠了？是的，前面的方法完全可以應(yīng)付幾乎所有的文件操作。但是為了普及一下API，展示一下API的魅力，最后向大家介紹一下如何利用API函數(shù)來處理文件。另一方面也是本人對API情有獨鐘，為她做一下廣告，呵呵。
大家對API的強大也是有所耳聞了，在文件操作方面，API自然毫不遜色。
說明：為了文章簡潔，我們先給出API函數(shù)的名稱及功能，其完整的聲明及常數(shù)就不再一一細(xì)訴，只在示例中給出其完整用法。
（一）處理驅(qū)動器及目錄
下面是windows中提供的對于目錄進(jìn)行操作的API函數(shù)及其功能:
CreateDirectory,CreateDirectoryEx 創(chuàng)建一個新目錄
GetCurrentDirectory    在一個緩沖區(qū)中裝載當(dāng)前目錄
GetDiskFreeSpace,GetDiskFreeSpaceEx 獲取與一個磁盤的組織有關(guān)的信息，以及了解剩余空間的容量
GetDriveType   判斷一個磁盤驅(qū)動器的類型
GetFullPathName 獲取指定文件的完整路徑名
GetLogicalDrives 判斷系統(tǒng)中存在哪些邏輯驅(qū)動器字母
GetLogicalDriveStrings 獲取一個字串，其中包含了當(dāng)前所有邏輯驅(qū)動器的根驅(qū)動器路徑
GetSystemDirectory 這個函數(shù)能取得Windows系統(tǒng)目錄（System目錄）的完整路徑名。在這個目錄中，包含了所有必要的系統(tǒng)文件。根據(jù)微軟的標(biāo)準(zhǔn)，其他定制控件和一些共享組件也可放到這個目錄。通常應(yīng)避免在這個目錄里創(chuàng)建文件。在網(wǎng)絡(luò)環(huán)境中，往往需要管理員權(quán)限才可對這個目錄進(jìn)行寫操作
GetTempPath   獲取為臨時文件指定的路徑
GetVolumeInformation 獲取與一個磁盤卷有關(guān)的信息
GetWindowsDirectory 這個函數(shù)能獲取Windows目錄的完整路徑名。在這個目錄里，保存了大多數(shù)windows應(yīng)用程序文件及初始化文件
RemoveDirectory 刪除指定目錄
SetCurrentDirectory 設(shè)置當(dāng)前目錄
SetVolumeLabel   設(shè)置一個磁盤的卷標(biāo)（Label）
下面通過幾個例子來詳細(xì)的了解一下其中主要的幾個函數(shù)及其用法：
1、GetLogicalDrives
作用：判斷系統(tǒng)中存在哪些邏輯驅(qū)動器字母
聲明：Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" () As Long
說明：此函數(shù)的返回值類型為Long，這個結(jié)構(gòu)中的二進(jìn)制位標(biāo)志著存在哪些驅(qū)動器。其中，位0設(shè)為1表示驅(qū)動器A:存在于系統(tǒng)中；位1設(shè)為1表示存在B:驅(qū)動器；以次類推
示例：
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)制運算，將返回值轉(zhuǎn)換成字符。如果你的機上有C,D,E,F,G,H這幾個驅(qū)動器，那么LDs的值就是252，轉(zhuǎn)成二進(jìn)制為11111100，從右往左，依次代表A,B,C,D,...，為0的說明沒有此驅(qū)動器字母。大家可以自己試一試。
2、GetDriveType
作用：判斷一個磁盤驅(qū)動器的類型
聲明：Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
說明：此函數(shù)的返回值類型為Long，如驅(qū)動器不能識別，則返回零。如指定的目錄不存在，則返回1。如執(zhí)行成功，則用下述任何一個常數(shù)指定驅(qū)動器類型：DRIVE_REMOVABLE（表示磁盤可以從驅(qū)動器上移走，通常是軟驅(qū)）， DRIVE_FIXED（磁盤不能從驅(qū)動器上移走，通常為本地硬盤）， DRIVE_REMOTE（驅(qū)動器是遠(yuǎn)程網(wǎng)絡(luò)驅(qū)動器）， DRIVE_CDROM（驅(qū)動器是CD-ROM驅(qū)動器）或 DRIVE_RAMDISK（驅(qū)動器是RAM驅(qū)動器）
參數(shù)為String類型，包含了驅(qū)動器根目錄路徑的一個字串
此函數(shù)的功能與FSO的Drive對象的DriveType屬性是一樣的。
示例：
‘定義常數(shù)變量
Private Const DRIVE_CDROM = 5       ‘表示光盤驅(qū)動器
Private Const DRIVE_FIXED = 3       ‘表示硬盤驅(qū)動器
Private Const DRIVE_RAMDISK = 6     ‘表示RAM驅(qū)動器
Private Const DRIVE_REMOTE = 4      ‘表示網(wǎng)絡(luò)驅(qū)動器
Private Const DRIVE_REMOVABLE = 2   ‘表示軟盤驅(qū)動器

Private Sub Get_DriveType()
Dim temp As Long
temp = GetDriveType("d:\")    ‘取的d:盤驅(qū)動器類型
Select Case temp
    Case DRIVE_CDROM
      MsgBox "DRIVE_CDROM: 光盤驅(qū)動器"
    Case DRIVE_FIXED
      MsgBox "DRIVE_FIXED: 硬盤驅(qū)動器"
    Case DRIVE_RAMDISK
      MsgBox "DRIVE_RAMDISK: RAM驅(qū)動器"
    Case DRIVE_REMOTE
      MsgBox "DRIVE_REMOTE: 網(wǎng)絡(luò)驅(qū)動器"
    Case DRIVE_REMOVABLE
      MsgBox "DRIVE_REMOVABLE: 軟盤驅(qū)動器"
End Select
End Sub
3、GetDiskFreeSpaceEx
作用：獲取與一個磁盤的組織以及剩余空間容量有關(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ù)的返回值類型為Long，非零表示成功，零表示失敗。會設(shè)置GetLastError.
在采用FAT16格式的windows95系統(tǒng)中，如一個驅(qū)動器（分區(qū)）的容量超過了2GB，則不應(yīng)使用這個函數(shù)。此時，這個函數(shù)能識別的最大分區(qū)容量只有2GB
參數(shù)說明：
lpRootPathName String，不包括卷名的磁盤根路徑名
lpFreeBytesAvailableToCaller LARGE_INTEGER，指定一個變量，用于容納調(diào)用者可用的字節(jié)數(shù)量
lpTotalNumberOfBytes LARGE_INTEGER，指定一個變量，用于容納磁盤上的總字節(jié)數(shù)
lpTotalNumberOfFreeBytes LARGE_INTEGER，指定一個變量，用于容納磁盤上可用的字節(jié)數(shù)
LARGE_INTEGER結(jié)構(gòu)用來代表一個64位帶符號的整數(shù)值，它的定義如下：
Type LARGE_INTEGER ‘ 8 Bytes
　lowpart As Long
　highpart As Long
End Type
其中l(wèi)owpart為 Long，指定低32位,highpart 為 Long，指定高32位。
示例：雖然此函數(shù)能識別的最大分區(qū)容量只有2GB，但通過調(diào)整，對大于2G的仍然能得出正確容量。以下的調(diào)整公式是本人通過逆向推算出來的，至于其中的原理也不是很清楚，大家可一測試一下。
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) ‘計算容量
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) ‘計算
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)建一個新目錄
聲明：
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ù)的返回值類型為Long，非零表示成功，零表示失敗。會設(shè)置GetLastError
參數(shù)說明：
lpTemplateDirectory String，指定一個模板目錄的名字，從中復(fù)制默認(rèn)屬性（比如目錄中文件的默認(rèn)壓縮方式）。如設(shè)為vbNullString，則表示不使用模板
lpNewDirectory String，新目錄的名字
lpSecurityAttributes SECURITY_ATTRIBUTES，這個結(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
作用：移除一個目錄
聲明：Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
說明：此函數(shù)的返回值類型為Long，非零表示成功，零表示失敗。會設(shè)置GetLastError.
在調(diào)用這個函數(shù)前，目錄必須為空
參數(shù)說明：
lpPathName 為String類型，要刪除的那個目錄的名字
示例：
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ù)的返回值類型為Long，非零表示成功，零表示失敗。會設(shè)置GetLastError
參數(shù)說明：
LpPathName String，新當(dāng)前目錄的路徑
示例：
SetCurrentDirectory "d:\" ‘設(shè)置D:為當(dāng)前目錄
7、GetSystemDirectory
作用：這個函數(shù)能取得Windows系統(tǒng)目錄（System目錄）的完整路徑名。在這個目錄中，包含了所有必要的系統(tǒng)文件。根據(jù)微軟的標(biāo)準(zhǔn)，其他定制控件和一些共享組件也可放到這個目錄。通常應(yīng)避免在這個目錄里創(chuàng)建文件。在網(wǎng)絡(luò)環(huán)境中，往往需要管理員權(quán)限才可對這個目錄進(jìn)行寫操作
聲明：Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
說明：此函數(shù)的返回值類型為Long，裝載到lpBuffer緩沖區(qū)的字符數(shù)量。如lpBuffer不夠大，不能容下文件名，則返回要求的緩沖區(qū)長度
參數(shù)說明：
lpBuffer String，用于裝載系統(tǒng)目錄路徑名的一個字串緩沖區(qū)。它應(yīng)事先初始化成nSize+1個字符的長度。通常至少要為這個緩沖區(qū)分配MAX_PATH個字符的長度
nSize Long，lpBuffer字串的最大長度
示例：
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中提供的對于文件進(jìn)行操作的API函數(shù)及其功能:

CloseHandle   關(guān)閉一個內(nèi)核對象。其中包括文件、文件映射、進(jìn)程、線程、安全和同步對象等。
CompareFileTime 根據(jù)FILETIME結(jié)構(gòu)的信息，對比兩個文件的時間
CopyFile   復(fù)制文件。注意：只能復(fù)制文件，而不能復(fù)制目錄
CreateFile   這是一個全功能的函數(shù)，可打開和創(chuàng)建文件、管道、郵槽、通信服務(wù)、設(shè)備以及控制臺
DeleteFile   刪除指定文件
FindClose   關(guān)閉由FindFirstFile函數(shù)創(chuàng)建的一個搜索句柄
FindFirstFile   根據(jù)文件名查找文件
FindNextFile   根據(jù)調(diào)用FindFirstFile函數(shù)時指定的一個文件名查找下一個文件
FlushFileBuffers 針對指定的文件句柄，刷新內(nèi)部文件緩沖區(qū)
GetBinaryType   判斷文件是否可以執(zhí)行
GetFileAttributes 判斷指定文件的屬性
GetFileInformationByHandle 該函數(shù)能夠獲取上面所有函數(shù)所能夠獲取的信息，如大小、屬性等，同時還包括一些其他地方無法獲取的信息，比如：文件卷標(biāo)、索引和鏈接信息。
GetFileSize   判斷文件長度
GetFileTime   取得指定文件的時間信息，有三個文件時間：創(chuàng)建時間、最后訪問時間、最后寫時間。
GetFileType   在給出文件句柄的前提下，判斷文件類型
GetFileVersionInfo 從支持版本標(biāo)記的一個模塊里獲取文件版本信息
GetFileVersionInfoSize 針對包含了版本資源的一個文件，判斷容納文件版本信息需要一個多大的緩沖區(qū)
GetFullPathName 獲取文件路徑，該函數(shù)獲取文件的完整路徑名。注意：只有當(dāng)該文件在當(dāng)前目錄下，
   結(jié)果才正確。如果要得到真正的路徑。應(yīng)該用GetModuleFileName函數(shù)。
GetShortPathName 獲取指定文件的短路徑名
GetTempFileName 這個函數(shù)包含了一個臨時文件的名字，它可由應(yīng)用程序使用
GetTempPath   獲取Windows臨時目錄路徑
lclose    關(guān)閉指定的文件，請參考CloseHandle函數(shù)，了解進(jìn)一步的情況
lcreat    創(chuàng)建一個文件。如文件已經(jīng)存在，就會將其縮短成零長度，并將其打開，以便讀寫
llseek    設(shè)置文件中進(jìn)行讀寫的當(dāng)前位置。該函數(shù)與vba的seek語句類似。
LockFile   在windows中，文件可用共享模式打開——在這種情況下，多個進(jìn)程可同時訪問該文件。
   利用這個函數(shù)，要對文件進(jìn)行讀寫的一個應(yīng)用程序可將文件的某一部分鎖定起來，使其
   不能由其他應(yīng)用程序訪問。這樣便避免了同時讀寫時發(fā)生的沖突
LockFileEx   與LockFile相似，只是它提供了更多的功能
lopen    以二進(jìn)制模式打開指定的文件
lread    將文件中的數(shù)據(jù)讀入內(nèi)存緩沖區(qū)
lwrite    將數(shù)據(jù)從內(nèi)存緩沖區(qū)寫入一個文件
MoveFile, MoveFileEx 移動文件。如dwFlags設(shè)為零，則MoveFile完全等價于MoveFileEx
OpenFile   這個函數(shù)能執(zhí)行大量不同的文件操作。和這個函數(shù)相比，請優(yōu)先考慮CreateFile函數(shù)
   （它能打開命名管道和控制Unicode文件名，同時不受128個字符的路徑名稱的限制）
ReadFile   從文件中讀出數(shù)據(jù)。與lread函數(shù)相比，這個函數(shù)要明顯靈活的多。該函數(shù)能夠操作
   通信設(shè)備、管道、套接字以及郵槽
ReadFileEx   與ReadFile相似，只是它只能用于異步讀操作，并包含了一個完整的回調(diào)
SearchPath   查找指定文件
SetEndOfFile   針對一個打開的文件，將當(dāng)前文件位置設(shè)為文件末尾
SetFileAttributes 設(shè)置文件屬性
SetFilePointer   在一個文件中設(shè)置當(dāng)前的讀寫位置
SetFileTime   設(shè)置文件的創(chuàng)建、訪問及上次修改時間
UnlockFile   解除對一個文件的鎖定
UnlockFileEx   解除對一個文件的鎖定
WriteFile   將數(shù)據(jù)寫入一個文件。該函數(shù)比lwrite函數(shù)要靈活的多。也可將這個函數(shù)應(yīng)用于對
   通信設(shè)備、管道、套接字以及郵槽的處理
WriteFileEx   與WriteFile類似，只是它只能用于異步寫操作，并包括了一個完整的回調(diào)

文件的壓縮和解壓縮

LZOpenFile   打開壓縮文件以讀取
LZSeek    查找壓縮文件中的一個位置
LZRead    讀一個壓縮文件
LZClose   關(guān)閉一個壓縮文件
LZCopy    復(fù)制壓縮文件并在處理過程中展開
GetExpandedName 從壓縮文件中返回文件名稱。

下面通過幾個例子來詳細(xì)的了解一下其中主要的幾個函數(shù)及其用法：

1、CreateFile

作用：這是一個全功能的例程，可打開和創(chuàng)建文件、管道、郵槽、通信服務(wù)、設(shè)備以及控制臺

聲明：
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ù)的返回值類型為Long，如執(zhí)行成功，則返回文件句柄。INVALID_HANDLE_VALUE表示出錯，會設(shè)置GetLastError。即使函數(shù)成功，但若文件存在，且指定了CREATE_ALWAYS 或 OPEN_ALWAYS，GetLastError也會設(shè)為ERROR_ALREADY_EXISTS

打開一個通信端口時（如COM1），無論如何都要設(shè)置成 OPEN_EXISTING。

這個函數(shù)代替了lOpen 和 lCreate函數(shù)，應(yīng)該是我們的首選

參數(shù)說明：

·lpFileName   String，要打開的文件的名字
·dwDesiredAccess Long，如果為 GENERIC_READ 表示允許對設(shè)備進(jìn)行讀訪問；如果為 GENERIC_WRITE 表示允許對設(shè)備進(jìn)行寫訪問（可組合使用）；如果為零，表示只允許獲取與一個設(shè)備有關(guān)的信息
·dwShareMode   Long，零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允許對文件進(jìn)行共享訪問
·lpSecurityAttributes SECURITY_ATTRIBUTES，指向一個SECURITY_ATTRIBUTES結(jié)構(gòu)的指針，定義了文件的安全特性（如果操作系統(tǒng)支持的話）

·dwCreationDisposition
Long，下述常數(shù)之一：
CREATE_NEW   創(chuàng)建文件；如文件存在則會出錯
CREATE_ALWAYS   創(chuàng)建文件，會改寫前一個文件
OPEN_EXISTING   文件必須已經(jīng)存在。由設(shè)備提出要求
OPEN_ALWAYS   如文件不存在則創(chuàng)建它
TRUNCATE_EXISTING 講現(xiàn)有文件縮短為零長度

·dwFlagsAndAttributes
Long，一個或多個下述常數(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)不得推遲對文件的寫操作
FILE_FLAG_OVERLAPPED   允許對文件進(jìn)行重疊操作
FILE_FLAG_NO_BUFFERING   禁止對文件進(jìn)行緩沖處理。文件只能寫入磁盤卷的扇區(qū)塊
FILE_FLAG_RANDOM_ACCESS 針對隨機訪問對文件緩沖進(jìn)行優(yōu)化
FILE_FLAG_SEQUENTIAL_SCAN 針對連續(xù)訪問對文件緩沖進(jìn)行優(yōu)化
FILE_FLAG_DELETE_ON_CLOSE 關(guān)閉了上一次打開的句柄后，將文件刪除。特別適合臨時文件
也可在Windows NT下組合使用下述常數(shù)標(biāo)記：
SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION， SECURITY_IMPERSONATION， SECURITY_DELEGATION， SECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY

·hTemplateFile Long，如果不為零，則指定一個文件句柄。新文件將從這個文件中復(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)建一個文件。如文件已經(jīng)存在，就會將其縮短成零長度，并將其打開，以便讀寫

聲明：Declare Function lcreat Lib "kernel32" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Long) As Long

說明：此函數(shù)的返回值類型為Long，如執(zhí)行成功，返回打開文件的句柄。如果出錯，則返回HFILE_ERROR

該函數(shù)會打開已由其他應(yīng)用程序打開的文件，所以使用它時要小心。win32的CreateFile函數(shù)已取代了這個函數(shù)。這個函數(shù)與vb的open語句作用相同

參數(shù)說明：

lpPathName String，欲創(chuàng)建的文件的名字
iAttribute Long，下述值之一：

0——文件能夠讀寫
1——創(chuàng)建只讀文件
2——創(chuàng)建隱藏文件
3——創(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ù)的返回值類型為Long，如執(zhí)行成功，返回打開文件的句柄。HFILE_ERROR表示出錯。會設(shè)置GetLastError

參數(shù)說明：

lpPathName String，欲打開文件的名字
iReadWrite Long，訪問模式和共享模式常數(shù)的一個組合，如下所示：
1、訪問模式
READ 打開文件，讀取其中的內(nèi)容
READ_WRITE 打開文件，對其進(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

作用：取得指定文件的時間信息

聲明：Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long

說明：Long，非零表示成功，零表示失敗。會設(shè)置GetLastError

如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以設(shè)置為零（用ByVal As Long）。這個函數(shù)返回的文件時間采用UTC格式

參數(shù)說明：
hFile Long，文件的句柄
lpCreationTime FILETIME，用于裝載文件的創(chuàng)建時間
lpLastAccessTime FILETIME，用于裝載文件上一次訪問的時間（FAT文件系統(tǒng)不支持這一特性）
lpLastWriteTime FILETIME，用于裝載文件上一次修改的時間

示例：

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)信息

以上代碼獲取的時間信息是Long型的，還需要時間轉(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，非零表示成功，零表示失敗。會設(shè)置GetLastError

參數(shù)說明：

lpExistingFileName String，源文件名
lpNewFileName String，目標(biāo)文件名
bFailIfExists Long，如果設(shè)為TRUE（非零），那么一旦目標(biāo)文件已經(jīng)存在，則函數(shù)調(diào)用會失敗。否則目標(biāo)文件被改寫

示例：
CopyFile "c:\test1.txt", "c:\test2.txt", 1

以上代碼將c:\test1.txt 拷貝到c:\test2.txt，完整的示例見附件。

6、MoveFile, MoveFileEx

作用：移動文件。如dwFlags設(shè)為零，則MoveFile完全等價于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，非零表示成功，零表示失敗。會設(shè)置GetLastError

這兩個函數(shù)通常不能將文件從一個卷移動到另一個卷。但如設(shè)置了MOVEFILE_COPY_ALLOWED標(biāo)記，MoveFileEx可以做到這一點.

參數(shù)說明：

lpExistingFileName String，欲移動的文件名
lpNewFileName String，新文件名
dwFlags Long，一個或多個下述常數(shù)
MOVEFILE_REPLACE_EXISTING 如目標(biāo)文件存在，則將其替換
MOVEFILE_COPY_ALLOWED 如移動到一個不同的卷，則復(fù)制文件并刪除原來的文件
MOVEFILE_DELAY_UNTIL_REBOOT 移動操作在系統(tǒng)下次重新啟動時正式進(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" ‘移動文件
　MoveFileEx "d:\test1.txt", "c:\test.txt", MOVEFILE_COPY_ALLOWED ‘再一次移動

以上代碼實現(xiàn)了文件的移動，兩次移動後，文件不變

7、DeleteFile

作用：刪除指定文件

聲明：Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

說明：Long，非零表示成功，零表示失敗。會設(shè)置GetLastError

與vba的kill語句相似，在windows 95下使用這個函數(shù)要小心——即使文件當(dāng)前正由一個應(yīng)用程序打開，該函數(shù)也會將其刪除.

參數(shù)說明：
lpFileName String，欲刪除文件的名字

示例：

DeleteFile "c:\test.txt" ‘刪除c:\test.txt文件

完整的示例見附件。

8、ReadFile

作用：從文件中讀出數(shù)據(jù)。與lread函數(shù)相比，這個函數(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，非零表示成功，零表示失敗。會設(shè)置GetLastError。如啟動的是一次異步讀操作，則函數(shù)會返回零值，并將ERROR_IO_PENDING設(shè)置成GetLastError的結(jié)果。如結(jié)果不是零值，但讀入的字節(jié)數(shù)小于nNumberOfBytesToRead參數(shù)指定的值，表明早已抵達(dá)了文件的結(jié)尾

參數(shù)：
hFile ---- Long，文件的句柄
lpBuffer --- Any，用于保存讀入數(shù)據(jù)的一個緩沖區(qū)
nNumberOfBytesToRead - Long，要讀入的字符數(shù)
lpNumberOfBytesRead - Long，從文件中實際讀入的字符數(shù)
lpOverlapped --- OVERLAPPED，如文件打開時指定了FILE_FLAG_OVERLAPPED，那么必須用這個參數(shù)引用一個特殊的結(jié)構(gòu)。那個結(jié)構(gòu)定義了一次異步讀取操作。否則，應(yīng)將這個參數(shù)設(shè)為NULL（將函數(shù)聲明成ByVal As Long，并傳遞零值）

示例：完整的示例見附件。

9、WriteFile

作用：將數(shù)據(jù)寫入一個文件。該函數(shù)比lwrite函數(shù)要靈活的多。也可將這個函數(shù)應(yīng)用于對通信設(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（非零）表示成功，否則返回零。會設(shè)置GetLastError

參數(shù)：
hFile --- Long，一個文件的句柄
lpBuffer --- Any，要寫入的一個數(shù)據(jù)緩沖區(qū)
nNumberOfBytesToWrite - Long，要寫入數(shù)據(jù)的字節(jié)數(shù)量。如寫入零字節(jié)，表示什么都不寫入，但會更新文件的“上一次修改時間”。針對位于遠(yuǎn)程系統(tǒng)的命名管道，限制在65535個字節(jié)以內(nèi)

lpNumberOfBytesWritten - Long，實際寫入文件的字節(jié)數(shù)量

lpOverlapped --- OVERLAPPED，倘若在指定FILE_FLAG_OVERLAPPED的前提下打開文件，這個參數(shù)就必須引用一個特殊的結(jié)構(gòu)。那個結(jié)構(gòu)定義了一次異步寫操作。否則，該參數(shù)應(yīng)置為空（將聲明變?yōu)锽yVal As Long，并傳遞零值）

示例：完整的示例見附件。

10、SHFileOperation

作用：此函數(shù)的功能很強大，能對文件或文件夾進(jìn)行復(fù)制、移動、重命名、刪除的全部操作。

聲明：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       ‘對文件的操作指令
        pFrom As String     ‘源文件或路徑
        pTo As String       ‘目的文件或路徑
        fFlags As Integer   ‘操作標(biāo)志
        fAnyOperationsAborted As Long
        hNameMappings As Long
        lpszProgressTitle As String
End Type

示例：見附件。

（三）總結(jié)

通過以上的介紹，我們可以看到API在文件操作方面功能十分強大，能夠完成一些前面方法所不能完成的任務(wù)。FileSystemObject對象模型的內(nèi)部可能就是用API寫的，即便不是我們也可以用API寫出一個FSO類來。API是一個巨大的寶庫，當(dāng)你為實現(xiàn)某個功能而愁眉不展的時候，查查API可能就能找到滿意的答案。

寫的這么多，希望對大家有所幫助，至少操作文件是沒有什么問題了。

附件：API函數(shù)示例，代碼有注釋，應(yīng)該都看的懂，可以按F8逐行運行，查看結(jié)果。

圖片點擊可在新窗口打開查看點擊瀏覽該文件