香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 26th Dec 2005, 19:00 PM | WB & WS, API / Add-in | (1137 Reads)

平均分: 10.00 | 評分人數: 1

IE收藏夹中的信息

以下是 API 方法列出及建立 url

Option Explicit
 
Private Declare Function SHGetSpecialFolderPath _
   Lib "shell32.dll" _
   Alias "SHGetSpecialFolderPathA" _
   (ByVal hWnd As Long, _
   ByVal lpszPath As String, _
   ByVal nFolder As Integer, _
   ByVal fCreate As BooleanAs Boolean
 
Private Const CSIDL_FAVORITES = &H6

 
Public Sub Main()
Dim path As String, i As Long
Dim blnReturn As Long
Dim strBuffer As String
strBuffer = Space(255)
blnReturn = SHGetSpecialFolderPath(0, _
   strBuffer, _
   CSIDL_FAVORITES, _
   False)
 
strBuffer = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
path = strBuffer
Columns(1).ClearContents
With Application.FileSearch
    .NewSearch
    .LookIn = path
    .SearchSubFolders = True
    .FileType = msoFileTypeAllFiles
    If .Execute() > 0 Then
        For i = 1 To .FoundFiles.Count
            ActiveSheet.Hyperlinks.Add Range("A" & i), .FoundFiles(i)
        Next i
    End If
End With
Columns(1).AutoFit
End Sub
 

[1] 收藏了

Good Job!
已測試過並且收藏了.
謝謝! `:)


[引用] | 作者 crdotlin | 26th Dec 2005 20:42 PM | [舉報垃圾留言]