VBAを介してローカルドライブ上のすべてのOutlookPSTファイルのリストをすばやく取得する方法

Outlookソリューション 2025 年 9 月 29 日

PCのローカルドライブに保存されているすべてのOutlookPSTファイルのリストを取得したい場合は、この記事に示されているVBAコードを利用できます。それはあなたが迅速にそれを手に入れることを可能にすることができます。

たぶん、あなたはあなたのコンピュータのパーティションにたくさんのOutlookPSTファイルを作成して保存しました。しかし、時間が経つにつれて、これらのPSTファイルの具体的な場所を忘れてしまう可能性があります。この場合、それらをすばやく見つけて、名前、サイズ、パスなどの情報のリストを作成することをお勧めします。この要件に応えて、ここでは効果的な方法を紹介します。

ローカルドライブ上のすべてのOutlookPSTファイルのリストを取得します

まず、Outlookプログラムを起動してください。
次に、前回の記事を参照してOutlookVBAエディターにアクセスします。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の破損と見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com