Sådan får du hurtigt en liste over alle Outlook PST-filer på dit lokale drev via VBA

Hvis du håber at få en liste over alle Outlook PST-filer, der er gemt på et lokalt drev på din pc, kan du bruge det stykke VBA-kode, der er vist i denne artikel. Det kan give dig mulighed for at få det hurtigt.

Måske har du oprettet og gemt mange Outlook PST-filer på en partition på din computer. Alligevel glemmer du muligvis den konkrete placering af disse PST-filer med tiden. I dette tilfælde vil du måske hurtigt finde ud af dem og opnå en liste over deres oplysninger, herunder navn, størrelse og sti. Som svar på dette krav introducerer vi her en effektiv måde.

Få en liste over alle Outlook PST-filer på dit lokale drev

1. Til at starte med skal du starte dit Outlook-program.
2. Gå derefter til din Outlook VBA-editor med henvisning til min tidligere artikel - “Sådan køres VBA-kode i din Outlook".
3. Kopier og indsæt derefter følgende VBA-kode i “ThisOutlookSession” eller et ubrugt 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. Derefter kan du prøve denne makro lige nu. Bare tryk på “F5” -tasten.
5. Når makroen er færdig, vil du se en tekstfil, der ser ud som følgende skærmbillede:

Brug reparationsværktøj i tilfælde af Outlook-nedbrud

Assorterede fejl kan forekomme i din Outlook fra tid til anden. Hvis du ikke løste dem i tide, vil du endelig lide et alvorligt Outlook-nedbrud en dag. Derfor er det rigtigt at opbevare et kraftfuldt og erfarent PST-reparationsværktøj i nærheden DataNumen Outlook Repair. Det er specielt designet til reparation PST fil. Således er det i stand til at redde dig fra tab af PST-data.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql korruption og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com