VBA操作文件四大方法之之四-API函數
（一）處理驅動器及目錄
CreateDirectory,CreateDirectoryEx 創建一個新目錄
GetCurrentDirectory 在一個緩衝區中裝載當前目錄
GetDiskFreeSpace,GetDiskFreeSpaceEx 獲取與一個磁盤的組織有關的信息，以及瞭解剩餘空間的容量
GetDriveType 判斷一個磁盤驅動器的類型
GetFullPathName 獲取指定文件的完整路徑名
GetLogicalDrives 判斷系統中存在哪些邏輯驅動器字母
GetLogicalDriveStrings 獲取一個字串，其中包含了當前所有邏輯驅動器的根驅動器路徑
GetSystemDirectory 這個函數能取得Windows系統目錄（System目錄）的完整路徑名。在這個目錄中，包含了所有必要的系統文件。根據微軟的標準，其他定製控件和一 些共享組件也可放到這個目錄。通常應避免在這個目錄裏創建文件。在網絡環境中，往往需要管理員權限纔可對這個目錄進行寫操作
GetTempPath 獲取爲臨時文件指定的路徑
GetVolumeInformation 獲取與一個磁盤卷有關的信息
GetWindowsDirectory 這個函數能獲取Windows目錄的完整路徑名。在這個目錄裏，保存了大多數windows應用程序文件及初始化文件
RemoveDirectory 刪除指定目錄
SetCurrentDirectory 設置當前目錄
SetVolumeLabel 設置一個磁盤的卷標（Label）
1、GetLogicalDrives
2、GetDriveType
3、GetDiskFreeSpaceEx
4、CreateDirectory, CreateDirectoryEx
5、RemoveDirectory
6、SetCurrentDirectory
7、GetSystemDirectory
（二）處理文件
下面是windows中提供的對於文件進行操作的API函數及其功能:
CloseHandle 關閉一個內核對象。其中包括文件、文件映射、進程、線程、安全和同步對象等。
CompareFileTime 根據FILETIME結構的信息，對比兩個文件的時間
CopyFile 複製文件。注意：只能複製文件，而不能複製目錄
CreateFile 這是一個全功能的函數，可打開和創建文件、管道、郵槽、通信服務、設備以及控制檯
DeleteFile 刪除指定文件
FindClose 關閉由FindFirstFile函數創建的一個搜索句柄
FindFirstFile 根據文件名查找文件
FindNextFile 根據調用FindFirstFile函數時指定的一個文件名查找下一個文件
FlushFileBuffers 針對指定的文件句柄，刷新內部文件緩衝區
GetBinaryType 判斷文件是否可以執行
GetFileAttributes 判斷指定文件的屬性
GetFileInformationByHandle 該函數能夠獲取上面所有函數所能夠獲取的信息，如大小、屬性等，同時還包括一些其他地方無法獲取的信息，比如：文件卷標、索引和鏈接信息。
GetFileSize 判斷文件長度
GetFileTime 取得指定文件的時間信息，有三個文件時間：創建時間、最後訪問時間、最後寫時間。
GetFileType 在給出文件句柄的前提下，判斷文件類型
GetFileVersionInfo 從支持版本標記的一個模塊裏獲取文件版本信息
GetFileVersionInfoSize 針對包含了版本資源的一個文件，判斷容納文件版本信息需要一個多大的緩衝區
GetFullPathName 獲取文件路徑，該函數獲取文件的完整路徑名。注意：只有當該文件在當前目錄下，
結果才正確。如果要得到真正的路徑。應該用GetModuleFileName函數。
GetShortPathName 獲取指定文件的短路徑名
GetTempFileName 這個函數包含了一個臨時文件的名字，它可由應用程序使用
GetTempPath 獲取Windows臨時目錄路徑
lclose 關閉指定的文件，請參考CloseHandle函數，瞭解進一步的情況
lcreat 創建一個文件。如文件已經存在，就會將其縮短成零長度，並將其打開，以便讀寫
llseek 設置文件中進行讀寫的當前位置。該函數與vba的seek語句類似。
LockFile 在windows中，文件可用共享模式打開——在這種情況下，多個進程可同時訪問該文件。
利用這個函數，要對文件進行讀寫的一個應用程序可將文件的某一部分鎖定起來，使其
不能由其他應用程序訪問。這樣便避免了同時讀寫時發生的衝突
LockFileEx 與LockFile相似，只是它提供了更多的功能
lopen 以二進制模式打開指定的文件
lread 將文件中的數據讀入內存緩衝區
lwrite 將數據從內存緩衝區寫入一個文件
MoveFile, MoveFileEx 移動文件。如dwFlags設爲零，則MoveFile完全等價於MoveFileEx
OpenFile 這個函數能執行大量不同的文件操作。和這個函數相比，請優先考慮CreateFile函數
（它能打開命名管道和控制Unicode文件名，同時不受128個字符的路徑名稱的限制）
ReadFile 從文件中讀出數據。與lread函數相比，這個函數要明顯靈活的多。該函數能夠操作
通信設備、管道、套接字以及郵槽
ReadFileEx 與ReadFile相似，只是它只能用於異步讀操作，幷包含了一個完整的回調
SearchPath 查找指定文件
SetEndOfFile 針對一個打開的文件，將當前文件位置設爲文件末尾
SetFileAttributes 設置文件屬性
SetFilePointer 在一個文件中設置當前的讀寫位置
SetFileTime 設置文件的創建、訪問及上次修改時間
UnlockFile 解除對一個文件的鎖定
UnlockFileEx 解除對一個文件的鎖定
WriteFile 將數據寫入一個文件。該函數比lwrite函數要靈活的多。也可將這個函數應用於對
通信設備、管道、套接字以及郵槽的處理
WriteFileEx 與WriteFile類似，只是它只能用於異步寫操作，幷包括了一個完整的回調
1、CreateFile
2、lcreat
3、lopen
4、GetFileTime
5、CopyFile
6、MoveFile, MoveFileEx
7、DeleteFile
8、ReadFile
9、WriteFile
10、SHFileOperation
四、利用API函數來處理文件
通過前面三種方法的介紹，你是否已經覺得足夠了？是的，前面的方法完全可以應付幾乎所有的文件操作。但是爲了普及一下API，展示一下API的魅力，最後向大家介紹一下如何利用API函數來處理文件。另一方面也是本人對API情有獨鍾，爲她做一下廣告，呵呵。
大家對API的強大也是有所耳聞了，在文件操作方面，API自然毫不遜色。
說明：爲了文章簡潔，我們先給出API函數的名稱及功能，其完整的聲明及常數就不再一一細訴，只在示例中給出其完整用法。
（一）處理驅動器及目錄
下面是windows中提供的對於目錄進行操作的API函數及其功能:
CreateDirectory,CreateDirectoryEx 創建一個新目錄
GetCurrentDirectory 在一個緩衝區中裝載當前目錄
GetDiskFreeSpace,GetDiskFreeSpaceEx 獲取與一個磁盤的組織有關的信息，以及瞭解剩餘空間的容量
GetDriveType 判斷一個磁盤驅動器的類型
GetFullPathName 獲取指定文件的完整路徑名
GetLogicalDrives 判斷系統中存在哪些邏輯驅動器字母
GetLogicalDriveStrings 獲取一個字串，其中包含了當前所有邏輯驅動器的根驅動器路徑
GetSystemDirectory 這個函數能取得Windows系統目錄（System目錄）的完整路徑名。在這個目錄中，包含了所有必要的系統文件。根據微軟的標準，其他定製控件和一 些共享組件也可放到這個目錄。通常應避免在這個目錄裏創建文件。在網絡環境中，往往需要管理員權限纔可對這個目錄進行寫操作
GetTempPath 獲取爲臨時文件指定的路徑
GetVolumeInformation 獲取與一個磁盤卷有關的信息
GetWindowsDirectory 這個函數能獲取Windows目錄的完整路徑名。在這個目錄裏，保存了大多數windows應用程序文件及初始化文件
RemoveDirectory 刪除指定目錄
SetCurrentDirectory 設置當前目錄
SetVolumeLabel 設置一個磁盤的卷標（Label）
下面通過幾個例子來詳細的瞭解一下其中主要的幾個函數及其用法：
1、GetLogicalDrives
作用：判斷系統中存在哪些邏輯驅動器字母
聲明：Declare Function GetLogicalDrives Lib "kernel32" Alias "GetLogicalDrives" () As Long
說明：此函數的返回值類型爲Long，這個結構中的二進制位標誌着存在哪些驅動器。其中，位0設爲1表示驅動器A:存在於系統中；位1設爲1表示存在B:驅動器；以次類推
示例：
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
上面的示例中，我們通過二進制運算，將返回值轉換成字符。如果你的機上有C,D,E,F,G,H這幾個驅動器，那麼LDs的值就是252，轉成二進制爲11111100，從右往左，依次代表A,B,C,D,...，爲0的說明沒有此驅動器字母。大家可以自己試一試。
2、GetDriveType
作用：判斷一個磁盤驅動器的類型
聲明：Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
說明：此函數的返回值類型爲Long，如驅動器不能識別，則返回零。如指定的目錄不存在，則返回1。如執行成功，則用下述任何一個常數指 定驅動器類型：DRIVE_REMOVABLE（表示磁盤可以從驅動器上移走，通常是軟驅）， DRIVE_FIXED（磁盤不能從驅動器上移走，通常爲本地硬盤）， DRIVE_REMOTE（驅動器是遠程網絡驅動器）， DRIVE_CDROM（驅動器是CD-ROM驅動器） 或 DRIVE_RAMDISK（驅動器是RAM驅動器）
參數爲String類型，包含了驅動器根目錄路徑的一個字串
此函數的功能與FSO的Drive對象的DriveType屬性是一樣的。
示例：
'定義常數變量
Private Const DRIVE_CDROM = 5 '表示光盤驅動器
Private Const DRIVE_FIXED = 3 '表示硬盤驅動器
Private Const DRIVE_RAMDISK = 6 '表示RAM驅動器
Private Const DRIVE_REMOTE = 4 '表示網絡驅動器
Private Const DRIVE_REMOVABLE = 2 '表示軟盤驅動器
Private Sub Get_DriveType()
Dim temp As Long
temp = GetDriveType("d:\") '取的d:盤驅動器類型
Select Case temp
Case DRIVE_CDROM
MsgBox "DRIVE_CDROM: 光盤驅動器"
Case DRIVE_FIXED
MsgBox "DRIVE_FIXED: 硬盤驅動器"
Case DRIVE_RAMDISK
MsgBox "DRIVE_RAMDISK: RAM驅動器"
Case DRIVE_REMOTE
MsgBox "DRIVE_REMOTE: 網絡驅動器"
Case DRIVE_REMOVABLE
MsgBox "DRIVE_REMOVABLE: 軟盤驅動器"
End Select
End Sub
3、GetDiskFreeSpaceEx
作用：獲取與一個磁盤的組織以及剩餘空間容量有關的信息
聲明：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
說明：此函數的返回值類型爲Long，非零表示成功，零表示失敗。會設置GetLastError.
在採用FAT16格式的windows95系統中，如一個驅動器（分區）的容量超過了2GB，則不應使用這個函數。此時，這個函數能識別的最大分區容量只有2GB
參數說明：
lpRootPathName String，不包括卷名的磁盤根路徑名
lpFreeBytesAvailableToCaller LARGE_INTEGER，指定一個變量，用於容納調用者可用的字節數量
lpTotalNumberOfBytes LARGE_INTEGER，指定一個變量，用於容納磁盤上的總字節數
lpTotalNumberOfFreeBytes LARGE_INTEGER，指定一個變量，用於容納磁盤上可用的字節數
LARGE_INTEGER結構用來代表一個64位帶符號的整數值，它的定義如下：
Type LARGE_INTEGER ' 8 Bytes
lowpart As Long
highpart As Long
End Type
其中lowpart爲 Long，指定低32位,highpart 爲 Long，指定高32位。
示例：雖然此函數能識別的最大分區容量只有2GB，但通過調整，對大於2G的仍然能得出正確容量。以下的調整公式是本人通過逆向推算出來的，至於其中的原理也不是很清楚，大家可一測試一下。
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) + "字節" + 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) + "字節" + 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
作用：創建一個新目錄
聲明：
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)
說明：此函數的返回值類型爲Long，非零表示成功，零表示失敗。會設置GetLastError
參數說明：
lpTemplateDirectory String，指定一個模板目錄的名字，從中複製默認屬性（比如目錄中文件的默認壓縮方式）。如設爲vbNullString，則表示不使用模板
lpNewDirectory String，新目錄的名字
lpSecurityAttributes SECURITY_ATTRIBUTES，這個結構定義了目錄的安全特性——如果操作系統支持的話
示例：
Private Sub Create_Directory()
Dim Security As SECURITY_ATTRIBUTES
'創建目錄
Ret& = CreateDirectory("C:\Directory", Security)
'若返回0，則失敗。
If Ret& = 0 Then MsgBox "Error : 創建失敗!", vbCritical + vbOKOnly
End Sub
5、RemoveDirectory
作用：移除一個目錄
聲明：Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
說明：此函數的返回值類型爲Long，非零表示成功，零表示失敗。會設置GetLastError.
在調用這個函數前，目錄必須爲空
參數說明：
lpPathName 爲String類型，要刪除的那個目錄的名字
示例：
Private Sub Remove_Directory()
Dim Security As SECURITY_ATTRIBUTES
CreateDirectoryEx "C:\Windows", "C:\Temp", Security
'移除目錄
RemoveDirectory "C:\Temp"
End Sub
6、SetCurrentDirectory
作用：設置當前目錄，與VBA語句ChDir類似。
聲明：Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
說明：此函數的返回值類型爲Long，非零表示成功，零表示失敗。會設置GetLastError
參數說明：
LpPathName String，新當前目錄的路徑
示例：
SetCurrentDirectory "d:\" '設置D:爲當前目錄
7、GetSystemDirectory
作用：這個函數能取得Windows系統目錄（System目錄）的完整路徑名。在這個目錄中，包含了所有必要的系統文件。根據微軟的標 準，其他定製控件和一些共享組件也可放到這個目錄。通常應避免在這個目錄裏創建文件。在網絡環境中，往往需要管理員權限纔可對這個目錄進行寫操作
聲明：Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
說明：此函數的返回值類型爲Long，裝載到lpBuffer緩衝區的字符數量。如lpBuffer不夠大，不能容下文件名，則返回要求的緩衝區長度
參數說明：
lpBuffer String，用於裝載系統目錄路徑名的一個字串緩衝區。它應事先初始化成nSize+1個字符的長度。通常至少要爲這個緩衝區分配MAX_PATH個字符的長度
nSize Long，lpBuffer字串的最大長度
示例：
Private Sub Get_SystemDirectory()
Dim sSave As String, Ret As Long
'創建緩衝區
sSave = Space(255)
'獲取系統目錄
Ret = GetSystemDirectory(sSave, 255)
'移除多餘的0
sSave = Left$(sSave, Ret)
'顯示路徑
MsgBox "系統目錄: " + sSave
End Sub
（二）處理文件
下面是windows中提供的對於文件進行操作的API函數及其功能:
CloseHandle 關閉一個內核對象。其中包括文件、文件映射、進程、線程、安全和同步對象等。
CompareFileTime 根據FILETIME結構的信息，對比兩個文件的時間
CopyFile 複製文件。注意：只能複製文件，而不能複製目錄
CreateFile 這是一個全功能的函數，可打開和創建文件、管道、郵槽、通信服務、設備以及控制檯
DeleteFile 刪除指定文件
FindClose 關閉由FindFirstFile函數創建的一個搜索句柄
FindFirstFile 根據文件名查找文件
FindNextFile 根據調用FindFirstFile函數時指定的一個文件名查找下一個文件
FlushFileBuffers 針對指定的文件句柄，刷新內部文件緩衝區
GetBinaryType 判斷文件是否可以執行
GetFileAttributes 判斷指定文件的屬性
GetFileInformationByHandle 該函數能夠獲取上面所有函數所能夠獲取的信息，如大小、屬性等，同時還包括一些其他地方無法獲取的信息，比如：文件卷標、索引和鏈接信息。
GetFileSize 判斷文件長度
GetFileTime 取得指定文件的時間信息，有三個文件時間：創建時間、最後訪問時間、最後寫時間。
GetFileType 在給出文件句柄的前提下，判斷文件類型
GetFileVersionInfo 從支持版本標記的一個模塊裏獲取文件版本信息
GetFileVersionInfoSize 針對包含了版本資源的一個文件，判斷容納文件版本信息需要一個多大的緩衝區
GetFullPathName 獲取文件路徑，該函數獲取文件的完整路徑名。注意：只有當該文件在當前目錄下，
結果才正確。如果要得到真正的路徑。應該用GetModuleFileName函數。
GetShortPathName 獲取指定文件的短路徑名
GetTempFileName 這個函數包含了一個臨時文件的名字，它可由應用程序使用
GetTempPath 獲取Windows臨時目錄路徑
lclose 關閉指定的文件，請參考CloseHandle函數，瞭解進一步的情況
lcreat 創建一個文件。如文件已經存在，就會將其縮短成零長度，並將其打開，以便讀寫
llseek 設置文件中進行讀寫的當前位置。該函數與vba的seek語句類似。
LockFile 在windows中，文件可用共享模式打開——在這種情況下，多個進程可同時訪問該文件。
利用這個函數，要對文件進行讀寫的一個應用程序可將文件的某一部分鎖定起來，使其
不能由其他應用程序訪問。這樣便避免了同時讀寫時發生的衝突
LockFileEx 與LockFile相似，只是它提供了更多的功能
lopen 以二進制模式打開指定的文件
lread 將文件中的數據讀入內存緩衝區
lwrite 將數據從內存緩衝區寫入一個文件
MoveFile, MoveFileEx 移動文件。如dwFlags設爲零，則MoveFile完全等價於MoveFileEx
OpenFile 這個函數能執行大量不同的文件操作。和這個函數相比，請優先考慮CreateFile函數
（它能打開命名管道和控制Unicode文件名，同時不受128個字符的路徑名稱的限制）
ReadFile 從文件中讀出數據。與lread函數相比，這個函數要明顯靈活的多。該函數能夠操作
通信設備、管道、套接字以及郵槽
ReadFileEx 與ReadFile相似，只是它只能用於異步讀操作，幷包含了一個完整的回調
SearchPath 查找指定文件
SetEndOfFile 針對一個打開的文件，將當前文件位置設爲文件末尾
SetFileAttributes 設置文件屬性
SetFilePointer 在一個文件中設置當前的讀寫位置
SetFileTime 設置文件的創建、訪問及上次修改時間
UnlockFile 解除對一個文件的鎖定
UnlockFileEx 解除對一個文件的鎖定
WriteFile 將數據寫入一個文件。該函數比lwrite函數要靈活的多。也可將這個函數應用於對
通信設備、管道、套接字以及郵槽的處理
WriteFileEx 與WriteFile類似，只是它只能用於異步寫操作，幷包括了一個完整的回調
文件的壓縮和解壓縮
LZOpenFile 打開壓縮文件以讀取
LZSeek 查找壓縮文件中的一個位置
LZRead 讀一個壓縮文件
LZClose 關閉一個壓縮文件
LZCopy 複製壓縮文件並在處理過程中展開
GetExpandedName 從壓縮文件中返回文件名稱。
下面通過幾個例子來詳細的瞭解一下其中主要的幾個函數及其用法：
1、CreateFile
作用：這是一個全功能的例程，可打開和創建文件、管道、郵槽、通信服務、設備以及控制檯
聲明：
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
說明：
此函數的返回值類型爲Long，如執行成功，則返回文件句柄。INVALID_HANDLE_VALUE表示出錯，會設置 GetLastError。即使函數成功，但若文件存在，且指定了CREATE_ALWAYS 或 OPEN_ALWAYS，GetLastError也會設爲ERROR_ALREADY_EXISTS
打開一個通信端口時（如COM1），無論如何都要設置成 OPEN_EXISTING。
這個函數代替了lOpen 和 lCreate函數，應該是我們的首選
參數說明：
·lpFileName String，要打開的文件的名字
·dwDesiredAccess Long，如果爲 GENERIC_READ 表示允許對設備進行讀訪問；如果爲 GENERIC_WRITE 表示允許對設備進行寫訪問（可組合使用）；如果爲零，表示只允許獲取與一個設備有關的信息
·dwShareMode Long，零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允許對文件進行共享訪問
·lpSecurityAttributes SECURITY_ATTRIBUTES，指向一個SECURITY_ATTRIBUTES結構的指針，定義了文件的安全特性（如果操作系統支持的話）
·dwCreationDisposition
Long，下述常數之一：
CREATE_NEW 創建文件；如文件存在則會出錯
CREATE_ALWAYS 創建文件，會改寫前一個文件
OPEN_EXISTING 文件必須已經存在。由設備提出要求
OPEN_ALWAYS 如文件不存在則創建它
TRUNCATE_EXISTING 講現有文件縮短爲零長度
·dwFlagsAndAttributes
Long，一個或多個下述常數
FILE_ATTRIBUTE_ARCHIVE 標記歸檔屬性
FILE_ATTRIBUTE_COMPRESSED 將文件標記爲已壓縮，或者標記爲文件在目錄中的默認壓縮方式
FILE_ATTRIBUTE_NORMAL 默認屬性
FILE_ATTRIBUTE_HIDDEN 隱藏文件或目錄
FILE_ATTRIBUTE_READONLY 文件爲只讀
FILE_ATTRIBUTE_SYSTEM 文件爲系統文件
FILE_FLAG_WRITE_THROUGH 操作系統不得推遲對文件的寫操作
FILE_FLAG_OVERLAPPED 允許對文件進行重疊操作
FILE_FLAG_NO_BUFFERING 禁止對文件進行緩衝處理。文件只能寫入磁盤卷的扇區塊
FILE_FLAG_RANDOM_ACCESS 針對隨機訪問對文件緩衝進行優化
FILE_FLAG_SEQUENTIAL_SCAN 針對連續訪問對文件緩衝進行優化
FILE_FLAG_DELETE_ON_CLOSE 關閉了上一次打開的句柄後，將文件刪除。特別適合臨時文件
也可在Windows NT下組合使用下述常數標記：
SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION， SECURITY_IMPERSONATION， SECURITY_DELEGATION， SECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY
·hTemplateFile Long，如果不爲零，則指定一個文件句柄。新文件將從這個文件中複製擴展屬性
示例如下:
lngHandle = CreateFile("c:\text.txt", GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_ALWAYS, 0, 0)
'上面代碼以寫方法打開文件，如文件不存在則創建它。
2、lcreat
作用：創建一個文件。如文件已經存在，就會將其縮短成零長度，並將其打開，以便讀寫
聲明：Declare Function lcreat Lib "kernel32" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Long) As Long
說明：此函數的返回值類型爲Long，如執行成功，返回打開文件的句柄。如果出錯，則返回HFILE_ERROR
該函數會打開已由其他應用程序打開的文件，所以使用它時要小心。win32的CreateFile函數已取代了這個函數。這個函數與vb的open語句作用相同
參數說明：
lpPathName String，欲創建的文件的名字
iAttribute Long，下述值之一：
0——文件能夠讀寫
1——創建只讀文件
2——創建隱藏文件
3——創建系統文件
示例：
下面的語句打開c：\test.txt文件
lcreat “c:\test.txt”,0
3、lopen
作用：以二進制模式打開指定的文件
聲明：Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
說明：此函數的返回值類型爲Long，如執行成功，返回打開文件的句柄。HFILE_ERROR表示出錯。會設置GetLastError
參數說明：
lpPathName String，欲打開文件的名字
iReadWrite Long，訪問模式和共享模式常數的一個組合，如下所示：
1、訪問模式
READ 打開文件，讀取其中的內容
READ_WRITE 打開文件，對其進行讀寫
WRITE 打開文件，在其中寫入內容
2、共享模式（參考OpenFile函數的標誌常數表）
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，非零表示成功，零表示失敗。會設置GetLastError
如果不需要特定的信息，那麼lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以設置爲零（用ByVal As Long）。這個函數返回的文件時間採用UTC格式
參數說明：
hFile Long，文件的句柄
lpCreationTime FILETIME，用於裝載文件的創建時間
lpLastAccessTime FILETIME，用於裝載文件上一次訪問的時間（FAT文件系統不支持這一特性）
lpLastWriteTime FILETIME，用於裝載文件上一次修改的時間
示例：
Dim file As Long
Dim CreationTime As FileTime
Dim lastaccesstime As FileTime
Dim lastaccesstime As FileTime
'定義結構
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)’得到文件相關信息
以上代碼獲取的時間信息是Long型的，還需要時間轉換函數進行轉換，完整的示例見附件。
5、CopyFile
作用：複製文件。與vb的filecopy命令相似
聲明：Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
說明：Long，非零表示成功，零表示失敗。會設置GetLastError
參數說明：
lpExistingFileName String，源文件名
lpNewFileName String，目標文件名
bFailIfExists Long，如果設爲TRUE（非零），那麼一旦目標文件已經存在，則函數調用會失敗。否則目標文件被改寫
示例：
CopyFile "c:\test1.txt", "c:\test2.txt", 1
以上代碼將c:\test1.txt 拷貝到c:\test2.txt，完整的示例見附件。
6、MoveFile, MoveFileEx
作用：移動文件。如dwFlags設爲零，則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，非零表示成功，零表示失敗。會設置GetLastError
這兩個函數通常不能將文件從一個卷移動到另一個卷。但如設置了MOVEFILE_COPY_ALLOWED標記，MoveFileEx可以做到這一點.
參數說明：
lpExistingFileName String，欲移動的文件名
lpNewFileName String，新文件名
dwFlags Long，一個或多個下述常數
MOVEFILE_REPLACE_EXISTING 如目標文件存在，則將其替換
MOVEFILE_COPY_ALLOWED 如移動到一個不同的卷，則複製文件並刪除原來的文件
MOVEFILE_DELAY_UNTIL_REBOOT 移動操作在系統下次重新啓動時正式進行。這樣便可在Windows NT中改換系統文件
示例：
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 '再一次移動
以上代碼實現了文件的移動，兩次移動後，文件不變
7、DeleteFile
作用：刪除指定文件
聲明：Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
說明：Long，非零表示成功，零表示失敗。會設置GetLastError
與vba的kill語句相似，在windows 95下使用這個函數要小心——即使文件當前正由一個應用程序打開，該函數也會將其刪除.
參數說明：
lpFileName String，欲刪除文件的名字
示例：
DeleteFile "c:\test.txt" '刪除c:\test.txt文件
完整的示例見附件。
8、ReadFile
作用：從文件中讀出數據。與lread函數相比，這個函數要明顯靈活的多。該函數能夠操作通信設備、管道、套接字以及郵槽
聲明：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，非零表示成功，零表示失敗。會設置GetLastError。如啓動的是一次異步讀操作，則函數會返回零值，並將 ERROR_IO_PENDING設置成GetLastError的結果。如結果不是零值，但讀入的字節數小於nNumberOfBytesToRead 參數指定的值，表明早已抵達了文件的結尾
參數：
hFile ---- Long，文件的句柄
lpBuffer --- Any，用於保存讀入數據的一個緩衝區
nNumberOfBytesToRead - Long，要讀入的字符數
lpNumberOfBytesRead - Long，從文件中實際讀入的字符數
lpOverlapped --- OVERLAPPED，如文件打開時指定了FILE_FLAG_OVERLAPPED，那麼必須用這個參數引用一個特殊的結構。那個結構定義了一次異步讀 取操作。否則，應將這個參數設爲NULL（將函數聲明成ByVal As Long，並傳遞零值）
示例：完整的示例見附件。
9、WriteFile
作用：將數據寫入一個文件。該函數比lwrite函數要靈活的多。也可將這個函數應用於對通信設備、管道、套接字以及郵槽的處理
聲明：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（非零）表示成功，否則返回零。會設置GetLastError
參數：
hFile --- Long，一個文件的句柄
lpBuffer --- Any，要寫入的一個數據緩衝區
nNumberOfBytesToWrite - Long，要寫入數據的字節數量。如寫入零字節，表示什麼都不寫入，但會更新文件的“上一次修改時間”。針對位於遠程系統的命名管道，限制在65535個字節以內
lpNumberOfBytesWritten - Long，實際寫入文件的字節數量
lpOverlapped --- OVERLAPPED，倘若在指定FILE_FLAG_OVERLAPPED的前提下打開文件，這個參數就必須引用一個特殊的結構。那個結構定義了一次異 步寫操作。否則，該參數應置爲空（將聲明變爲ByVal As Long，並傳遞零值）
示例：完整的示例見附件。
10、SHFileOperation
作用：此函數的功能很強大，能對文件或文件夾進行復制、移動、重命名、刪除的全部操作。
聲明：Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
說明：Long，TRUE（非零）表示成功，否則返回零。
參數：
lpFileOp －－SHFILEOPSTRUCT類型，指定文件的操作。
Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long '對文件的操作指令
pFrom As String '源文件或路徑
pTo As String '目的文件或路徑
fFlags As Integer '操作標誌
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type
示例：見附件。
（三）總結
通過以上的介紹，我們可以看到API在文件操作方面功能十分強大，能夠完成一些前面方法所不能完成的任務。FileSystemObject對象模 型的內部可能就是用API寫的，即便不是我們也可以用API寫出一個FSO類來。API是一個巨大的寶庫，當你爲實現某個功能而愁眉不展的時候，查查 API可能就能找到滿意的答案。
寫的這麼多，希望對大家有所幫助，至少操作文件是沒有什麼問題了。
附件：API函數示例，代碼有註釋，應該都看的懂，可以按F8逐行運行，查看結果。
