Slik får du raskt en liste over alle Outlook PST-filer på din lokale stasjon via VBA

Hvis du håper å få en liste over alle Outlook PST-filene som er lagret på en lokal stasjon på PC-en din, kan du bruke VBA-koden som vises i denne artikkelen. Det kan tillate deg å få det raskt.

Kanskje du har opprettet og lagret mange Outlook PST-filer på en partisjon på datamaskinen din. Likevel, med tiden som går, kan du glemme den konkrete plasseringen av disse PST-filene. I dette tilfellet vil du kanskje raskt finne ut dem og få en liste over informasjonen deres, inkludert navn, størrelse og bane. Som svar på dette kravet vil vi her introdusere en effektiv måte.

Få en liste over alle Outlook PST-filer på din lokale stasjon

1. For somtart, start Outlook-programmet.
2. Deretter får du tilgang til Outlook VBA-editoren med referanse til min forrige artikkel - "Hvordan kjøre VBA-kode i Outlook".
3. Deretter kopierer og limer du inn følgende VBA-kode i "ThisOutlookSession" eller en ubrukt modul.

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. Etter det kan du prøve denne makroen akkurat nå. Bare trykk på "F5"-tasten.
5. Når makroen er fullført, vil du se en tekstfil som vil se ut som følgende skjermbilde:

Bruk reparasjonsverktøyet i tilfelle Outlook-krasj

Diverse feil kan oppstå i Outlook fra tid til annen. Hvis du ikke løste dem i tide, vil du få alvorlig Outlook-krasj en dag endelig. Derfor er det riktig å holde et kraftig og erfarent PST-reparasjonsverktøy i nærheten, som DataNumen Outlook Repair. Den er spesielt designet for å reparere PST fil. Dermed er det i stand til å redde deg fra tap av PST-data.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql korrupsjon og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med