So rufen Sie schnell eine Liste aller Outlook PST-Dateien auf Ihrem lokalen Laufwerk über VBA ab

Wenn Sie eine Liste aller auf einem lokalen Laufwerk Ihres PCs gespeicherten Outlook-PST-Dateien erhalten möchten, können Sie den in diesem Artikel gezeigten VBA-Code verwenden. Dadurch können Sie es schnell erhalten.

Möglicherweise haben Sie viele Outlook-PST-Dateien erstellt und auf einer Partition Ihres Computers gespeichert. Doch mit der Zeit vergessen Sie möglicherweise den konkreten Speicherort dieser PST-Dateien. In diesem Fall möchten Sie sie möglicherweise schnell herausfinden und eine Liste ihrer Informationen erhalten, einschließlich Name, Größe und Pfad. Als Reaktion auf diese Anforderung stellen wir hier einen effektiven Weg vor.

Erhalten Sie eine Liste aller Outlook-PST-Dateien auf Ihrem lokalen Laufwerk

1. Starten Sie zunächst Ihr Outlook-Programm.
2. Greifen Sie dann unter Bezugnahme auf meinen vorherigen Artikel auf Ihren Outlook VBA-Editor zu – „So führen Sie VBA-Code in Outlook aus".
3. Kopieren Sie als Nächstes den folgenden VBA-Code und fügen Sie ihn in „ThisOutlookSession“ oder ein nicht verwendetes Modul ein.

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

4. Danach können Sie dieses Makro sofort ausprobieren. Drücken Sie einfach die Taste „F5“.
5. Wenn das Makro abgeschlossen ist, wird eine Textdatei angezeigt, die wie im folgenden Screenshot aussieht:

Verwenden Sie das Reparaturtool bei Outlook-Abstürzen

Von Zeit zu Zeit können in Ihrem Outlook verschiedene Fehler auftreten. Wenn Sie sie nicht rechtzeitig lösen, werden Sie eines Tages schließlich einen schweren Outlook-Absturz erleiden. Daher ist es sinnvoll, ein leistungsstarkes und erfahrenes PST-Reparaturprogramm in der Nähe zu haben DataNumen Outlook Repair. Es wurde speziell entwickelt, um PST reparieren Datei. Somit ist es in der Lage, Sie vor dem Verlust von PST-Daten zu bewahren.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL-Korruption und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX