VB中利用WindowsAPI實現文件操作
|
下面是windows中提供的對于文件進行操作的API函數及其功能:
Windows API函數 | 功能 |
| CloseHandle | 關閉一個內核對象。其中包括文件、文件映射、進程、線程、安全和同步對象等。涉及文件處理時，這個函數通常與vb的close命令相似。應盡可能的使用close，因為它支持vb的差錯控制。注意這個函數使用的文件句柄與vb的文件編號是完全不同的 |
| CompareFileTime | 根據FILETIME結構的信息，對比兩個文件的時間 |
| CopyFile | 復制文件。與vb的filecopy命令相似 |
| CreateFile | 這是一個全功能的函數，可打開和創建文件、管道、郵槽、通信服務、設備以及控制臺 |
| DeleteFile | 刪除指定文件 |
| FindClose | 關閉由FindFirstFile函數創建的一個搜索句柄 |
| FindFirstFile | 根據文件名查找文件 |
| FindNextFile | 根據調用FindFirstFile函數時指定的一個文件名查找下一個文件 |
| FlushFileBuffers | 針對指定的文件句柄，刷新內部文件緩沖區 |
| GetBinaryType | 判斷文件是否可以執行 |
| GetFileAttributes | 判斷指定文件的屬性 |
| GetFileInformationByHandle | 這個函數提供了獲取文件信息的一種機制——在一個BY_HANDLE_FILE_INFORMATION結構中裝載與文件有關的信息 |
| GetFileSize | 判斷文件長度 |
| GetFileTime | 取得指定文件的時間信息 |
| GetFileType | 在給出文件句柄的前提下，判斷文件類型 |
| GetFileVersionInfo | 從支持版本標記的一個模塊里獲取文件版本信息 |
| GetFileVersionInfoSize | 針對包含了版本資源的一個文件，判斷容納文件版本信息需要一個多大的緩沖區 |
| GetShortPathName | 獲取指定文件的短路徑名 |
| GetTempFileName | 這個函數包含了一個臨時文件的名字，它可由應用程序使用 |
| lclose | 關閉指定的文件，請參考CloseHandle函數，了解進一步的情況 |
| lcreat | 創建一個文件。如文件已經存在，就會將其縮短成零長度，并將其打開，以便讀寫 |
| llseek | 設置文件中進行讀寫的當前位置。該函數與vb的seek語句類似。如果用vb的open命令打開了一個文件，那么不要再對這個文件使用llseek函數 |
| LockFile | 在windows中，文件可用共享模式打開——在這種情況下，多個進程可同時訪問該文件。利用這個函數，要對文件進行讀寫的一個應用程序可將文件的某一部分鎖定起來，使其不能由其他應用程序訪問。這樣便避免了同時讀寫時發生的沖突 |
| LockFileEx | 與LockFile相似，只是它提供了更多的功能 |
| lopen | 以二進制模式打開指定的文件 |
| lread | 將文件中的數據讀入內存緩沖區 |
| lwrite | 將數據從內存緩沖區寫入一個文件 |
| MoveFile, MoveFileEx | 移動文件。如dwFlags設為零，則MoveFile完全等價于MoveFileEx |
| OpenFile | 這個函數能執行大量不同的文件操作。和這個函數相比，請優先考慮win32的CreateFile函數（它能打開命名管道和控制Unicode文件名，同時不受128個字符的路徑名稱的限制） |
| ReadFile | 從文件中讀出數據。與lread函數相比，這個函數要明顯靈活的多。該函數能夠操作通信設備、管道、套接字以及郵槽 |
| ReadFileEx | 與ReadFile相似，只是它只能用于異步讀操作，并包含了一個完整的回調 |
| SearchPath | 查找指定文件 |
| SetEndOfFile | 針對一個打開的文件，將當前文件位置設為文件末尾 |
| SetFileAttributes | 設置文件屬性 |
| SetFilePointer | 在一個文件中設置當前的讀寫位置 |
| SetFileTime | 設置文件的創建、訪問及上次修改時間 |
| UnlockFile | 解除對一個文件的鎖定 |
| UnlockFileEx | 解除對一個文件的鎖定 |
| WriteFile | 將數據寫入一個文件。該函數比lwrite函數要靈活的多。也可將這個函數應用于對通信設備、管道、套接字以及郵槽的處理 |
| WriteFileEx | 與WriteFile類似，只是它只能用于異步寫操作，并包括了一個完整的回調 |
讓我們通過幾個例子來詳細的了解一下其中主要的幾個函數及其用法:
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，如果不為零，則指定一個文件句柄。新文件將從這個文件中復制擴展屬性 | |
示例如下:
| long hfile= CreateFile(“c:\test.txt”,GENERIC_READ, FILE_SHARE_READ|FILE_SHARE_WRITE,NULL, OPEN_EXISTING,FILE_ELAG_OVERLAPPED,NULL) |
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：est.txt文件
| lcreat “c:est.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
CreateFile函數在win32下提供了更多的功能：
參數說明：
| 參數 | 類型及說明 | |
| 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 | ||
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，用于裝載文件上一次修改的時間 |
示例代碼如下：
| ‘函數聲明 Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FileTime, lpLastAccessTime As FileTime, lpLastWriteTime As FileTime) As Long Private Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long ‘定義變量 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 Private Sub Form_Load() str1 = "c:ext.txt" file = lopen(str1, READ_WRITE) ‘打開文件 temp = GetFileTime(file, CreationTime, lastaccesstime, lastwritetime)’得到文件相關信息 MsgBox CreationTime ‘顯示信息 End Sub |
以上代碼顯示文件的創建時間
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（非零），那么一旦目標文件已經存在，則函數調用會失敗。否則目標文件被改寫 |
示例代碼如下：
| ‘函數聲明 Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Form_Load() CopyFile "c:est1.txt", "c:est2.txt", 1 End Sub |
以上代碼將c:est1.txt 拷貝到c:est2.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 ‘函數聲明 Private Declare Function MoveFile& Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) Private Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) Private Sub Form_Load() MoveFile "c:est.txt", "d:est1.txt" ‘移動文件 MoveFileEx "d:est1.txt", "c:est.txt", MOVEFILE_REPLACE_EXISTING ‘再一次移動 End Sub |
以上代碼實現了文件的移動，兩次移動後，文件不變
7、DeleteFile
作用：刪除指定文件
聲明形式：
| Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long |
說明：Long，非零表示成功，零表示失敗。會設置GetLastError
與vb的kill語句相似，在windows 95下使用這個函數要小心——即使文件當前正由一個應用程序打開，該函數也會將其刪除.
參數說明：
| 參數 | 類型及說明 |
| lpFileName | String，欲刪除文件的名字 |
示例代碼如下：
| ‘函數聲明 Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Form_Load() DeleteFile "c:est.txt" End Sub |
以上代碼刪除了c:est.txt文件
寫了這沒多，真的很累了，所以更希望自己的辛苦沒有白費，VB雖然是一個RAD類的工具,并讓很多人不屑使用,但實事求是得說,VB的功能的確強大,尤其是人性化的設計,讓人愛不釋手,希望對喜愛VB的愛好者能夠對vb能產生一個新的認識，而不僅僅停留在對其提供的現有控件的使用。