☆賢☆

可以取得COOKIE資料夾的路徑

Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long

Private Sub Command1_Click()
Const MAX_PATH = 260
Dim pidl As Long
Dim S As String '路徑
Dim id As Long
Dim a As String
Dim file_num As Integer
Dim del As String

id = 32
S = String(MAX_PATH, 0)
SHGetSpecialFolderLocation 0, id, pidl
SHGetPathFromIDList pidl, S
Text1 = S
End Sub