Πώς να αποκτήσετε γρήγορα μια λίστα με όλα τα αρχεία PST του Outlook στον τοπικό σας δίσκο μέσω VBA

Λύσεις του Outlook Σεπτέμβριος 29, 2025

Εάν ελπίζετε να λάβετε μια λίστα με όλα τα αρχεία PST του Outlook που είναι αποθηκευμένα σε μια τοπική μονάδα δίσκου του υπολογιστή σας, μπορείτε να χρησιμοποιήσετε το κομμάτι του κώδικα VBA που εμφανίζεται σε αυτό το άρθρο. Μπορεί να σας επιτρέψει να το αποκτήσετε γρήγορα.

Maybeσως έχετε δημιουργήσει και αποθηκεύσει πολλά αρχεία PST του Outlook σε ένα διαμέρισμα του υπολογιστή σας. Ωστόσο, με την πάροδο του χρόνου, μπορεί να ξεχάσετε τη συγκεκριμένη τοποθεσία αυτών των αρχείων PST. Σε αυτήν την περίπτωση, μπορεί να θέλετε να τα μάθετε γρήγορα και να επιτύχετε μια λίστα με τις πληροφορίες τους, συμπεριλαμβανομένου του ονόματος, του μεγέθους και της διαδρομής. Σε απάντηση αυτής της απαίτησης, εδώ θα εισαγάγουμε έναν αποτελεσματικό τρόπο.

Λάβετε μια λίστα με όλα τα αρχεία PST του Outlook στον τοπικό σας δίσκο

Για ωςtart, ξεκινήστε το πρόγραμμα Outlook.
Στη συνέχεια, αποκτήστε πρόσβαση στον επεξεργαστή Outlook VBA με αναφορά στο προηγούμενο άρθρο μου - "Τρόπος εκτέλεσης κώδικα VBA στο Outlook".
Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα 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

Μετά από αυτό, μπορείτε να δοκιμάσετε αυτήν τη μακροεντολή τώρα. Απλώς πατήστε το πλήκτρο "F5".
Όταν ολοκληρωθεί η μακροεντολή, θα δείτε ένα αρχείο κειμένου να εμφανίζεται, το οποίο θα μοιάζει με το παρακάτω στιγμιότυπο οθόνης:

Χρησιμοποιήστε το εργαλείο επιδιόρθωσης σε περίπτωση διακοπής λειτουργίας του Outlook

Κατά καιρούς ενδέχεται να εμφανιστούν διάφορα σφάλματα στο Outlook σας. Εάν δεν τα λύσατε εγκαίρως, θα υποστείτε σοβαρή συντριβή του Outlook μια μέρα τελικά. Ως εκ τούτου, είναι σωστό να διατηρείτε ένα ισχυρό και έμπειρο βοηθητικό πρόγραμμα επισκευής PST σε κοντινή απόσταση, όπως DataNumen Outlook Repair. Είναι ειδικά σχεδιασμένο για επισκευή PST αρχείο. Έτσι είναι σε θέση να σας σώσει από την απώλεια δεδομένων PST.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων sql διαφθορά και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com