如何获取系统的临时目录路径?
2004-07-30 17:49
387 查看
GetTempPath取得的是一个DOS名称,当文件名长度大于8时,长文件名格式“C:/Documents and Settings/Administrator/Local Settings/Temp”会显示成“C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp”的短文件名格式,如何根据自己需要取得系统临时目录的途径,下面是一个新写的函数,调用两个API 实现,相信许多朋友可能用得到。
Option Explicit
Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" (ByVal lpszShortPath As String, ByVal lpszLongPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Sub GetTEMPfolder(Optional ByVal showlong As Boolean = True)
Dim longname As String, shortname As String
shortname = Space(256)
GetTempPath Len(shortname), shortname
longname = Space(1024)
GetLongPathName shortname, longname, Len(longname)
MsgBox "Tempfolder : " & IIf(showlong = True, longname, shortname)
End Sub
Private Sub Command1_Click()
GetTEMPfolder '长文件名
GetTEMPfolder False '短文件名
End Sub
Option Explicit
Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" (ByVal lpszShortPath As String, ByVal lpszLongPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Sub GetTEMPfolder(Optional ByVal showlong As Boolean = True)
Dim longname As String, shortname As String
shortname = Space(256)
GetTempPath Len(shortname), shortname
longname = Space(1024)
GetLongPathName shortname, longname, Len(longname)
MsgBox "Tempfolder : " & IIf(showlong = True, longname, shortname)
End Sub
Private Sub Command1_Click()
GetTEMPfolder '长文件名
GetTEMPfolder False '短文件名
End Sub
相关文章推荐
- 如何获取系统的临时目录路径?
- 如何获取系统的临时目录路径?
- 如何获取系统的临时目录路径?
- VB中如何获取系统临时目录
- Qt 程序获取程序所在路径、用户目录路径、临时文件夹等特殊路径的方法
- VC 获取系统特殊文件夹的路径如:系统目录,桌面等
- 获取网站的根目录的物理文件系统路径
- 获取系统临时目录
- JAVA 程序中如何拷贝一个目录下的文件及子目录到另一个目录,如何获取系统环境变量等...
- VC 获取系统特殊文件夹的路径如:系统目录,桌面等
- python 获取系统临时目录,临时文件的操作方法
- linux 如何把一个目录配置到系统路径PATH中?
- 临时搞两天VC,在VC里如何获取当前程序的名字和路径以及如何分割字符串
- VC 获取系统特殊文件夹的路径如:系统目录,桌面等
- Android各种机型,各种系统版本,如何获取外置SDCard路径
- Qt 程序获取程序所在路径、用户目录路径、临时文件夹等特殊路径的方法
- VC 获取系统特殊文件夹的路径如:系统目录,桌面等
- Qt 程序获取程序所在路径、用户目录路径、临时文件夹等特殊路径的方法
- 获取Windows系统特殊性目录路径
- 获取系统特殊目录的路径。