經過長時間的運用VB.NET編程,在工作中也積累了一些經驗，在這里主要和大家介紹如何創建VB.NET臨時文件。

使用GetTempFileName函數

#T#WindowsAPI函數中的GetTempFileName函數可以用來在指定的磁盤驅動器上創建一個新的文件。盡管所創建的文件是一個臨時文件,但不再需要它的時候,程序員還是需要將它從磁盤上物理地刪除掉。

要在VB中使用GetTempFileName函數,必須將如下聲明語句包含在程序中(請注意該聲明語句需要書寫在一行內):

PrivateDeclareFunctionGetTempFileNameLib"kernel32"Alias"GetTempFileNameA"(ByVallpszPathAsString,ByVallpPrefixStringAsString,  
ByValwUniqueAsLong,ByVallpTempFileNameAsString)AsLong 

該GetTempFileName函數需要4個參數:
***個參數是希望創建新文件的驅動器和/或路徑的名稱,在下面的樣例程序中,新文件創建在驅動器C的根目錄下。
第二個參數是指派給文件名稱的前綴。如果將該前綴指定為"TEST",則函數將把創建的新文件名稱的前四個字符設置為"TEST",即"TEST*.TMP"。
第三個參數應該被設置為0,告訴該函數為文件名稱自動產生隨機號碼。該隨機號碼會被添加到前綴字符的后面,以產生一個獨特而且完整的文件名稱。
第四個參數是一個字符串緩存,它至少要有256個字符的長度,以存放臨時文件的名稱。

在調用該函數之后,新文件創建在指定的磁盤上。這里重申一下,當退出應用程序時,必須物理地將該文件從磁盤上刪除，樣例程序。

該程序顯示了如何創建VB.NET臨時文件

1.在VisualBasic中開始一個新的工程,采用缺省的方法建立Form1。

2.將如下聲明語句添加到Form1的通用聲明部分中(請注意該聲明語句需要被書寫在一行內):

PrivateDeclareFunctionGetTempFileNameLib"kernel32"Alias"GetTempFileNameA"  
(ByVallpszPathAsString,ByVallpPrefixStringAsString,ByValwUniqueAsLong,ByVallpTempFileNameAsString)AsLong 

3.將如下代碼添加到Form1的Form_Load事件中:

PrivateSubForm_Load()  
Text1.TEXT="" 
EndSub  

4.在Form1上添加一個文本框控件,采用缺省的方法建立Text1。

5.在Form1上添加一個命令按鈕控件,采筆〉姆椒ńommand1。

6.將如下代碼添加到Command1的單擊事件中:

PrivateSubCommand1_Click()  
DimFilePrefixAsString  
DimNewFileAsString*256  
FilePrefix="TEST" 
NewFile=GetTempName(FilePrefix)  
Text1.TEXT=NewFile 
EndSub 

7.創建一個新的名為GetTempName的函數,將如下代碼添加到該函數中:

PrivateFunctionGetTempName(TmpFilePrefixAsString)AsString  
DimTempFileNameAsString*256  
DimXAsLong  
DimDriveNameAsString  
DriveName="c:" 
X=GetTempFileName(DriveName,TmpFilePrefix,0,TempFileName)  
GetTempName=Left$(TempFileName,InStr(TempFileName,Chr(0))-1)  
EndFunction 

按下F5鍵,執行本樣例程序。單擊命令按鈕,在驅動器C的根目錄下創建一個新的臨時文件。該新創建的文件的名稱被顯示在文本框控件中，以上就是如何創建VB.NET臨時文件的過程，大家學會了嗎？