VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何获得Windows的临时文件的存放路径
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:16488, 日期:2003-08-29
    许多应用程序都要创建临时文件在该应用程序的执行目录里(可以通过App.Path方法获得)。但是,你可以使用Windows指定的临时文件夹来存放这些临时文件。如果你的用户是在一个公用的环境里使用你的程序,这个优势将会十分明显,因为用户可能没有权限在“Program Files”目录下创建或者修改文件。


要获得Windows的临时文件的存放路径,可以使用GetTempPath API函数。以下是该函数的声明:

Private Declare Function GetTempPath Lib "kernel32" Alias_

"GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

“BufferLength”是这个函数的第一个参数,它将指定接受传进来字符串的缓冲区大小。“Buffer”参数用于装载临时文件路径的一个预初始化字串。

调用前,初始化一个(通常长为255)的以null为结尾的字符串,长度为字符长度加1。然后调用这个函数,这个函数的返回值是一个Long型的变量,该返回值将是TEMP路经的真实长度。

Dim lngFolderSize As Long
    Dim strFolder As String
    Dim lngLength As Long
    
    lngFolderSize = 255
    strFolder = String(lngFolderSize + 1, 0)
    lngLength = GetTempPath(lngFolderSize, strFolder)
    If lngLength > 1 Then
        strFolder = Left(strFolder, lngLength)
    Else
        strFolder = vbNullString
    End If
    
    MsgBox strFolder

当你的用户需要确定临时文件目录,并且应用程序将在那里创建临时的工作文件时,这个API函数将十分有用。