要获得Windows的临时文件的存放路径,可以使用GetTempPathAPI函数。以下是该函数的声明:
PrivateDeclareFunctionGetTempPathLib”kernel32″Alias_
“GetTempPathA”(ByValnBufferLengthAsLong,ByVallpBufferAsString)AsLong
“BufferLength”是这个函数的第一个参数,它将指定接受传进来字符串的缓冲区大小。“Buffer”参数用于装载临时文件路径的一个预初始化字串。
调用前,初始化一个(通常长为255)的以null为结尾的字符串,长度为字符长度加1。然后调用这个函数,这个函数的返回值是一个Long型的变量,该返回值将是TEMP路经的真实长度。
DimlngFolderSizeAsLong
DimstrFolderAsString
DimlngLengthAsLong
lngFolderSize=255
strFolder=String(lngFolderSize 1,0)
lngLength=GetTempPath(lngFolderSize,strFolder)
IflngLength>1Then
strFolder=Left(strFolder,lngLength)
Else
strFolder=vbNullString
EndIf
MsgBoxstrFolder
当你的用户需要确定临时文件目录,并且应用程序将在那里创建临时的工作文件时,这个API函数将十分有用。->