Si të merrni shpejt një listë të të gjithë skedarëve PST të Outlook në diskun tuaj lokal përmes VBA

Nëse shpresoni të merrni një listë të të gjithë skedarëve PST të Outlook të ruajtur në një disk lokal të kompjuterit tuaj, mund të përdorni pjesën e kodit VBA të treguar në këtë artikull. Mund t'ju lejojë ta merrni atë në kohë të shpejtë.

Ndoshta keni krijuar dhe ruajtur shumë skedarë Outlook PST në një ndarje të kompjuterit tuaj. Megjithatë, me kalimin e kohës, mund të harroni vendndodhjen konkrete të këtyre skedarëve PST. Në këtë rast, mund të dëshironi t'i zbuloni shpejt dhe të arrini një listë të informacionit të tyre, duke përfshirë emrin, madhësinë dhe rrugën. Në përgjigje të kësaj kërkese, këtu do të prezantojmë një mënyrë efektive.

Merrni një listë të të gjithë skedarëve PST të Outlook në diskun tuaj lokal

1. Për të filluar, hapni programin tuaj Outlook.
2. Pastaj, hyni në redaktorin tuaj VBA të Outlook duke iu referuar artikullit tim të mëparshëm - "Si të ekzekutoni kodin VBA në Outlook tuaj".
3. Më pas, kopjoni dhe ngjisni kodin e mëposhtëm VBA në "ThisOutlookSession" ose në një modul të papërdorur.

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. Pas kësaj, mund ta provoni këtë makro tani. Thjesht shtypni butonin "F5".
5. Kur makro të përfundojë, do të shihni një skedar teksti që shfaqet, i cili do të duket si pamja e mëposhtme e ekranit:

Përdorni mjetin e riparimit në rast të përplasjeve të Outlook

Gabime të ndryshme mund të ndodhin në Outlook tuaj herë pas here. Nëse nuk i zgjidhni ato në kohë, do të pësoni një përplasje të rëndë të Outlook një ditë më në fund. Prandaj, është e drejtë të mbash një mjet të fuqishëm dhe me përvojë riparimi PST në afërsi, si p.sh DataNumen Outlook Repair. Është projektuar veçanërisht për të riparim PST dosje. Kështu është në gjendje t'ju shpëtojë nga humbja e të dhënave PST.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë korrupsioni sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com