如果您希望获得存储在 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