임시파일 저장소에 위치를 알아내는 API

임시파일 저장소에 위치를 알아내는 API.txt

 

Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hwnd As Long, ByVal pszpath As String, ByVal csidl As Long, ByVal fCreate As Long) As Long
Private Const CSIDL_INTERNET_CACHE As Long = &H20
Function CacheFolder() As String
Dim Buf As String
Buf = String$(260, 0)
SHGetSpecialFolderPath 0, Buf, CSIDL_INTERNET_CACHE, 0
CacheFolder = Left$(Buf, InStr(Buf, vbNullChar) - 1)
End Function

 

'사용법

Private Sub Form_Load()
Label1.Caption = CacheFolder '이런식으로 하시면 자신의 컴퓨터에 임시파일 저장소가 출력됩니다. 

End Sub