注册
 找回密码
 注册
江西广告网
查看: 286|回复: 0
打印 上一主题 下一主题

获取系统的临时目录路径的函数源代码

[复制链接]

该用户从未签到

1
跳转到指定楼层
发表于 2008-12-24 11:59:51 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
  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          <
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表