Cara Cepat Dapatkan Senarai Semua Fail PST Outlook di Pemacu Tempatan Anda melalui VBA

Penyelesaian Outlook 29 September 2025

Sekiranya anda ingin mendapatkan senarai semua fail Outlook PST yang disimpan pada pemacu tempatan PC anda, anda boleh menggunakan potongan kod VBA yang ditunjukkan dalam artikel ini. Ia membolehkan anda mendapatkannya dalam masa yang cepat.

Mungkin anda telah membuat dan menyimpan banyak fail PST Outlook pada partition komputer anda. Namun, seiring berjalannya waktu, anda mungkin melupakan lokasi konkrit fail PST ini. Dalam kes ini, anda mungkin ingin mengetahuinya dengan cepat dan mendapatkan senarai maklumat mereka, termasuk nama, ukuran dan jalan. Sebagai tindak balas kepada keperluan ini, di sini kami akan memperkenalkan cara yang berkesan.

Dapatkan Senarai Semua Fail PST Outlook di Pemacu Tempatan Anda

Sebagai permulaan, lancarkan program Outlook anda.
Kemudian, akses editor Outlook VBA anda dengan merujuk pada artikel saya sebelumnya - “Cara Menjalankan Kod VBA di Outlook Anda".
Seterusnya, salin dan tampal kod VBA berikut ke dalam "ThisOutlookSession" atau modul yang tidak digunakan.

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

Selepas itu, anda boleh mencuba makro ini sekarang. Cukup tekan butang kekunci "F5".
Apabila makro selesai, anda akan melihat fail teks yang dipaparkan, yang akan kelihatan seperti tangkapan skrin berikut:

Gunakan Alat Pembaikan dalam Kes Kerosakan Outlook

Ralat pelbagai mungkin berlaku pada Outlook anda dari semasa ke semasa. Sekiranya anda tidak menyelesaikannya tepat pada waktunya, akhirnya anda akan mengalami kerosakan Outlook yang teruk. Oleh itu, adalah betul untuk menyimpan utiliti pembaikan PST yang kuat dan berpengalaman di sekitarnya, seperti DataNumen Outlook Repair. Ia direka khas untuk membaiki PST fail. Oleh itu ia mampu menyelamatkan anda dari kehilangan data PST.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk rasuah sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com