【源码】获取临时目录的几种方法

2022-08-31 15:48:07 410 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

获取网页图标的几种方法使用iTab新标签页获取自定义图标功能可以根据网址快速获取图标通过以上这些方法，您可以高效地获取到想要的网站图标。参考下载网站 favicon 图标的 3 种方法获取网站Favicon.ico小图标的方法从网页获取图标的简单方法。阅读详情

作者：昨夜星辰

方法1：
FileSystemObject对象
源码：

Function 获取临时目录_fso

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

获取临时目录_fso = fso.GetSpecialFolder(2)

Set fso = Nothing

End Function

方法2：
WScript对象
源码：

Function 获取临时目录_wsh1

Dim wsh,environment

Set wsh = createobject("WScript.shell")

Set environment = wsh.environment("process")

获取临时目录_wsh1 = environment.item("temp")

Set environment = Nothing

Set wsh = Nothing

End Function

方法3：
WScript对象
源码：

Function 获取临时目录_wsh2

Dim wsh

Set wsh = createobject("WScript.shell")

获取临时目录_wsh2 = wsh.ExpandEnvironmentStrings("%temp%")

Set wsh = Nothing

End Function

方法4：
Win32 API GetTempPath
源码：

Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Function 获取临时目录_api

Dim len_str

Buffer = Space(255)

len_str = GetTempPath(256, Buffer)

获取临时目录_api = Left(Buffer, len_str)

End Function

方法5：
按键插件
源码：

Plugin.Sys.GetDir(3)

复制代码调用例子：

TracePrint 获取临时目录_fso()

TracePrint 获取临时目录_wsh1()

TracePrint 获取临时目录_wsh2()

TracePrint 获取临时目录_api()

TracePrint Plugin.Sys.GetDir(3)

复制代码调试结果：
脚本我的脚本1.Q ，第1行：C:\Users\UNNAMED\AppData\Local\Temp
脚本我的脚本1.Q ，第2行：C:\Users\UNNAMED\AppData\Local\Temp
脚本我的脚本1.Q ，第3行：C:\Users\UNNAMED\AppData\Local\Temp
脚本我的脚本1.Q ，第4行：C:\Users\UNNAMED\AppData\Local\Temp\
脚本我的脚本1.Q ，第5行：C:\Users\UNNAMED\AppData\Local\Temp\

原文地址：http://bbs.anjian.com/showtopic-701260-1.aspx

...全文