国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 開發(fā) > 綜合 > 正文

如何獲取系統(tǒng)的臨時(shí)目錄路徑?

2024-07-21 02:23:20
字體:
供稿:網(wǎng)友
gettemppath取得的是一個(gè)dos名稱,當(dāng)文件名長(zhǎng)度大于8時(shí),長(zhǎng)文件名格式“c:/documents and settings/administrator/local settings/temp”會(huì)顯示成“c:/docume~1/admini~1/locals~1/temp”的短文件名格式,如何根據(jù)自己需要取得系統(tǒng)臨時(shí)目錄的途徑,下面是一個(gè)新寫的函數(shù),調(diào)用兩個(gè)api 實(shí)現(xiàn),相信許多朋友可能用得到。

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 '長(zhǎng)文件名
gettempfolder false '短文件名
end sub



國(guó)內(nèi)最大的酷站演示中心!
發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 梅河口市| 永城市| 西平县| 胶南市| 兰坪| 穆棱市| 个旧市| 松滋市| 响水县| 石嘴山市| 江西省| 定西市| 潜江市| 安仁县| 福泉市| 高阳县| 永州市| 台中市| 金门县| 志丹县| 榆社县| 时尚| 韶关市| 二手房| 新邵县| 西吉县| 长岭县| 桃园县| 保德县| 溆浦县| 无锡市| 石林| 灵台县| 三台县| 宝兴县| 高陵县| 永德县| 九江市| 梁山县| 红河县| 宁海县|