經(jīng)過長(zhǎng)時(shí)間的運(yùn)用VB.NET編程,在工作中也積累了一些經(jīng)驗(yàn)，在這里主要和大家介紹如何創(chuàng)建VB.NET臨時(shí)文件。

使用GetTempFileName函數(shù)

#T#WindowsAPI函數(shù)中的GetTempFileName函數(shù)可以用來在指定的磁盤驅(qū)動(dòng)器上創(chuàng)建一個(gè)新的文件。盡管所創(chuàng)建的文件是一個(gè)臨時(shí)文件,但不再需要它的時(shí)候,程序員還是需要將它從磁盤上物理地刪除掉。

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

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

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

在調(diào)用該函數(shù)之后,新文件創(chuàng)建在指定的磁盤上。這里重申一下,當(dāng)退出應(yīng)用程序時(shí),必須物理地將該文件從磁盤上刪除，樣例程序。

該程序顯示了如何創(chuàng)建VB.NET臨時(shí)文件

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

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

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

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

PrivateSubForm_Load()  
Text1.TEXT="" 
EndSub  

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

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

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

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

7.創(chuàng)建一個(gè)新的名為GetTempName的函數(shù),將如下代碼添加到該函數(shù)中:

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鍵,執(zhí)行本樣例程序。單擊命令按鈕,在驅(qū)動(dòng)器C的根目錄下創(chuàng)建一個(gè)新的臨時(shí)文件。該新創(chuàng)建的文件的名稱被顯示在文本框控件中，以上就是如何創(chuàng)建VB.NET臨時(shí)文件的過程，大家學(xué)會(huì)了嗎？