如何通過 VBA 快速獲取本地驅動器上所有 Outlook PST 文件的列表

Outlook解決方案 2025 年 9 月 29 日

如果您希望獲取存儲在 PC 本地驅動器上的所有 Outlook PST 文件的列表，您可以使用本文中顯示的 VBA 代碼片段。它可以讓您快速獲得它。

也許您在計算機的某個分區上創建並存儲了許多 Outlook PST 文件。然而，隨著時間的推移，您可能會忘記這些 PST 文件的具體位置。在這種情況下，您可能希望快速找到它們並獲得它們的信息列表，包括名稱、大小和路徑。針對這一需求，這裡我們將介紹一種行之有效的方法。

獲取本地驅動器上所有 Outlook PST 文件的列表

首先，啟動 Outlook 程式。
然後，參考我之前的文章-》訪問你的Outlook VBA編輯器如何在Outlook中運行VBA代碼“。
接下來，將以下 VBA 代碼複製並粘貼到“ThisOutlookSession”或未使用的模塊中。

Sub FindAllOutlookPSTFiles()
    Dim objWMIService As Object
    Dim objPSTFiles As Object
    Dim objPSTFile As Object
    Dim i As Long
    Dim objFileSystem As Object
    Dim objFolder As Object
    Dim strTextFile As String
    Dim objTextFile As Object
 
    'Find All PST Files on Drive C
    'You can change "C:" to the other drive letter as per your needs
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set objPSTFiles = objWMIService.ExecQuery ("Select * from CIM_DataFile Where Extension = 'pst' AND Drive = 'C:'")
 
    If objPSTFiles.count > 0 Then
 
       'Create a text file
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       strTextFile = "E:\PST_Files_on_Drive_C.txt"
       Set objTextFile = objFileSystem.CreateTextFile(strTextFile, True)
 
       i = 1
 
       For Each objPSTFile In objPSTFiles
           'Input the PST file name, size and path into the text file
           objTextFile.Write (i & ". " & objPSTFile.filename & "." & objPSTFile.Extension & vbCrLf & " Size: " & objPSTFile.FileSize / 1024 & "KB" & vbCrLf & " Path: " & objPSTFile.Drive & objPSTFile.Path & vbCrLf & vbCrLf)
           i = i + 1
       Next
 
       objTextFile.Close
 
       'Open this text file
       Shell "C:\Windows\Notepad.exe " & strTextFile, 1
    Else
       MsgBox "There isn't PST file on this drive!", vbExclamation + vbOKOnly
    End If
End Sub

之後，您現在就可以嘗試這個宏。只需按“F5”鍵即可。
宏完成後，您將看到顯示一個文本文件，如下圖所示：

在 Outlook 崩潰時使用修復工具

您的 Outlook 可能會不時出現各種錯誤。如果您沒有及時解決這些問題，最終有一天您將遭受嚴重的 Outlook 崩潰。因此，在附近保留一個強大且經驗豐富的 PST 修復實用程序是正確的，例如 DataNumen Outlook Repair。它是專門為維修PST 文件。因此，它能夠避免 PST 數據丟失。

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 sql損壞和Outlook修復軟件產品。欲了解更多信息，請訪問萬維網。datanumen.COM