Kaip greitai gauti visų vietiniame diske esančių Outlook PST failų sąrašą per VBA

Jei tikitės gauti visų „Outlook PST“ failų, saugomų jūsų kompiuterio vietiniame diske, sąrašą, galite naudoti šiame straipsnyje pateiktą VBA kodo dalį. Tai gali leisti jums jį gauti greitai.

Galbūt savo kompiuterio skaidinyje sukūrėte ir išsaugojote daug Outlook PST failų. Tačiau laikui bėgant galite pamiršti konkrečią šių PST failų vietą. Tokiu atveju galbūt norėsite greitai juos išsiaiškinti ir sudaryti jų informacijos sąrašą, įskaitant pavadinimą, dydį ir kelią. Atsižvelgdami į šį reikalavimą, pristatysime veiksmingą būdą.

Gaukite visų vietiniame diske esančių Outlook PST failų sąrašą

1. Norėdami pradėti, paleiskite „Outlook“ programą.
2. Tada pasiekite „Outlook VBA“ rengyklę su nuoroda į mano ankstesnį straipsnį – „Kaip paleisti VBA kodą „Outlook“.".
3. Tada nukopijuokite ir įklijuokite šį VBA kodą į „ThisOutlookSession“ arba nenaudojamą 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. Po to galite išbandyti šią makrokomandą dabar. Tiesiog paspauskite mygtuką „F5“.
5. Kai makrokomanda bus baigta, bus rodomas tekstinis failas, kuris atrodys taip, kaip ši ekrano kopija:

Naudokite taisymo įrankį „Outlook“ gedimų atveju

Kartais „Outlook“ gali atsirasti įvairių klaidų. Jei jų neišspręsite laiku, vieną dieną galiausiai patirsite rimtą „Outlook“ avariją. Taigi, teisinga netoliese laikyti galingą ir patyrusią PST taisymo įrankį, pvz DataNumen Outlook Repair. Jis specialiai sukurtas remontas PST failą. Taigi jis gali jus apsaugoti nuo PST duomenų praradimo.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sql korupcija ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com