获得Windows的临时文件的路径

　　 要获得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函数将十分有用。

上一篇： 用FileSystemWatcher监控作业
下一篇： 用运算符Like来比较字符串

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有