日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
教你如何創(chuàng)建VB.NET臨時(shí)文件七步總結(jié)

經(jī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)):

 
 
    
  
  
  1. PrivateDeclareFunctionGetTempFileNameLib"kernel32"Alias"GetTempFileNameA"(ByVallpszPathAsString,ByVallpPrefixStringAsString,  
    2. 
  
  
  2. ByValwUniqueAsLong,ByVallpTempFileNameAsString)AsLong 
    3.

該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è)字符的長度,以存放臨時(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)):

 
 
    
  
  
  1. PrivateDeclareFunctionGetTempFileNameLib"kernel32"Alias"GetTempFileNameA"  
    2. 
  
  
  2. (ByVallpszPathAsString,ByVallpPrefixStringAsString,ByValwUniqueAsLong,ByVallpTempFileNameAsString)AsLong 
    3.

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

 
 
    
  
  
  1. PrivateSubForm_Load()  
    2. 
  
  
  2. Text1.TEXT="" 
    3. 
  
  
  3. EndSub  
    4.

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

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

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

 
 
    
  
  
  1. PrivateSubCommand1_Click()  
    2. 
  
  
  2. DimFilePrefixAsString  
    3. 
  
  
  3. DimNewFileAsString*256  
    4. 
  
  
  4. FilePrefix="TEST" 
    5. 
  
  
  5. NewFile=GetTempName(FilePrefix)  
    6. 
  
  
  6. Text1.TEXT=NewFile 
    7. 
  
  
  7. EndSub 
    8.

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

 
 
    
  
  
  1. PrivateFunctionGetTempName(TmpFilePrefixAsString)AsString  
    2. 
  
  
  2. DimTempFileNameAsString*256  
    3. 
  
  
  3. DimXAsLong  
    4. 
  
  
  4. DimDriveNameAsString  
    5. 
  
  
  5. DriveName="c:" 
    6. 
  
  
  6. X=GetTempFileName(DriveName,TmpFilePrefix,0,TempFileName)  
    7. 
  
  
  7. GetTempName=Left$(TempFileName,InStr(TempFileName,Chr(0))-1)  
    8. 
  
  
  8. EndFunction 
    9.

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


分享文章：教你如何創(chuàng)建VB.NET臨時(shí)文件七步總結(jié)
網(wǎng)站路徑：http://m.5511xx.com/article/cosjegd.html