Ինչպես արագ ստանալ VBA- ի միջոցով ձեր տեղական սկավառակի բոլոր Outlook PST ֆայլերի ցուցակը

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Եթե ​​հույս ունեք ստանալ ձեր համակարգչի տեղական սկավառակի վրա պահված բոլոր Outlook PST ֆայլերի ցուցակը, կարող եք օգտագործել այս հոդվածում ցուցադրված VBA կոդի կտորը: Դա կարող է թույլ տալ արագ ժամանակում ստանալ այն:

VBA- ի միջոցով արագ ստացեք ձեր տեղական սկավառակի բոլոր Outlook PST ֆայլերի ցուցակը

Միգուցե ձեր համակարգչի բաժանման վրա ստեղծել եք և պահպանել բազմաթիվ Outlook PST ֆայլեր: Սակայն, ժամանակի հետ գնալով, դուք կարող եք մոռանալ այս PST ֆայլերի կոնկրետ տեղը: Այս դեպքում գուցե ցանկանաք արագորեն պարզել նրանց և հասնել նրանց տեղեկատվության ցուցակին, ներառյալ անունը, չափը և ուղին: Ի պատասխան այս պահանջի, մենք այստեղ կներկայացնենք արդյունավետ միջոց:

Ստացեք ձեր տեղական սկավառակի բոլոր Outlook PST ֆայլերի ցուցակը

  1. Սկսելու համար գործարկեք ձեր Outlook ծրագիրը։
  2. Դրանից հետո մուտք գործեք ձեր Outlook VBA խմբագիր ՝ հղում կատարելով իմ նախորդ հոդվածին ՝ «Ինչպես գործարկել VBA կոդը ձեր Outlook- ում".
  3. Հաջորդը, պատճենեք և տեղադրեք հետևյալ 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

VBA կոդ - Ստացեք ձեր տեղական սկավառակի բոլոր Outlook PST ֆայլերի ցուցակը

  1. Դրանից հետո հենց հիմա կարող եք փորձել այս մակրոը: Պարզապես սեղմեք «F5» ստեղնի կոճակը:
  2. Երբ մակրոն ավարտվի, կտեսնեք, որ ցուցադրվում է տեքստային ֆայլ, որը նման կլինի հետևյալ սքրինշոթին.Արտահանված ցուցակը տեքստային ֆայլում

Outlook- ի խափանումների դեպքում օգտագործեք վերանորոգման գործիք

Outամանակ առ ժամանակ ձեր Outlook- ում կարող են առաջանալ բազմազան սխալներ: Եթե ​​դրանք ժամանակին չլուծեցիք, վերջապես մի օր կտուժեք Outlook- ի լուրջ վթարի: Հետևաբար, ճիշտ է պահպանել PST- ի վերանորոգման հզոր և փորձառու օգտակար ծրագիր, ինչպես օրինակ DataNumen Outlook Repair, Այն հատկապես նախատեսված է վերանորոգել PST ֆայլ Այսպիսով, այն ի վիճակի է փրկել ձեզ PST տվյալների կորստից:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում sql կոռուպցիան և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: